HB_SendMail( cServer, nPort, cFrom, aTo, aCC, aBCC, cBody, cSubject, aFiles, cUser, cPass, cPopServer,nPriority, lRead, lTrace, lPopAuth) Where: cServer -> Required. IP or domain name of the mail server nPort -> Optional. Port used my ...
HB_SendMail( cServer, nPort, cFrom, aTo, aCC, aBCC, cBody, cSubject, aFiles, cUser, cPass, cPopServer,nPriority, lRead, lTrace, lPopAuth) Where: cServer -> Required. IP or domain name of the mail server nPort -> Optional. Port used my ...
... con las opciones de envío. (20080907145815.op [día i hora])) DATA lDeleteTemp AS LOGICAL // Indicador de borrado de ficheros temporales. DATA aTo AS ARRAY // Array de los Destinatarios. DATA cTf AS STRING // Fichero con los Destinatarios. (20080907145815.tf [día i hora])) DATA aCc AS ARRAY ...
Prueba el ejemplo TESTSMTP de Fivewin. El metodo SENDMESSAGE de la clase recibe un parametro que es aTO, un array con las direcciones de correo de todos los destinatarios, asi que de un solo paso haces todo lo que tienes que hacer. ejemplo: cTemp := MEMOREAD("fichero.txt") ...
Hola de nuevo! Sigo probando FWH, realmente extraño mucho a FW para CLIPPER.... no ato ni desato.... Con un simple programa no avanzo.... ya logré quitarle los errores a un programa que hace la función de abrir los archivos de acuerdo a como los necesiten los otros ...
... system. You can make this using this function: #include "FiveWin.ch" #include "Mail.ch" FUNCTION Interactivemessage() paramet cSubject, cBody, aTo, aFiles, lDirectSend LOCAL oOutLook,oMailItem,oRecip,oAttach,i if lDirectSend=NIL lDirectSend:=.f. endif if cSubject=NIL cSubject:="" endif if cBody=NIL ...
... Outlook 2003 SP2 I tested with attached files and multiple addresses #include "FiveWin.ch" #include "Mail.ch" function Main local cSubject,cBody,aTo,aFiles cSubject:="Send an email through Outlook 2003" cBody:="Text of mail." aTo:={"info@softwarexp.co.uk"} aFiles:={} InteractiveMessage(cSubject,cBody,aTo,aFiles) ...
... a working sample to send an email ?> Thanks in advance, Marco *** #include "FiveWin.ch" #include "Mail.ch" function Main local cSubject,cBody,aTo,aFiles cSubject:="Send an email through Outlook 2003" cBody:="Text of mail." aTo:=array(0,2) aadd(aTo,{"marco","info@softwarexp.co.uk"}) aFiles:={} ...
... .Use Clickyes (Read this article http://www.contextmagic.com/express-clickyes/) software too if you like the below code function SendMail(cText,ato,cSubject,afiles,bodyformat,mailfrom) local oMail,i:=0,oItem default bodyformat:=1 oMail:= CREATEOBJECT( "outlook.application" ) oItem:=oMail:createitem(0) ...
... + ";" + "secondmailadress" +....etc ENVMAIL({DDEST},"Title ","msg",{CNOMDIR() + "\EXPcod.dbf" ,CNOMDIR() + "\EXPcom.dbf" }) FUNCTION ENVMAIL(aTo,cSubject,cMsg,aFiles) PS : You have to reset the working directory after sending the mail, otherwise you will get surprise ! lChDir( cFilePath( ...
... John, Try something like this local oMail default cSubject:="" DEFINE MAIL oMail ; SUBJECT cSubject ; TEXT cmsg // FROM USER oMail:aRecipients := aTo if aFiles!=nil oMail:aFiles := ACLONE(aFiles) endif ACTIVATE MAIL oMail Richard