General information
Category:
COM/DCOM and 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?
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only