R
Raymond
Hi
I've this code to save a selected item. However its doesn't work. I'
getting error 438. Can anyone tell me why
Sub email_save()
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveExplorer.Selection
myItem.SaveAs "C:\Temp\" & myItem.Subject & ".txt", olTXT
myItem.SaveAs "C:\Temp\" & myItem.Subject & ".msg", olMSG
end sub
Greetings Raymon
I've this code to save a selected item. However its doesn't work. I'
getting error 438. Can anyone tell me why
Sub email_save()
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveExplorer.Selection
myItem.SaveAs "C:\Temp\" & myItem.Subject & ".txt", olTXT
myItem.SaveAs "C:\Temp\" & myItem.Subject & ".msg", olMSG
end sub
Greetings Raymon