Sending mail

[Fire_Chief]

I was using a CDO sub to send mail and it work great. I now have upgraded my computer and bought the
newest subscription for Excel. I am not sure what happened but the sub does not work any more. I
am hoping someone will be able to give me some code that will work. This has ruined my entire
program which took me months to built. Thank You

 

[James006]

Hello,

You should take a look at following link:

https://www.tachytelic.net/2018/12/email-vbscript-vba-office-365/

Hope this will help

 

[Fire_Chief]

I get the error "The transport failed to connect to the server"

 

[James006]

You are in for a trial and error phase ...

Maybe your firewall is not letting you access the SMTP server

You should review your firewall configuration

 

[Fire_Chief]

I don't thing it's the firewall because another person on here tried to make it work and couldn't. The routine I use is from Ron de Bruin. He is very good with excel. I VERY much do need a fix for this soon so if you can help it would be great.
You can see the code if you type into google "sending emails with CDO"

 

[James006]

I know pretty well Ron's code ... since have been using it for years ...

The question is Office 365 ... and the SMTP server ...

 

[Fire_Chief]

OK. Please help me out here. I use Norton for my internet security. What do I look for?

 

[Fire_Chief]

Here is what I have done. Hope this helps. I shut off the firewall completely. When I ran the code I got the error message:

Runtime error '-2147220978(8004020e)':
The server rejected the sender's address.
The sever response was 550 5.1.0 Authentication required.

I have no idea what that means. If you can help it would be GREATLY appreciated.
I checked and everything I entered for my email and passwords are correct. I also tried different ports & sendusing numbers

This is what I use:

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.comcast.net"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "D1C@comcast.net"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "my password for Comcast email"


Thank You

 

[James006]

Sorry cannot help you further with your PC configuration ...especially with Comcast ...

Can only confirm sending email with CDO does function ... if you strictly follow the instructions in


https://www.tachytelic.net/2018/12/e...ba-office-365/

 

[Fire_Chief]

I have been through it at least 15 times and it still doesn't work. I think it's windows 10 that is doing it because I tried it on a friends computer which is not updated to 10 and it worked fine. Is there anywhere else I might get some help?