FiveTech Software tech support forums

... is another mail option (CDO, this one and MAPI) I will look into CDO. if empty(cFile) DEFINE MAIL oMail ; SUBJECT oRsEmail:header; TEXT cText; TO cMail else DEFINE MAIL oMail ; SUBJECT oRsEmail:header; TEXT cText; FILES cFile, cFile ; TO cMail endif ACTIVATE MAIL oMail For me automatic is when ...

Is mailing with CDO a better way than with :

DEFINE MAIL oMail ;
SUBJECT oRsEmail:header;
TEXT cText;
FILES cFile, cFile ;
TO cMail

Just Curious...

thanks Enrico,
can I set some values into my application as defines ?

the user have

cMail,
cSubJect,
cMessage_body
cFile

amigo prueba asi

cMail:="prueba@gmail.com"
REDEFINE BTNBMP oMail ID 300 OF oDlg RESOURCE "Email" NOBORDER;
TOOLTIP "Redactar mensaje..." ;
ACTION ShellExecute(ownd:hwnd,"Open","MailTo:"+cMail,Nil,Nil,1)

Saludos

... el documento manualmente, y luego la envían por mail en lotes. En el caso de los otros pdf al crearlo por código es rapidísimo y al poner correo(cMail,,("Enviamos resumen de cuenta desde " + transform(dresult[1],"@d") + " hasta " + transform(dresult[1],"@d") ...

Buenos días surGom, observo en el código que luego de generar el pdf lo envías por mail. if !empty(cmail) correo(cMail,,("Enviamos resumen de cuenta desde " + transform(dresult[1],"@d") + " hasta " + transform(dresult[1],"@d") ),"Resumen ...

... Antonio, ahora me da un error de sistema. Ahora tengo que irme pero mañana volvere. Siento darte la lata, pero necesito hacer esto. HB_SendMail( cMail,{cFile},, ; "Mensaje de error generado por el sistema", ; "Incos","wmormar@yahoo.com.mx", ; cUsuario, ; cClave, ; cSmtp,,lAutentifica,nSegundos ...

Antonio, ahora me da un error de sistema. Ahora tengo que irme pero mañana volvere. Siento darte la lata, pero necesito hacer esto. HB_SendMail( cMail,{cFile},, ; "Mensaje de error generado por el sistema", ; "Incos","wmormar@yahoo.com.mx", ; cUsuario, ; cClave, ; cSmtp,,lAutentifica,nSegundos ...

... oHoja, "Cells", nRow, 2 ), "Value" ) If Valtype( cCCC) = "U" cCCC := "00000000000000000000" EndIf cccc := Upper( cccc ) Traza(1, "cccc=", cccc ) cmail := OleGetProperty( OleGetProperty( oHoja, "Cells", nRow, 3 ), "Value" ) If Valtype( cmail) = "U" cmail := Space(1) EndIf cmail := Upper( cmail ...

... oHoja, "Cells", nRow, 2 ), "Value" ) If Valtype( cCCC) = "U" cCCC := "00000000000000000000" EndIf cccc := Upper( cccc ) Traza(1, "cccc=", cccc ) cmail := OleGetProperty( OleGetProperty( oHoja, "Cells", nRow, 3 ), "Value" ) If Valtype( cmail) = "U" cmail := Space(1) EndIf cmail := Upper( cmail ...