FiveTech Software tech support forums

... InteractiveMessage("","","",aFiles,.f.) return("") FUNCTION Interactivemessage() paramet cSubject, cBody, aTo, aFiles, lDirectSend LOCAL oOutLook,oMailItem,oRecip,oAttach,i,lOffice,lMailMancante if lDirectSend=NIL lDirectSend:=.f. endif ...

... o varios separados con comas) cAttach := PadR( "c:\fwh\bitmaps\fivewin.bmp", 180 ), ;// archivo anexo (uno o varios separados con comas) cSubject := Space( 60 ), ; // asunto cBody := Space( 500 ), ; // cuerpo del mensaje nPort := 25, ; // puerto usado por el servidor de correo cUser := ...

Try: FUNCTION HB_SendMail( cServer, nPort, cFrom, aTo, aCC, aBCC, cBody, cSubject, aFiles, cUser, cPass, cPopServer, nPriority, lRead, lTrace, lPopAuth, lNoAuth, nTimeOut, cReplyTo ) /* cServer -> Required. IP or domain name of the mail server nPort -> ...

****************************************************************** Function SendMail(cNameFrom,cFrom,cNameTo,cTo,cBcc,cSubject,cText) ****************************************************************** Local cTxt If Empty(cNameFrom) ; cNameFrom:="" ; Endif If Empty(cFrom) ...

... := { || oOutMail:nStatus := 7 } oOutMail:SendMail( cFROM,; // From { cTO },; //, cPMOEMAIL, cSPOEMAIL },; // To cMESSAGE,; // Msg Text cSUBJECT,; {"C:\DBTMP\PROJINFO.BAT"},; // attachment aCC, ; // cc { }, ; // bc .F., ; // no return receipt NIL ) // not html

... := { || oOutMail:nStatus := 7 } oOutMail:SendMail( cFROM,; // From { cTO },; //, cPMOEMAIL, cSPOEMAIL },; // To cMESSAGE,; // Msg Text cSUBJECT,; {"C:\DBTMP\PROJINFO.BAT"},; // attachment aCC, ; // cc { }, ; // bc .F., ; // no return receipt NIL ) // not html Here is tsmtp class code ...

MAPI Mail Syntax: DEFINE MAIL [ <oMail> ]; [ SUBJECT <cSubject> ]; [ TEXT <cText> ]; [ TYPE <cType> ]; [ DATE <dDate> ]; [ TIME <cTime> ]; [ CONVERSATION <cConversation> ]: [ RECEIPT ]; [ FROM USER ]; [ FILES <cFilename1> ...

... 'suisrm@mas-suis.com.ar','ana1234','mail.mas-suis.com.ar',3,.F.,.F.,.T.) * FUNCTION luizSendMail( cServerIP, nPort, cFrom, aTo, cMsg, cSubject, aFiles,cUser, cPass, cPopServer, nPriority, lRead, lTrace ,lPopAuth) Saludos, Daniel Puente Marchione Sistemas Puerto Santa Cruz, Argentina ...

... "Fivewin.ch" STATIC hLib function invia() cFrom:="customers@softwarexp.co.uk" cServer:="mail.softwarexp.co.uk" cTo:="m.turco@softwarexp.co.uk" cSubjeCt:="Richiesta di assistenza" cMessage:="Problema generale di contabilit…" cSender:="Studio amministrativo" cUser:="customers@softwarexp.co.uk" ...

... fnzioni dll. Ecco il codice leggermente semplificato che mi da l'errore. Qualche idea ? Grazie. Marco FUNCTION SENDMAIL( cFrom, cServer, cTo, cSubject, cMessage, aAttach, cSender, cUser, cPassword, aCc, lHtml, cPort ) LOCAL cMsgFile := "test.txt" LOCAL cCmd := "SndMail -f " + cFrom + " -X ...

... hAppItem, "StartTime", cTime + ":00" ) SET CENTURY ON OLESetProperty( hAppItem, "Duration", nLenInMin * 60 ) OLESetProperty( hAppItem, "Subject", cSubject ) OLESetProperty( hAppItem, "Body", cNotiz ) OLESetProperty( hAppItem, "Mileage", 225 ) OLEInvoke( hAppItem, "Save" ) hAppItem := NIL hOutlook ...

... } oOutMail:bDone = { || oWndMdi:SetMsg( "Message sent successfully" ) } oOutMail:SendMail( cFROM,; // From { cTO },; // To cMESSAGE,; // Msg Text cSUBJECT,; {"C:\DBTMP\PROJINFO.BAT"},; // attachment aCC, ; // cc array <-- BLOWS HERE { }, ; // bc .F., ; // no return receipt NIL ) // not html ...

... "Message sent successfully" ) } oOutMail:SendMail( cFROM,; // From { cTO },; //, cPMOEMAIL, cSPOEMAIL },; // To cMESSAGE,; // Msg Text cSUBJECT,; {"C:\DBTMP\PROJINFO.BAT"},; // attachment { cSPOEMAIL, cPMOEMAIL }, ; // cc { }, ; // bc .F., ; // no return receipt NIL ) // not html SysReFresh()

... function main() local oWnd define window oWnd activate window oWnd on init doit() return nil function doit() local oMail,aCustomer:={} local cSubject:="Prueba" local cMessage:="Prueba de envio de e-mail" aadd(aCustomer,"dbarrio@jla.com.ar") DEFINE MAIL oMail; SUBJECT cSubject; TEXT cMessage ...

... oDLG1 ) LOCAL oRsUser, cSQL, oERR, SAYING, oRsOwn LOCAL cHOST, cUSEREID, cPMNAME, cPMEMAIL, cPMONAME, cPMOEMAIL LOCAL oOutMail, cIP, cFROM, cTO, cSUBJECT, cMESSAGE xLOGIN := WNetGetUser() // FiveWin function xLOGIN := UPPER( xLOGIN ) xLOGIN := xLOGIN+SPACE(8) xLOGIN := SUBSTR(xLOGIN,1,8) SAYING ...