this routine saves a msg as txt, can it be modified to save as an xls file?

  • Thread starter Thread starter fitful_thought
  • Start date Start date
F

fitful_thought

Sub SaveAsPlainText()
Set myolapp = CreateObject("Outlook.Application")
Set myItem = myolapp.ActiveInspector
If Not TypeName(myItem) = "Nothing" Then
Set objItem = myItem.CurrentItem
objItem.SaveAs "C:\message.txt", olTXT
Else
MsgBox "There is no current active Inspector."
End If

End Sub
 
No, you will need to create an instance of the Excel.Application object and
drive it in your code to create a worksheet, populate its cells and save it
to a file.

Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
 
Back
Top