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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Save As dialog box on screen 1
Saving mail (.msg) after clicking context menu button 1
save .msg as rtf and how to open a msg file 2
MailItem.SaveAs not working 10
Deleting the email in the activeinspector and selectins in the Explorer 1
Trying to have code close an open email after it saves. 5
Saveas dialog 5
Please help - VBA to save email to drive 5

Back
Top