Sending E-mail

[Fire_Chief]

I very much need to find a way to send email using CDO mail. I have been able to do it with Comcast and with Gmail.
I have tried for TWO weeks to find something that will work with Yahoo mail including code that Ron De Bruin wrote.
Nothing will work for yahoo mail. Please help me find a CDO program that will work.

I need someone much better at code than I am.

Thank You

 

[Fire_Chief]

I find it hard to believe that in all of Mrexcel there is no one that can write a CDO routine to use with Yahoo mail.
I was able to do it with Gmail and Comcast but not with Yahoo.

 

[Fluff]

Have you tried this

send email using Yahoo with vba – Free Excel Training Videos

 

[Fire_Chief]

Thank you but when I pasted this in a module the entire sheet lit up red. Everything

I do appreciate you trying. No one else has

Thanks

 

[Fluff]

The quotes are wrong, try

Sub email_using_Yahoo_VBA()

Dim myMail As CDO.Message

Set myMail = New CDO.Message

'Enable SSL Authentication
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

'SMTP authentication Enabled

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

'Set the SMTP server and port details

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.yahoo.com”"

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Set your username and password for your Yahoo Account

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "fccin2000@yahoo.com”"

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password”"

'Update all configuration fields
myMail.Configuration.Fields.Update

'Set the email properties

With myMail
.Subject = "Test Mail from Dr. takyar"""
.From = "fccin2000@yahoo.com"""
.To = "takyardinesh@gmail.com; takyar@exceltrainingvideos.com"""
.cc = "dinesh.takyar@gmail.com"""
.BCC = """"
.TextBody = "Welcome to MS Excel Training!"""
End With

myMail.Send
MsgBox ("Mail sent")

'Set myMail Variable to Nothing to free memory
Set myMail = Nothing

End Sub

 

[Fire_Chief]

No mistakes in the code but it doesn't work.
Failed to connect. Same as every other codeI have tried.

 

[Fluff]

In that case, I'm afraid I cannot help. I don't have a Yahoo email account to test with.

 

[Fire_Chief]

Try testncaa@yahoo.com ...... password = martin501 I made this up so I could test my codes.
It would be great if you continued to help?

Thanks Again

 

[Fluff]

I can't get it to connect either. In fact I can't even get outlook to connect.
I suggest you contact Yahoo & ask them.

 

[Fire_Chief]

ok Thanks

I have contacted Yahoo and didn't get far