Carlos Mora - hotmail lib
Posted: Sun May 06, 2018 8:58 pm
Amigo Carlos Mora,
existe uma LIB para enviar email via hotmail?
é possível compartilhar?
existe uma LIB para enviar email via hotmail?
é possível compartilhar?
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