>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-----