Macro to send emails with different attachments and table in the email.

Hello,

Need a Macro in Excel 2010, for Sending send emails with different attachments and table in the email to list of user's in the Database.

For Eg.

Attachment Data

Code Name Email Address File Location / Name
1234 Temp 1 abc@xyz.com C:\Temp\1234
4567 Temp 2 def@xyz.com C:\Temp\4567

Mail body Data

Code Name Email Address
1234 Temp 1 abc@xyz.com
1234 Temp 1 abc@xyz.com
4567 Temp 2 def@xyz.com


1st Email will be of code 1234 with Specified attachment and Email address along with the data from "Mail body Data" in the form of Table in Mail Body (2 Count).

I am using the Data in 3 Different Sheets, Attached Sample.

Plz Help...

Thanks in Advance.
Aashish Shetty

Might require some editing to completely fit your needs

'
Option Explicit
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub SendMultipleEmails()
On Error Resume Next

Dim Mail_Object, OutApp As Variant, lastRow As Variant
Dim i As Integer
Dim sht As Sheet1

Set sht = ThisWorkbook.Worksheets("Sheet1")

    lastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
  

For i = 2 To lastRow

Set Mail_Object = CreateObject("Outlook.Application")
Set OutApp = Mail_Object.CreateItem(0)

    With OutApp
    .Subject = "Testing MultiEmails"
    .Body = "Hello TEST !"
    .To = Cells(i, 1).Value
    .Attachments.Add Cells(i, 2).Value
    .send
    End With
        
    If i = lastRow Then
        GoTo Done
    Else
        Calculate
        Sleep (5000) ' delay 1 second
    End If
Next i
   

debugs:
If Err.Description <> "" Then MsgBox Err.Description

Done:

MsgBox "All emails have been sent. "
End Sub

how can i add email subject and content from another column. Each email has a different attachment and different email content and subject