Hello All,
I'm trying to use VBA to send a mass email I keep however getting an error message on this line
Call SendEmail(Sheet1.Range("A" & row_number), Sheet1.Range("J1"), Sheet1.Range("J2"))
Does anyone know where the error is? This is the entire code.
Sub SendEmail(what_address As String, subject_line As String, mail_body As String)
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
olMail.To = what_address
olMail.Subject = subject_line
olMail.Body = mail_body
olMail.Send
End Sub
Sub SendMassEmail()
row_number = 1
Do
DoEvents
row_number = row_number + 1
Call SendEmail(Sheet1.Range("A" & row_number), Sheet1.Range("J1"), Sheet1.Range("J2"))
Loop Until row_number = 6
End Sub
I'm trying to use VBA to send a mass email I keep however getting an error message on this line
Call SendEmail(Sheet1.Range("A" & row_number), Sheet1.Range("J1"), Sheet1.Range("J2"))
Does anyone know where the error is? This is the entire code.
Sub SendEmail(what_address As String, subject_line As String, mail_body As String)
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
olMail.To = what_address
olMail.Subject = subject_line
olMail.Body = mail_body
olMail.Send
End Sub
Sub SendMassEmail()
row_number = 1
Do
DoEvents
row_number = row_number + 1
Call SendEmail(Sheet1.Range("A" & row_number), Sheet1.Range("J1"), Sheet1.Range("J2"))
Loop Until row_number = 6
End Sub