BPM send mail

jesse1219

在BPM 中写以下代码不会自动发邮件。
功能。PO批准后自动发邮件给上级批核？

define variable vapprov as character no-undo.
for each ttPOHeader where ttPOHeader.ApprovalStatus = 'p'.
if available ttPOHeader then do:
find first PurAgent where PurAgent.Company = ttPoHeader.Company and PurAgent.BuyerID = ttPOHeader.BuyerID.
assign vapprov = PurAgent.BuyerID.
find first PurAgent where PurAgent.Company = ttPOHeader.Company and PurAgent.BuyerID = vapprov.
assign vapprov = PurAgent.emailaddress.
if vapprov <> '' then do:
define variable vForm as character no-undo.
define variable vTo as character no-undo.
define variable vCC as character no-undo.
define variable vSubject as character no-undo.
define variable vBody as character no-undo.
define variable hEmailEx as handle no-undo.
run Bpm/BpmEmail.p persistent set hEmailEx.

assign vForm = 'XXXXX@smart.com'.
assign vTo = vapprov.
assign vCC = ''.
assign vSubject = vSubject + 'Purchase order '+ String(ttPOHeader.PONum) + ' needs approval'.
assign vBody = vBody + 'Test BPM Function'.

run SengEmail in hEmailEx(false,CUR-COMP,vForm,vTo,vCC,vSubject,vBody,"").

if valid-handle(hEmailEx) then delete procedure hEmailEx.
leave.
end.
end.
end.

cexogd123

progress 语言不熟，看得有点晕。

north123

邮件发送用这个思路就不对。直接去系统里设置就好了，不需要BPM的。

brightchen2011

怎么设置啊？

ぷぷ仦揂窝↗

north123 发表于 2011/11/10 10:14
邮件发送用这个思路就不对。直接去系统里设置就好了，不需要BPM的。

正有此方面的需求，应该怎么做呢？