Envio de email usando cdo - Sending email using cdo

[Marcelo Antonio Lázzaro Carli]

I use the routine below to send email without any problems, but I have a client that uses Microsoft email (smtp.office365.com port 587) and it asks for STARTTLS encryption. How to solve this in this routine, since this encryption doesn't exist?

 

Uso a rotina abaixo para enviar email sem problemas, mas tem um cliente que usa o email da Microsoft (smtp.office365.com porta 587) e ele solicita criptografia STARTTLS. Como resolver isto nesta rotina, já que não existe esta criptografia?

 

 

     oCfg:= win_oleCreateObject("CDO.Configuration")

     WITH OBJECT oCfg:Fields

       :Item("http://schemas.microsoft.com/cdo/configuration/smtpserver"      )     :Value:= ::cServerIP

       :Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport"  )     :Value:= ::nPortSMTP

       :Item("http://schemas.microsoft.com/cdo/configuration/sendusing"       )     :Value:= 2

       :Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")     :Value:= ::lAut

       :Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl"      )     :Value:= ::lSSL

       :Item("http://schemas.microsoft.com/cdo/configuration/sendusername"    )     :Value:= Alltrim(::cUser)

       :Item("http://schemas.microsoft.com/cdo/configuration/sendpassword"    )     :Value:= Alltrim(::cPass)

*      :Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"):Value:= 30

       :Update()

 

Att.
 
     Marcelo A. L. Carli
                      Marília/SP
         Capital Nacional do Alimento ®

      https://malc-informatica.ueniweb.com

              http://marcelo.lx.com.br
      Email / Skype: malc...@life.com.br

 

******************************************************************************
Se for repassar, apague o meu nome e endereço.
Ajude a combater a propagação de vírus e spams
coloque TODOS os destinatários em CÓPIA OCULTA (Cco / Bcc)
******************************************************************************

 

Livre de vírus. www.avast.com.

[Marcelo Antonio Lázzaro Carli]

Solução PORTA 25 E MARCAR SSL

 

Att.
 
     Marcelo A. L. Carli
                      Marília/SP
         Capital Nacional do Alimento ®

      https://malc-informatica.ueniweb.com

              http://marcelo.lx.com.br
      Email / Skype: malc...@life.com.br

 

******************************************************************************
Se for repassar, apague o meu nome e endereço.
Ajude a combater a propagação de vírus e spams
coloque TODOS os destinatários em CÓPIA OCULTA (Cco / Bcc)
******************************************************************************