Added (jobs): Automating Emails from Excel

[Dale]

that took care of the error. But no mail was sent
I have the word Email in A1 and the word Names in B1.
I have email address in A2 and A3.
Names are in B2 and B3.
and in ThisWorkBook i pasted in

'

Set up the Outlook objects.

Dim objOutlook As Outlook.Application 
Dim objOutlookMsg As Outlook.MailItem 
Dim objOutlookRecip As Outlook.Recipient 
Dim objOutlookAttach As Outlook.Attachment 
'Declare our global variables to be used in each subroutine.
Dim CustomerAddress As String 
Dim CustomerMessage As String

is this write ?????