Information générale
Catégorie:
COM/DCOM et OLE Automation
Hi John
this is the code I am using:
*fax document
local lcsubject lcattach
with thisform
.lbldoc.caption = "Faxing "+alltrim(spoolque.qmdocnm)
lcattach = .icdocpath+alltrim(qmdocnm)
lcsubject = alltrim(spoolque.qmsubject)
lcbody = ""
lcaddress = "[Fax:"+alltrim(spoolque.qmmaddr)+"]"
lnerr = .cusmail.sendmail("","",lcaddress,lcsubject,lcbody,lcattach)
select spoolque
if lnerr > 0
replace qmstatus with 'F'
replace qmfault with "Failed"
tableupdate(.t.)
return .f.
else
replace qmstatus with 'C'
replace qmfault with 'Done'
tableupdate(.t.)
return .t.
endif
endwith
By way of explanation, I am using a pool manager approach to automated email - it avoids the need to need to configure every workstation to handle it....
.cusmail is Nigel Coates' Outlookmail class, sitting on the pool manager form.
Geoff Phillips
>>I am using OutlookMail to send emails and Faxes through Outlook.
>>Essentially, this involves .rtf files as attachments. Works OK, but I am getting two faxes sent - the attached form and a blank page -although there is no body text. Wouldn't mind so much if it was page 2 of the same fax, but two separate transmissions?
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement