I am trying to save messages as a MSG format. I checked on the forum and
found the code but when I save, the file name is not completely written and
the file size is 0 bytes. Right now the code is only for the open message.
Ideally, I would like the code to be run on an Outlook folder. I am
operating in a Vista Enterprise environment. Any help would be greatly
appreciated.

-----VBA Code-----
Sub SaveAsTXT()
Dim myItem As Outlook.Inspector
Dim objItem As Object
Dim strname As String


Set myItem = Application.ActiveInspector
If Not TypeName(myItem) = "Nothing" Then
Set objItem = myItem.CurrentItem

strname = "U:\E-Mail\" & objItem.SenderName & " " & objItem.Subject
& objItem.Sent & ".msg"
MsgBox strname
'Prompt the user for confirmation
Dim strPrompt As String
strPrompt = "Are you sure you want to save the item? " & _
"If a file with the same name already exists, " & _
"it will be overwritten with this copy of the file."
If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then
objItem.SaveAs strname, olMSGUnicode
End If
Else
MsgBox "There is no current active inspector."
End If
End Sub
-----End of VBA Code-----