See if the file name you end up with has any illegal characters in it. See
if you can save the same item yourself manually, to see if that works.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"Chris" wrote in message
...
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-----