Attach Several Workbooks To Outlook Message

[Abarker1978]

Using MSExcel 2010

Hi all, I need some vba script and despite trawling several sites and lots of search results here I have been unable to find anything that works!

I need something that will open a .msg file then attach several .xls files to the opened message. These files will always have the same name and be saved in the same location.

Any help appreciated, thanks in advance.

 

[Abarker1978]

Bump - I can get it to open a message without putting any attachments, or to open a blank message with 1 attachment - But not a saved message with several attachments!

 

[Glory]

Post your code.

 

[Abarker1978]

Alas I have the workbook saved at work, not here, but the general gist of it is using the Shell object, and the /f switch in outlook to open the saved message.

It is something very close to the following:

sub OpenMsg()
Dim AppPath As String
Dim MsgPath As String

AppPath = "C:\MSOffice\Office\Outlook.exe"
MsgPath = "C:\Msg.msg"

x = shell (""""AppPath""" & """/f""" &"""MsgPath"""")
End Sub