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

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

fitful_thought - 30 Jul 2004 07:14 GMT

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

Reply to this Message

Dmitry Streblechenko \(MVP\) - 30 Jul 2004 07:25 GMT

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

> Sub SaveAsPlainText()
> Set myolapp = CreateObject("Outlook.Application")
[quoted text clipped - 7 lines]
>
> End Sub

Reply to this Message