用这个方法,add it to record script.
Sub SendEmail(Fromx, Tox, Subjectx, Bodyx, Ccx)
' Create Mail Object
Set mail = CreateObject("CDONTS.NewMail")
mail.To = Tox
mail.From = Fromx
mail.BodyFormat = 0
mail.MailFormat = 0
mail.Subject = Subjectx
mail.Body = Bodyx
mail.Cc = Ccx
mail.Send
End Sub
如果你的系统没有CDONTS.dll,这个方法就跑不起来,解决办法是到一个装了Visual studio的系统上search一下这个文件,拷到系统目录下,注册一下就可以用了。
然后在每个action上加入:
Dim cvalue, cbody
cvalue = GetFieldValue("category").GetValue()
cbody = GetFieldValue("headline").GetValue()
if cvalue = "requirement" then
sendmail("
test@abc.com","a,b,c,d","Change Req",cbody,"")
end if
这样就可以了,
至于冲突,应该不会的~