email (CDO) with SSL

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

I'm sending the email through an university email account. My university sent me an email saying that starting soon, they will only support logging into email accounts using an SSL connection. My question is, will emailing in Excel using CDO work with SSL 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 to the issue, I have pasted the original code that I based it on below. It's from Ron's web site (www.rondebruin.nl).

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 = "[email protected]"
.CC = ""
.BCC = ""
.From = """Ron"" <[email protected]>"
.Subject = "Important message"
.TextBody = strbody
.Send
End With

Set iMsg = Nothing
Set iConf = Nothing
End Sub

Hi as_sass

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


--
Regards Ron de Bruin
http://www.rondebruin.nl


"as_sass" <[email protected]> wrote in message
news:[email protected]...
>
> Thanks to a bunch of you and Ron's website, I figured out how to send
> email in Excel using CDO. I've automated a lot of stuff like this, but
> now I have a problem:
>
> I'm sending the email through an university email account. My
> university sent me an email saying that starting soon, they will only
> support logging into email accounts using an SSL connection. My
> question is, will emailing in Excel using CDO work with SSL
> 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 to
> the issue, I have pasted the original code that I based it on below.
> It's from Ron's web site (www.rondebruin.nl).
>
> 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 = "[email protected]"
> CC = ""
> BCC = ""
> From = """Ron"" <[email protected]>"
> Subject = "Important message"
> TextBody = strbody
> Send
> End With
>
> Set iMsg = Nothing
> Set iConf = Nothing
> End Sub
>
>
> --
> as_sass
> ------------------------------------------------------------------------
> as_sass's Profile: http://www.excelforum.com/member.php...fo&userid=9065
> View this thread: http://www.excelforum.com/showthread...hreadid=491994
>

Ron,

That would be awesome!

Thanks for the effort,

as

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


--
Regards Ron de Bruin
http://www.rondebruin.nl


"as_sass" <[email protected]> wrote in message
news:[email protected]...
>
> Ron,
>
> That would be awesome!
>
> Thanks for the effort,
>
> as
>
>
> --
> as_sass
> ------------------------------------------------------------------------
> as_sass's Profile: http://www.excelforum.com/member.php...fo&userid=9065
> View this thread: http://www.excelforum.com/showthread...hreadid=491994
>