email (CDO) with SSL

[as_sass]

Thanks to a bunch of you and Ron's website, I figured out how to sen
email in Excel using CDO. I've automated a lot of stuff like this, bu
now I have a problem:

I'm sending the email through an university email account. M
university sent me an email saying that starting soon, they will onl
support logging into email accounts using an SSL connection. M
question is, will emailing in Excel using CDO work with SS
connections, and what is the command I will have to add to my code?

As my code is kind of complex and contains some stuff not relevant t
the issue, I have pasted the original code that I based it on below
It's from Ron's web site ().

Any thoughts are appreciated!

as

---------------------

Sub Mail_Small_Text_CDO()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
' Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

' iConf.Load -1 ' CDO Source Defaults
' Set Flds = iConf.Fields
' With Flds
'
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
"Fill in your SMTP server here"
'
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport"
= 25
' .Update
' End With

strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

With iMsg
Set .Configuration = iConf
.To = "(e-mail address removed)"
.CC = ""
.BCC = ""
.From = """Ron"" <[email protected]>"
.Subject = "Important message"
.TextBody = strbody
.Send
End With

Set iMsg = Nothing
Set iConf = Nothing
End Su

 

[Ron de Bruin]

Hi as_sass

I don't know this but will try to find a answer for you

 

[as_sass]

Ron,

That would be awesome!

Thanks for the effort,

a

 

[Ron de Bruin]

Only bad information for you on this moment.
If I know more I post here