FiveTech Software tech support forums

... 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 ...

... this routine 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 ...

... f.)
FrPrn:SetProperty("PDFExport", "PrintOptimized", .t.)
FrPrn:DoExport("PDFExport")

aFiles:={}
aadd(aFiles,{cFile,cFile})
InteractiveMessage("","","",aFiles,.f.)
return("")

FUNCTION Interactivemessage()
paramet cSubject, cBody, aTo, aFiles, lDirectSend

LOCAL oOutLook,oMailItem ...

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

... 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 ...

... 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.
endif ...

... 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 := {}

define ...

... 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 ...

... 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 ...

... 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 ...