How can i attach multiple attachments using vba code?

[alang84]

Hi. I'm trying to automatically send an email with multiple attachments, but the email only contains the first attachment. Any idea what I'm doing wrong?


Sub EOD_No_Issues()

Application.ScreenUpdating = False

Dim MyOutlook As Object
Set MyOutlook = CreateObject("Outlook.Application")

Dim MyMail As Object
Set MyMail = MyOutlook.CreateItem(olMailItem)

MyMail.To = “email”
MyMail.CC = “”
MyMail.Subject = Range("E2").Value
MyMail.Body = "Test"

Attached_File = Range("E3").Value
Attached_File = Range("E4").Value
Attached_File = Range("E5").Value
Attached_File = Range("E6").Value
Attached_File = Range("E7").Value

MyMail.Send

Application.ScreenUpdating = True

End Sub

 

[Anthony47]

If only 1 attachment is received you are a lucky guy, because the code doesn't include any attachment

To attach a file:

MyMail.Attachments.Add NameOfFile

To attach several files, repeat the instruction several times:

MyMail.Attachments.Add NameOfFile_1
MyMail.Attachments.Add NameOfFile_2
MyMail.Attachments.Add NameOfFile_3

You have to replace that "NameOfFile_x" with your name of file; I guess it will be

MyMail.Attachments.Add Range("E3").Value
MyMail.Attachments.Add Range("E4").Value
'etc etc

Try...

 

[alang84]

If only 1 attachment is received you are a lucky guy, because the code doesn't include any attachment

To attach a file:

MyMail.Attachments.Add NameOfFile

To attach several files, repeat the instruction several times:

MyMail.Attachments.Add NameOfFile_1
MyMail.Attachments.Add NameOfFile_2
MyMail.Attachments.Add NameOfFile_3

You have to replace that "NameOfFile_x" with your name of file; I guess it will be

MyMail.Attachments.Add Range("E3").Value
MyMail.Attachments.Add Range("E4").Value
'etc etc

Try...

this worked. thanks so much. much appreciated.

 

[Anthony47]

Thank you for the feedback
If that resolve the problem then it'd be better to mark the discussion as Resoved; see the procedure: Mark as Solution