Bulk emails with individual attachments.

[sureshpunna]

Hi Experts,

I have a Excel which is having Name, Email Id and Hyperlink of attachment.

Can you please help with code where I have to send email (outlook application) individually to all users which I have in excel with attachment of hyperlink.

Thank you in advance.

Regards,
Suresh

[jaslake]

Hi Suresh

Try this

Option Explicit

Sub Mail_workbook_Outlook_1()
'Working in Excel 2000-2013
'This example send the last saved version of the Activeworkbook
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
  Dim OutApp As Object
  Dim OutMail As Object
  Dim cel As Range

  ActiveWorkbook.Names.Add Name:="EmailAddress", RefersTo:= _
                           "=OFFSET(Sheet1!$C$5,0,0,(COUNTA(Sheet1!$C:$C)-1),1)"

  For Each cel In Range("EmailAddress")
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    On Error Resume Next
    With OutMail
      .to = cel.Value
      .CC = ""
      .BCC = ""
      .Subject = "This is the Subject line"
      .Body = "Hi there"
      .Attachments.Add (cel.Offset(0, 1).Value)
      .Display  'or use .Send
      '      .Send   'or use .Display
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
  Next cel
  Set OutMail = Nothing
  Set OutApp = Nothing
End Sub

[sureshpunna]

Hi John,

Thank you your time/reply

I'm very poor in VBA, Can you pls send code in above attached file.

Thanks,
Suresh

[jaslake]

Hi Suresh

The attached File is my test File...