Email with Multiple Attachments through VBA Solved/Closed

Question

Dear All,
I need to send the multiple emails via Outlook through VBA.
Column A Row 2 = Name of Person, Which must be Displayed on .Body
Column B Row 2 = .To Email Address (It could be multiple)
Column C Row 2 = .CC Email Address (It could be multiple)
Column D Row 2 = .Subject
Column E Row 2 = .Attachments.Add (It could be multiple) 
Sheet2 is the Matter which must be copy and paste to the .body
I need looping Macro to send the emails one by one with attachments or attachment with the formatted body which is located in Sheet2.
Note: Sheet2 Matter will remain same for all rows.
Thanks in Advance.
Looking forward to your usual co-operation.
Regards,
Game Start Now

ac3mark · Answer

Well, where are stuck?  The mail object?  The formatting of the email structure itself?  I will not!   For certain, will not provide a mailing program turn key.  Let us know where you are stuck!

Game Start Now · Answer

Below code works fine but it allow only one attachment.
I need the macro to add attachments from column H to column Z. If one path is in column H and another path is in column I.
Sub Send_Email() 
Sheets("Sheet1").Activate 
Range("A3:J55").Select 
Application.CutCopyMode = False 
ActiveWorkbook.EnvelopeVisible = True 
With ActiveSheet.MailEnvelope 
Sheets("Sheet2").Select 
MYROW = Range("G10000").End(xlUp).Offset(1, 0).Row 
.Item.To = Range("D" & MYROW).Value 
.Item.CC = Range("E" & MYROW).Value 
.Item.Subject = Range("F" & MYROW).Value 
.Item.Attachments.Add Range("H" & MYROW).Value 
Sheets("Sheet1").Select 
.Item.Send 
End With 
End Sub

Email with Multiple Attachments through VBA

2 responses

Similar discussions

Subscribe To Our Newsletter!