Email sent via CDO is no longer compiling

[MSoliman]

Hello all,

Long time listener, first time caller...

I had a functioning version of this code in another sheet at one time, but after years of neglect and abandonment it keeps hanging up in this new sheet that I've fitted it into.

I receive: Run-time error '-2147220973 (80040213)
The transport failed to connect to the server.

The line in question is the ".Send"

I know that the smtp address and port number are correct, I doublechecked with our IT dept.

99% of the time, it's punctuation or syntax that I've overlooked.

Here's the code in question:
(Mainly cribbed from Ron de Bruin's excellent site...)

Please Login or Register  to view this content.

If anyone has the time to take a quick peek, it would be greatly appreciated.

Thanks in advance,
Marc

P.S. Sorry, running Win XP Pro & Outlook 2003 locally.

[Leith Ross]

Hello MSoliman,

Try changing your port from 25 (SMTP) to 465 (SMTP using SSL). If your server is sending emails using a Secure Socket Layer then you need to change your port to 465 and include both your user name and password for authentication.

Please Login or Register  to view this content.

[MSoliman]

Thanks for the reply, sorry this took so long in coming.

The port change had no effect. This same bit of code is also giving me the same error in Access. Tried it on another machine with no problems. I seem to have bigger issues than some bad VBA.

Thanks again for your help.