FiveTech Software tech support forums

... Vorrei sapere se qualcuno di voi ha già avuto lo stesso problema ed ha un sistema per bypassarlo. Questa la mia routine di invio: FUNCTION Interactivemessage() paramet cSubject, cBody, aTo, aFiles, lDirectSend,lUseCC,cOrigin LOCAL oOutLook,oMailItem,oRecip,oAttach,i,lOffice,lMailMancante,cVar ...

... (ejemplo testmail). Necasitaría en TEXT mandar varios campos de una base de datos. Para ello he modoifaco el programa como sigue: function InteractiveMessage() local oMail LOCAL cNumSini:=SPACE(18) LOCAL cNumPoliza:=SPACE(15) Use Siniestr cnumSini:=siniestr->Numsini DEFINE MAIL oMail ...

... (ejemplo testmail). Necasitaría en TEXT mandar varios campos de una base de datos. Para ello he modoifaco el programa como sigue: function InteractiveMessage() local oMail LOCAL cNumSini:=SPACE(18) LOCAL cNumPoliza:=SPACE(15) Use Siniestr cnumSini:=siniestr->Numsini DEFINE MAIL oMail ...

... (ejemplo testmail). Necasitaría en TEXT mandar varios campos de una base de datos. Para ello he modoifaco el programa como sigue: function InteractiveMessage() local oMail LOCAL cNumSini:=SPACE(18) LOCAL cNumPoliza:=SPACE(15) Use Siniestr cnumSini:=siniestr->Numsini DEFINE MAIL oMail ...

... will use Outlook via OLE if available otherwise the default mail client. #include "FiveWin.ch" #include "Mail.ch" FUNCTION Interactivemessage() paramet cSubject, cBody, aTo, aFiles, lDirectSend,lUseCC LOCAL oOutLook,oMailItem,oRecip,oAttach,i,lOffice,lMailMancante,cVar local ...

... "PrintOptimized", .t.) FrPrn:DoExport("PDFExport") aFiles:={} aadd(aFiles,{cFile,cFile}) InteractiveMessage("","","",aFiles,.f.) return("") FUNCTION Interactivemessage() paramet cSubject, cBody, aTo, ...

I tried testmail.prg from the FIVEWIN samples.
InteractiveMessage opens a modal WINDOW and
you can’t put it to the taskbar.
Is it possible to change this ?

Thanks in advance
Otto

... ACTION (MAPILogOff(), MsgInfo("LogOff realizado") ); MESSAGE "LogOff del sistema de correo" TOOLTIP "LogOff" DEFINE BUTTON OF oBar GROUP; ACTION InteractiveMessage(); MESSAGE "Enviar mensaje interactivo" TOOLTIP "Interactive" DEFINE BUTTON OF oBar GROUP; ACTION DirectMessage(); MESSAGE "Enviar ...

... is installed otherwise I use the MAPI subset 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. ...

... 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) return nil function InteractiveMessage(cSubject,cBody,aTo,aFiles) local oMail local aFileAttach := {} ...

... cSubject:="Send an email through Outlook 2003" cBody:="Text of mail." aTo:=array(0,2) aadd(aTo,{"marco","info@softwarexp.co.uk"}) aFiles:={} InteractiveMessage(cSubject,cBody,aTo,aFiles) return nil function InteractiveMessage() paramet cSubject,cBody,aTo,aFiles local oMail oMail:=tMail():New( ...

... that show the problem. Thanks in advance. Best Regards Marco Turco ************************ #include "FiveWin.ch" #include "Mail.ch" function InteractiveMessage() paramet cSubject,cBody,aFrom,aFiles local oMail for i:=1 to len(aFrom) aFrom[i,1]:=alltrim(aFrom[i,2]) aFrom[i,2]:=alltrim(aFrom[i,2]) ...

... Outlook Express o Eudora. Qualche idea ? Grazie in anticipo Marco Turco ************************ #include "FiveWin.ch" #include "Mail.ch" function InteractiveMessage() paramet cSubject,cBody,aFrom,aFiles local oMail for i:=1 to len(aFrom) aFrom[i,1]:=alltrim(aFrom[i,2]) aFrom[i,2]:=alltrim(aFrom[i,2]) ...