mass email i keep getting errors can some1 HELP ?? ? ? CLICK HERE !!

[eric86vabeach]

i keep getting an error can some1 look at this and help me fix this code?

or help me with the notes in this 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
setolmail = olapp.CreateItem(olMailItem)

olMail.To = what_address
olMail.Sub = subject_line
olMail.Body = mail_body
olMail.Send





End Sub

---

Sub sendmassemail()
row_number = 2




Do
DoEvents
row_numbers = row_number + 1
Call sendemail(Sheet4.Range("BD" & row_number), "this is a test email", Sheet5.Range("BV2")) 'please read note at bottom about this line

Loop Until row_number = 6





End Sub

---

i would like cell "BQ1" type in the a cell # and it would say to the code grab the email from that cell and i think it would go where "this is a test email" goes?




thanks for your time and reading this
Eric

 

[mikerickson]

Perhaps something like this

Sub sendmassemail()
     row_number = Range("BQ1").Value
     Do
         DoEvents
         row_numbers = row_number + 1
         Call sendemail(Sheet4.Range("BD" & row_number), "this is a test email", Sheet5.Range("BV2")) 'please read note at bottom about this line

    Loop Until row_number >= 6
End Sub

 

[eric86vabeach]

Perhaps something like this

Sub sendmassemail()
     row_number = Range("BQ1").Value
     Do
         DoEvents
         row_numbers = row_number + 1
         Call sendemail(Sheet4.Range("BD" & row_number), "this is a test email", Sheet5.Range("BV2")) 'please read note at bottom about this line

    Loop Until row_number >= 6
End Sub

now i have error

Call sendemail(Sheet5.Range("BD" & row_number), "this is a test email", Sheet5.Range("$BV$2")) 'please read note at bottom about this line

object_work sheet failed

 

[mikerickson]

What is in BQ1?
Does that refer to an email address or the text of the message?
Where do you want the email sent? To the addresses in BD2 thru BD6 as in the OP code?

What is that "note at the bottom" that you want read?

 

[eric86vabeach]

Its the body of the email sent

 

[Michael M]

Duplicate Post

http://www.mrexcel.com/forum/excel-...r-sending-email-2-lines-code-i-need-help.html