error on sending email - 2 lines of code i need help on

[eric86vabeach]

i need help on 2 lines of code

---

Sub sendemail(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 = Sheet4.Range("BA") '-this line i need help
olMail.Sub = subject_line
olMail.Body = mail_body
olMail.Send


End Sub

---

Sub sendmassemail()

row_number = Range("BQ1").Value
Do
DoEvents
row_numbers = row_number + 1
Call sendemail(Sheet4.Range("BD" & row_number), Sheet5.Range("BV2")) '-this line i need help
Loop Until row_number >= 6

End Sub

---

thanks for reading and thanks
eric

 

[Michael M]

What help do you need....is there an error or a incorrect result ??
But as a guess
this line

olMail.To = Sheet4.Range("BA")

Needs a row reference..like "BA1"

 

[s.ridd]

There were quite a few errors with your code, but sticking as close to your original code as possible, you could try

Sub sendemail(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 = Sheet4.Range("BA1") '-this line i need help
olMail.Subject = subject_line
olMail.Body = mail_body
olMail.Send


End Sub


Sub sendmassemail()


row_number = Range("BQ1").Value
Do
DoEvents
row_number = row_number + 1
Call sendemail(Sheet4.Range("BD" & row_number), Sheet5.Range("BV2")) '-this line i need help
Loop Until row_number >= 6


End Sub

Hope this helps

Simon