Email Address Validity

[abbaddon223]

Hi,

I'm hoping someone can help please as this is a new one on me. I've been researching for an answer but am drawing a blank.

One of my clients has asked me to look at building a way to check if the email addresses they are capturing in my CRM are valid. He want's to go beyond checking for no "@" etc.

From what I've seen, it looks like a reverse DNS check (might be totally wrong) is the way to go. IE: check if the email is valid. I've see a few tools online that can do it one by one (which I could parse to if I had to) - but ideally I'd like to be able to run this from a VBA script.

Does anyone have any experience with this please?

Thank you for any help.

Phil.

 

[Clon]

Have a look at http://www.webdigi.co.uk/blog/2009/how-to-check-if-an-email-address-exists-without-sending-an-email/
as a starting point.

Regards

 

[abbaddon223]

Thanks Clon - I tried the:

Private Sub TestEmailAddress()
Dim oSMTP As New EASendMailObjLib.Mail
oSmtp.LicenseCode = "TryIt"

oSmtp.FromAddr = "sender@mydomain.com"
'validate the following email address
oSmtp.AddRecipient "tester", "tester@mydomain.com"

If oSmtp.TestEmailAddr() = 0 Then
MsgBox "valid email address"
Else
MsgBox "it may be an invalid email address"
MsgBox oSmtp.GetLastErrDescription()
End If
End Sub

However I get the following error:

Compile error: User-defined type not defined

At the

Dim oSMTP As New EASendMailObjLib.Mail

Line. Any ideas what this maybe please? Thanks for helping!

 

[pr2-eugin]

You are missing reference.. You need to add it.. Check HERE for more info..

PS: I think Clon has changed the Hyperlink from the first time I visited it..

 

[abbaddon223]

Paul - looks like you are here to save me again - thanks for the link - I'm saving that one as there is some really useful stuff there!

I've downloaded the plugin and added the reference. However I now get a new error:

Argument Not Optional

at

oSMTP.AddRecipient "tester", "tester@mydomain.com"

Any ideas what that could be? Thanks for the help again!

 

[pr2-eugin]

I do not have the Plugin so I cannot test this for you.. However, the error seems to say that you are not inputting all the REQUIRED arguments..

When you type oSMTP.AddRecipient and hit the space bar it would come up with the list of arguments that needs to be passed to the function.. So see what you are missing..

 

[abbaddon223]

Mate - you've sorted my issue and saved my job again! Thanks so much!!!!

 

[pr2-eugin]

Glad to have helped mate. Good Luck..

 

[Clon]

PS: I think Clon has changed the Hyperlink from the first time I visited it..

Yes, it is my fault. Sorry, I thought I had been quick enough in editing, so no one had probably read my post- which obviously was a wrong assumption.

I changed it because I realized that this software, "easendmail", is not free. If you can use the component without any problems, now or in the near future, then I'm glad.

Sorry about the inconvenience.

 

[pr2-eugin]

Sorry about the inconvenience.

That's okay Clon, I clicked on it as soon as you posted a reply.. So it was in my browser history which I was able to refer to again.. If you did change, just add a word of EDIT, so the OP or anyone who is looking would be benefited.. Good day..