Hola Francisco:FranciscoA wrote:He probado con el codigo que suministras (unicamente cambie los botones y omiti el attach), y da el siguiente error:
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"
#define cdoSMTPConnectionTimeout "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
#endif
Function fSendMail( cMailServer, cFrom, cTo, cSubject, cBody, cAttach, cBCC, cUser, cPass, nPort )
Local oCfg, oMsg, oError, ;
lAuth := ! Empty( cUser ) .and. ! Empty( cPass ), ;
nSendOpt := 2 // send using: 1 = pickup folder 2 = port 3 = remote mail server
Default nPort := 25, ;
cSubject := "", ;
cBody := ""
CursorWait()
Try
oCfg := CreateObject( "CDO.Configuration" )
With Object oCfg:Fields
:Item( cdoSMTPServer ):Value := Trim( cMailServer )
:Item( cdoSMTPServerPort ):Value := nPort
:Item( cdoSendUsing ):Value := nSendOpt
* :Item( cdoSMTPConnectionTimeout):Value = 10 // intento hacer prueba con timeout para ver si es por eso.
If lAuth
:Item( cdoSMTPAuthenticate ):Value := .T.
:Item( cdoSendUserName ):Value := Trim( cUser )
:Item( cdoSendPassword ):Value := Trim( cPass )
:Item( cdoSMTPUseSSL ):Value := .T.
EndIf
:Update()
End With
oMsg := CreateObject( "CDO.Message" )
With Object oMsg
:Configuration := oCfg
:From := Trim( cFrom )
:To := Trim( cTo )
:Subject := Trim( cSubject )
:TextBody := "Prueba de envio"
:HTMLBody := "<HTML>"+"<HEAD>"+"<BODY>"+"<b> This is the test HTML message body</b></br>"+"</BODY>"+"</HTML>" // prueba en html para ver si así funciona
*:TextBody := Trim( cBody )
:Send()
End With
Catch oError
CursorArrow()
MsgStop( "No se pudo enviar el mensaje" + CRLF + "Error: " + cValToChar( oError:GenCode) + CRLF + ;
"SubC: " + cValToChar( oError:SubCode ) + CRLF + "OSCode: " + cValToChar( oError:OsCode ) + CRLF + ;
"SubSystem: " + cValToChar( oError:SubSystem ) + CRLF + "Mensaje: " + oError:Description )
oCfg := Nil
oMsg := Nil
Return Nil
End Try
oCfg := Nil
oMsg := Nil
SndPlaySound( GetWinDir() + "\media\Tada.wav", 0 )
CursorArrow()
Return Nil
Hola Manuel. Muchas gracias por contestar. Así quedó el código:mmercado wrote:Hola Francisco:FranciscoA wrote:He probado con el codigo que suministras (unicamente cambie los botones y omiti el attach), y da el siguiente error:
Hice _ que mencionas a mi ejemplo y aquí funciona perfectamente con FWH 9.01 y también con FWH 8.02 (yo uso xHarbour).
Podrías poner aquí el programa como quedó después de tus cambios ?
También dime por favor la versión que usas de FWH y cual servidor de correo estás usando
Un abrazo.
Manuel Mercado
Hola Francisco:FranciscoA wrote:He probado con http://www.google.com, http://www.yahoo.com
Code: Select all
// Si usas Harbour, esto hace compatible TRY CATCH
#xcommand TRY => BEGIN SEQUENCE WITH {|o| break(o)}
#xcommand CATCH [<!oErr!>] => RECOVER [USING <oErr>] <-oErr->
#xcommand FINALLY => ALWAYS
Procedure Main()
Local loCfg, loMsg, oError
SetMode( 25, 80 )
TRY
loCfg := CREATEOBJECT( "CDO.Configuration" )
WITH OBJECT loCfg:Fields
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := "smtp.gmail.com"
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := 465
: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 := "testcdo@gmail.com"
:Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := "prueba2345"
:Update()
END WITH
loMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT loMsg
:Configuration = loCfg
:From = "testcdo@gmail.com"
:To = "carlosantoniomora@gmail.com" // <----- Coloca ac tu direcci¢n de correo
:Subject = "Prueba con CDO"
:TextBody = "Este es un mensaje de prueba con CDO desde Harbour."
:Send()
ENDWITH
CATCH oError
Alert( "No se pudo enviar el mensaje" + ";" + ;
"Error: " + TRANSFORM(oError:GenCode, NIL) + ";" + ;
"SubC: " + TRANSFORM(oError:SubCode, NIL) + ";" + ;
"OSCode: " + TRANSFORM(oError:OsCode, NIL) + ";" + ;
"SubSystem: " + TRANSFORM(oError:SubSystem, NIL) + ";" + ;
"Mensaje: " + oError:Description )
END
RETURNFrancisco, te han funcionado desde Vista? podrías indicarnos el S.O.? GRACIASFranciscoA wrote:Estimado Manuel: Tu ejemplo me funcionó perfectamente, en Gmail.com, cambiando el No. de Puerto de 25 a 465, lo cual hice basándome en el ejemplo de Carlos.
Carlos: Tu código funciona perfectamente en Gmail.com.
Gracias a ambos por sus aportes y orientaciones.
Code: Select all
loMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT loMsg
:Configuration = loCfg
:From = "micorreo@hotmail.com"
:To = "to@hotmail.com;to2@hotmail.com" // <----- Coloca ac tu direcci¢n de correo
:Subject = "Fichero de Salidas"
:AddAttachment := cAttach
:TextBody = "Adjunto le enviamos el fichero con las salidas de hoy " + dtoc(date()) + CRLF + CRLF + ;
"Sobre Cualquier Problema debe dirigirse al dpto. de Salidas. "
:Send()
ENDWITH
