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

Set iMsg = Nothing
Set iConf = Nothing
End Su

--
as_sas
-----------------------------------------------------------------------
as_sass's Profile: http://www.excelforum.com/member.php...nfo&userid=906
View this thread: http://www.excelforum.com/showthread.php?threadid=49199