Amigo Carlos Mora,
existe uma LIB para enviar email via hotmail?
é possÃvel compartilhar?
Board index FiveWin para Harbour/xHarbour Carlos Mora - hotmail lib
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
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
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()
ENDWITHSaludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Vou testar obrigado.