Skip email message with no email address

[Ian McPherson]

I am using this VBA code (downloaded from internet) to display email messages prior to sending. I am not that familiar with VBA so would like additional code that would skip emails with a blank or no address.
Thanking you in advance.

 

[Micron]

Maybe wrap the With / End With in an If block, as in
If R.Offset(0,1) <> "" Then

If the range has no value it should not send the email. Exception could be that the range contains one or more space characters, or something that is not "" but is not a valid email recipient either. In that case, better validation may be required.

Please post code within vba code tags (use vba button on posting toolbar). Pics of code are not very helpful.

 

[Ian McPherson]

If block wrap successful, and vba code tags comment noted.
Thank you.