How do I send email using TLS in Access 2010 RRS feed

  • Question

  • In Access 2010 the client upgrade to Outlook 365.  I need change my code from SSL to TLS.  Here is the code I had before.  What changes do I need to make?  --Thanks Keith

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

            With Flds
                .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
                .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com"   
                .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25    ---- Change here for TLS??
               '.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
         .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True  'Use SSL for the connection (True or False)
         'If your server requires outgoing authentication uncomment the lines blow and use a valid email address and password.
         .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  'basic (clear-text) authentication
         .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
         .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "?

    Monday, November 21, 2016 4:43 PM

All replies