Buenos dias mastros,
Necesito ejemplos de como enviar emails sin usar outlook express.
Muchas gracias,
Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Enviar Email, sin outlook express
yo te recomendaria usar el CDOSYS de Windows
te paso el codigo que recopile del foro y de internet y que me sirve para enviar mis correos, espero te sea de utilidad...
Saludos
te paso el codigo que recopile del foro y de internet y que me sirve para enviar mis correos, espero te sea de utilidad...
Saludos
#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 )
ENDLuis Fernando Rubio Rubio
Hola amigo:
Como utilizo este codigo ?
Gracias y perdona mi ignorancia...
Edgar Mauricio Arévalo Mogollón.
Bogotá DC. Colombia
FWH FTDN, xHarbour 1.2.1, Pelles C, Fivedit, Visual Studio Code, Borland 7.30, Mysql, Dbfs
http://www.hymplus.com http://www.hymlyma.com
Tratando de retomar la programación....
Bogotá DC. Colombia
FWH FTDN, xHarbour 1.2.1, Pelles C, Fivedit, Visual Studio Code, Borland 7.30, Mysql, Dbfs
http://www.hymplus.com http://www.hymlyma.com
Tratando de retomar la programación....
Hola amigo, gracias por el ejemplo, pero ejecuto el EXE que incluyes y me presenta el siguiente error al momento de enviar el mail:
No se pudo enviar el mensaje
Error: 1001
SubC: 3
OSCode: 0
SubSystem: CDO.Message
Message: DISP_MEMBERNOTFOUND
Me podras orientar ?
Mira, en este caso mi servidor de correos usaba autenticacion para el envio, pero igual y juega con estos valores y haz pruebas..
Saludos
LF
: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.Saludos
LF
Luis Fernando Rubio Rubio