loredana
06-12-2013, 01:05 PM
Hello! I m new on this site and if I make mistakes, please excuse my english.
I want to send an e-mail (template e-mail) from excel to outlook, but when I run the macro it appears an error: Compile error: Variable not defined. I dont know what is the error. If I analyse the text I find everything ok! Please help me!
The error appears on the beginning of this text ( the Sub SendMassEmail () is marked with yello w when i run the macros):
Sub SendMassEmail()
row_number = 1
Do
DoEvents
row_number = row_number + 1
Dim mail_body_message As String
Dim Clientname As String
Dim Referinta As String
Dim Nr_contract As String
Dim Data_contract As String
Dim Clientname As String
Dim Departament As String
mail_body_message = Sheet1.Range("J2")
Clientname = Sheet1.Range("C" & row_number)
Referinta = Sheet1.Range("B" & row_number)
Nrcontract = Sheet1.Range("D" & row_number)
Datacontract = Sheet1.Range("E" & row_number)
Clientname = Sheet1.Range("C" & row_number)
Departament = Sheet1.Range("F" & row_number)
mail_body_message = Replace(mail_body_message, "replace_name_here", Clientname)
mail_body_message = Replace(mail_body_message, "ref_code", Referinta)
mail_body_message = Replace(mail_body_message, "ctr_number", Nr_contract)
mail_body_message = Replace(mail_body_message, "date", Data_contract)
mail_body_message = Replace(mail_body_message, "replace_name_here", Clientname)
mail_body_message = Replace(mail_body_message, "replace_dep_here", Departament)
MsgBox mail_body_message
'Call SendEmail(Sheet1.Range("A" & row_number, "This is a test e-mail", mail_body_message)
Loop Until row_number = 4
MsgBox "Complete!"
End Sub
Thank you!
I want to send an e-mail (template e-mail) from excel to outlook, but when I run the macro it appears an error: Compile error: Variable not defined. I dont know what is the error. If I analyse the text I find everything ok! Please help me!
The error appears on the beginning of this text ( the Sub SendMassEmail () is marked with yello w when i run the macros):
Sub SendMassEmail()
row_number = 1
Do
DoEvents
row_number = row_number + 1
Dim mail_body_message As String
Dim Clientname As String
Dim Referinta As String
Dim Nr_contract As String
Dim Data_contract As String
Dim Clientname As String
Dim Departament As String
mail_body_message = Sheet1.Range("J2")
Clientname = Sheet1.Range("C" & row_number)
Referinta = Sheet1.Range("B" & row_number)
Nrcontract = Sheet1.Range("D" & row_number)
Datacontract = Sheet1.Range("E" & row_number)
Clientname = Sheet1.Range("C" & row_number)
Departament = Sheet1.Range("F" & row_number)
mail_body_message = Replace(mail_body_message, "replace_name_here", Clientname)
mail_body_message = Replace(mail_body_message, "ref_code", Referinta)
mail_body_message = Replace(mail_body_message, "ctr_number", Nr_contract)
mail_body_message = Replace(mail_body_message, "date", Data_contract)
mail_body_message = Replace(mail_body_message, "replace_name_here", Clientname)
mail_body_message = Replace(mail_body_message, "replace_dep_here", Departament)
MsgBox mail_body_message
'Call SendEmail(Sheet1.Range("A" & row_number, "This is a test e-mail", mail_body_message)
Loop Until row_number = 4
MsgBox "Complete!"
End Sub
Thank you!