Highlight rows if mail not sent in Excel VBA

[coolkiran]

Hi All

I have written code which will send mails. Unfortunately for some rows mail address will not be in correct format, for those email, outlook will throw some error like "Outlook doesn't recognize one or more names" and macro will stops running.

Is there any way to highlight that rows and continue macro for next rows.

Here is the code i have used

For Each olMail In Fldr.Items
Set objmail = olApp.CreateItem(olMailItem)
objmail.To = "MAIL ADDRESS"
With objmail
.Subject = "SUBJECT"
.htmlBody = "Hello" & " " & "<br><br>" & "MESSAGE"
.Display
End With
Exit For
Next

 

[vletm]

coolkiran

before
For Each ...
add
On Error Resume Next

before
Ser objmail ...
add
Err.Clear

Highlite needs more information of Your code.

 

[coolkiran]

Hi Vletm

Code worked, is there a way to highlight row where mail not been sent.

I have attached my file. where i can see mail sent for first row, instead of tracking one by one, can we highlight?

 

[vletm]

coolkiran
Some changes ...
and/but
I cannot verify that code at all!

 

[coolkiran]

I

coolkiran
Some changes ...
and/but
I cannot verify that code at all!

Its working. thanks a lot