FiveTech Software tech support forums

... = { || oDlg:SetMsg( "Connecting to mail.lpsi.qc.ca" ) } oOutMail:bConnected = { || oDlg:SetMsg( "Connected" ) } oOutMail:bDone = { || oDlg:SetMsg( "Message sent successfully" ) } oOutMail:SendMail( "wilsonrw@sympatico.ca",; // From { "rwilson@mail.lpsi.qc.ca" ...

... = { || oDlg:SetMsg( "Connecting to mail.lpsi.qc.ca" ) } oOutMail:bConnected = { || oDlg:SetMsg( "Connected" ) } oOutMail:bDone = { || oDlg:SetMsg( "Message sent successfully" ) } oOutMail:SendMail( "rwilson@lpsi.qc.ca",; // From { "wilsonrw@sympatico.ca" ...

... viene con Feivewin. Dado que mi intención es enviar varios mails uno detrás de otro, he necesitado modificarlo de la siguiente manera: oOutMail:bDone = { || oWnd:SetMsg( "Message sent successfully" ) } por: oOutMail:bDone = { || (oWnd:SetMsg( "Message sent successfully" ), ...

... = { || oWnd:SetMsg( "Connecting to smtp ..." ) } oMail:bConnected = { || oWnd:SetMsg( "Connected" ) } * oMail:bDone = { || oWnd:SetMsg( "Mail Done" ) } * oMail:SendMail("jclip@skynet.be" ,; // From aaqui,; // To wdetail ,; // Msg Text wsubject,; ...

... ) ) oOutMail:bConnecting := { || oWndMdi:SetMsg( "Connecting to "+cHOST ) } oOutMail:bConnected := { || oWndMdi:SetMsg( "Connected" ) } oOutMail:bDone := { || oWndMdi:SetMsg( "Message sent successfully" ) } oOutMail:bFailure := { || oOutMail:nStatus := 7 } oOutMail:SendMail( cFROM,; // From { ...

... ) ) oOutMail:bConnecting := { || oWndMdi:SetMsg( "Connecting to "+cHOST ) } oOutMail:bConnected := { || oWndMdi:SetMsg( "Connected" ) } oOutMail:bDone := { || oWndMdi:SetMsg( "Message sent successfully" ) } oOutMail:bFailure := { || oOutMail:nStatus := 7 } oOutMail:SendMail( cFROM,; // From { ...

Yury,

thanks for your input, but it still doesnt work here
When no authentification is required, there are no problems and the blocks bConnected and bDone are evaluated. But with authentification, they both aren't evaluated, but also bFailure doesn't "show up"...

Rick,

Just after:

oOutMail:bDone = { || oWndMdi:SetMsg( "Message sent successfully" ) }

... ) ) oOutMail:bConnecting = { || oWndMdi:SetMsg( "Connecting to "+cHOST ) } oOutMail:bConnected = { || oWndMdi:SetMsg( "Connected" ) } oOutMail:bDone = { || oWndMdi:SetMsg( "Message sent successfully" ) } oOutMail:SendMail( cFROM,; // From { cTO },; // To cMESSAGE,; // Msg Text cSUBJECT,; {"C:\DBTMP\PROJINFO.BAT"},; ...

... ) ) oOutMail:bConnecting = { || oWndMdi:SetMsg( "Connecting to "+cHOST ) } oOutMail:bConnected = { || oWndMdi:SetMsg( "Connected" ) } oOutMail:bDone = { || oWndMdi:SetMsg( "Message sent successfully" ) } oOutMail:SendMail( cFROM,; // From { cTO },; //, cPMOEMAIL, cSPOEMAIL },; // To cMESSAGE,; ...

... MsgInfo( cIP ) * oOutMail:bConnecting = { || MsgInfo( "Connecting to "+cHOST ) } * oOutMail:bConnected = { || MsgInfo( "Connected" ) } * oOutMail:bDone = { || MsgInfo( "Message sent successfully" ) } oOutMail:SendMail( cFROM,; // From { cTO },; // To cMESSAGE,; // message cSUBJECT, ) // subject ...

... cIP ) oOutMail:bConnecting = { || oWnd:SetMsg( "Connecting to hot.pl..." ) } oOutMail:bConnected = { || oWnd:SetMsg( "Connected" ) } oOutMail:bDone = { || oWnd:SetMsg( "Message sent successfully" ) } oOutMail:SendMail( "inkom@hot.pl",; // From { "inkom.kj@wp.pl" },; // To "It is working!!!",; ...

... = { || oWnd:SetMsg( "Connecting to smtp.fivetechsoft.com..." ) } oOutMail:bConnected = { || oWnd:SetMsg( "Connected" ) } oOutMail:bDone = { || oWnd:SetMsg( "Message sent successfully" ) } oOutMail:SendMail( "alinares@fivetechsoft.com",; // From { "alinares@fivetechsoft.com" },; ...

... oOutMail:bConnecting = {|| cStat1:= "Connecting",Em2Dlg:Update() } oOutMail:bConnected = {|| cStat2:= "Connected",Em2Dlg:Update() } oOutMail:bDone = {|| EmSend := .T.} oOutMail:SendMail(ALLTRIM(US->UOUTLADR),; {ALLTRIM(LOWER(cEmail))},FmText,; ALLTRIM(EmOnde),TabAttach) ---------------------------------------------- ...

... + ") and waiting for response..." ) } oMail:bConnected := {|| oDlg:SetMsg( "Connected and sending mail and attachments..." ) } if lMsgInfo oMail:bDone := {|| MsgInfo('Mail sent complete') } else oMail:bDone := {|| nCount++ } end oMail:SendMail( ; cSender, ; // from/de { cTo }, ; // to/para (arreglo) ...