VBA Code Error

Hi,

could anyone help me why the attached excel vba is not working.

I don't see an error or "not working" using Display to test rather than Send. For your test emails in A2, the Like is not matched.

While you could use InStr() to test for the "@" character, this simple Like might suffice.

Code:

---

        If sh.Range("A2").Value Like "*@*.*" Then

---