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