EXporting Excel Attachment File from Outlook to my personal folder? 1

[tekvb1977]

I have to export an attachment from outlook e-mail to a folder on my drive. How could I accomplish it. I like this to be done automatically everynight. The attachment file name and name of the sender would stay the same.

Thanks a lot in advance.

J

 

[PHV]

Have a look at the Attachment.SaveAsFile method.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[tekvb1977]

I tried using the code below but it doesn't work. Any thoughts why it's not working?

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector.CurrentItem
Set myAttachments = myItem.Attachments
myAttachments.Item(1).SaveAsFile "C:\My Documents\" & _
myAttachments.Item(1).DisplayName

Thanks,

J

 

[PHV]

but it doesn't work
Any error message ? Unexpected behaviour ?
What is the value myAttachments.Item(1).DisplayName ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[tekvb1977]

It refers to name of the first attachment in the outlook e-mail. I get the following error everytime I try to run the sub procedure in outlook:

"The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable macros."

I have no clue how to enable the macros. Any thoughts?

Thanks for all your help.

J

 

[PHV]

Check the macro security level in the Options menu of Outlook.

BTW, I asked for the value of the DisplayName property at error time, in case of invalid character for a file name ...

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[tekvb1977]

Thanks for your help. Now I am getting the error that variable "myOlApp" is undefined:

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector.CurrentItem
Set myAttachments = myItem.Attachments
myAttachments.Item(1).SaveAsFile "C:\My Documents\" & _
myAttachments.Item(1).DisplayName


How can I define it? Like Dim myOlApp as Outlook?

 

[PHV]

The simplest:
Dim myOlApp, myItem, myAttachments

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[tekvb1977]

Thanks a bunch. Now the code works. But there is one problem. I have to open the e-mail before it running the code in order for it to work. Is there a way that an e-mail from a particular sender is opened first automatically before running the code below:


Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector.CurrentItem
Set myAttachments = myItem.Attachments
myAttachments.Item(1).SaveAsFile "C:\My Documents\" & _
myAttachments.Item(1).DisplayName