Information générale
Catégorie:
COM/DCOM et OLE Automation
PMFJI, but shouldn't:
lcattach = .icdocpath+alltrim(qmdocnm)
be:
lcattach = .icdocpath+alltrim(spoolQue.qmdocnm)
>*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
>
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