Sending mail

Fire_Chief

Well-known Member
Joined
Jun 21, 2003
Messages
690
Office Version
  1. 365
Platform
  1. Windows
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
 

Excel Facts

Spell Check in Excel
Press F7 to start spell check in Excel. Be careful, by default, Excel does not check Capitalized Werds (whoops)
I get the error "The transport failed to connect to the server"
 
Upvote 0
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
 
Upvote 0
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"
 
Upvote 0
I know pretty well Ron's code ... since have been using it for years ...

The question is Office 365 ... and the SMTP server ...
 
Upvote 0
OK. Please help me out here. I use Norton for my internet security. What do I look for?
 
Upvote 0
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
 
Upvote 0
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?
 
Upvote 0

Forum statistics

Threads
1,213,557
Messages
6,114,291
Members
448,564
Latest member
ED38

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top