Carlos Mora - hotmail lib

[MGA]

Amigo Carlos Mora,

existe uma LIB para enviar email via hotmail?

é possível compartilhar?

[Carlos Mora]

Hola SGS,
no he probado con hotmail pero creo que CDO puede funcionar. ¿Algún colega del foro usa CDO con hotmail? Siendo ambos de Microsoft, apostaría a que sí.

Nombre del servidor SMTP smtp-mail.outlook.com

Puerto SMTP 587

Método de cifrado SMTP STARTTLS

Code: Select all

loCfg := CREATEOBJECT( "CDO.Configuration" )
WITH OBJECT loCfg:Fields
   :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := "smtp-mail.outlook.com"
   :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := 587
   :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2
   :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := .T.
   :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := .T.
   :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := "yourAccount@outlook.com"  // <---- change this
   :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := "yourPassword" // <---- change this  
   :Update()
END WITH

loMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT loMsg
   :Configuration = loCfg
   :From = "yourAccount@outlook.com"  // <---- change this
   :To = "destination@mailserver.com" // <----- direcci¢n de correo del destinatario 
   :Subject = "Prueba con CDO" 
   :TextBody = "Este es un mensaje de prueba con CDO desde Harbour." 
   :Send() 
ENDWITH 
 

[MGA]

Vou testar obrigado.