Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() 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 |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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" wrote in message ... 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 = " CC = "" BCC = "" From = """Ron"" " 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 |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() Ron, That would be awesome! Thanks for the effort, a -- 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 |
#4
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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" wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Using Macro how to create email link for the email addresses in aRange or Selection | Excel Worksheet Functions | |||
send wkbk as an email attachment with an email address copied from | Excel Discussion (Misc queries) | |||
can I copy a column of email addresses, paste into email address? | New Users to Excel | |||
Transfer Email addresses from spreadsheet to email address book | Excel Discussion (Misc queries) | |||
Email editor closes when forwarding Excel-embedded email | Setting up and Configuration of Excel |