Akshay_divecha
Board Regular
- Joined
- Mar 11, 2014
- Messages
- 70
Dear Experts,
Getting error while sending email, need your advise on how to fix it..
[
Getting error while sending email, need your advise on how to fix it..
[
VBA Code:
Sub SendEmail()
'
' SendEmail Macro
'
'
row_number = 1
Do
DoEvents
row_number = row_number + 1
Dim OutApp As Object
Dim OutMail As Object
Dim OutMailBody As String
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Sheet1.Range("A" & row_number)
.CC = Sheet1.Range("B" & row_number)
.Subject = Sheet1.Range("J" & row_number)
.Body = Sheet1.Range("I" & row_number)
.Display 'or use .Display
End With
On Error GoTo 0
Loop Until Last_Row_IN_Column_A = Sheet1.Range("A50").End(xlUp)
Set OutMail = Nothing
Set OutApp = Nothing
MsgBox "Mail sent"
End Sub