i have the below code searched from web. Mail is created but attachments not added. Need help
Code
Dim OUTAPP As Object
Dim OUTMAIL As Object
Call ws_settings
Set OUTAPP = CreateObject("OUTLOOK.APPLICATION")
ws6.Select
Range("A3").Select
Do While ActiveCell <> ""
A = ActiveCell.Row
If ws6.Cells(A, 11) <> "" Then
Set OUTMAIL = OUTAPP.CREATEITEM(0)
With OUTMAIL
.TO = ws6.Cells(A, 11)
.Subject = "Insurance Policy Renewal Reminder"
.BODY = ws6.Cells(A, 15)
'.attachments.Add "d:\reports\mh01bc3384.pdf"
.Save
End With
End If
ws6.Select
ActiveCell.Offset(1, 0).Select
Loop
Display More