www.FiveTechSoft.com
http://forums.fivetechsoft.com/
Code: Select all
#ifndef _CDOSYS_CH
#define _CDOSYS_CH
#define cdoSMTPServer "http://schemas.microsoft.com/cdo/configuration/smtpserver"
#define cdoSMTPServerPort "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
#define cdoSendUsing "http://schemas.microsoft.com/cdo/configuration/sendusing"
#define cdoSMTPPickupFolder "http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory"
#define cdoSMTPAuthenticate "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
#define cdoSendUserName "http://schemas.microsoft.com/cdo/configuration/sendusername"
#define cdoSendPassword "http://schemas.microsoft.com/cdo/configuration/sendpassword"
#define cdoSMTPUseSSL "http://schemas.microsoft.com/cdo/configuration/smtpusessl"
#endif
METHOD SendMail()
local oError := nil
local cEnvio := "algo@algo.com"
TRY
WSAStartup()
::cIp := GetHostByName( "algo.com" )
::oEmailCfg := CREATEOBJECT( "CDO.Configuration" )
WITH OBJECT ::oEmailCfg:Fields
:Item( cdoSMTPServer ):Value := ::cIp
:Item( cdoSMTPServerPort ):Value := 587
:Item( cdoSendUsing ):Value := 2 // cdoSendUsingPickup (1), cdoSendUsingPort (2), cdoSendUsingExchange (3)
:Item( cdoSMTPAuthenticate ):Value := .T.
:Item( cdoSMTPUseSSL ):Value := .F.
:Item( cdoSendUserName ):Value := "envio@algo.com" // direccion de la que se enviara el correo
:Item( cdoSendPassword ):Value := "contraseña"
:Update()
END WITH
::oEmailMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT ::oEmailMsg
:Configuration := ::oEmailCfg
:From := "Envio <envio@algo.com>"
:To := cEnvio
:Organization := "PRUEBAS"
:Subject := "ENVIO DE PRUEBAS"
:TextBody := "EL TEXTO DEL CORREO"
:Send()
END WITH
CATCH oError
MsgStop( "No se pudo enviar el mensaje electronico..." + CRLF +;
"Error: " + CHR(9) + transform( oError:GenCode, NIL) + CRLF +;
"SubC: " + CHR(9) + transform( oError:SubCode, NIL) + CRLF +;
"OSCode: " + CHR(9) + transform( oError:OsCode, NIL) + CRLF +;
"SubSystem: " + CHR(9) + transform( oError:SubSystem, NIL) + CRLF +;
"Mensaje: " + CHR(9) + oError:Description, oApp:cEmpresa )
END
Code: Select all
:Item( cdoSMTPServer ):Value := ::cIp
:Item( cdoSMTPServerPort ):Value := 587
:Item( cdoSendUsing ):Value := 2 // cdoSendUsingPickup (1), cdoSendUsingPort (2), cdoSendUsingExchange (3)
:Item( cdoSMTPAuthenticate ):Value := .T.
:Item( cdoSMTPUseSSL ):Value := .F.