TD的WorkFlow定制，遇到问题之四（关于根据需要自动发送邮件的问题），请指教

caijie0304

TD的WorkFlow定制，遇到问题之四（关于根据需要自动发送邮件的问题）：
TD中Config Mail可以设置某些字段改变时自动发邮件，并可以对用户设置条件。但却有局限：对用户设置的条件只支持（字段A=*** and 字段B=***）这样的形式，也就是说：
如果想设置一个用户在几种不同的情况下能收到邮件，在TD提供的这个功能里面做不到。

我目前设置发邮件的规则是简单的定为状态、Assign to字段变化时，给Assign to对应的人发邮件。
但实际应用中经常需要在自动发上述邮件的同时，给其他相关人员发邮件（如同步给缺陷登记者发邮件），该怎么实现呢？（我是测试组长，其它组同事给我提了好多类似的需求，大家帮帮我吧）

在登记本求助前，我做了这样的努力：
1、我在TD的WorkFlow中发现有Defects_Bug_AfterPost这样的子过程，想必应该是允许在其中定义代码，实现Post后自动发邮件的，可我的确不知道该如何写这个代码；
2、我查看了TD的帮助，未能找到相关的信息；
3、我查看了本论坛的相关话题（有不少话题提出了自动发邮件的问题，但基本没有什么明确的答案）

没办法了，只能向大家求助！

caijie0304

我在TD的OTA Guide中（第130页）找到了TD提供的发送邮件的方法，如下：
Mail ( VARIANT Items, BSTR SendTo [,BBTR SendCc] [,long Option] [,BSTR Subject] [,BSTR Comment] )

各参数说明就不罗列了。

希望大家和我一起研究一下具体该怎样用这个方法，谢谢！

cuicuitiao

郁闷啊,我在TD8.0中各项配置都配置好了,手动发邮件可以,但是自动发就是不行.

狼外婆

caijie0304 ,
不知道你的问题解决了吗？

如果是 要求在状态、Assign to字段变化时，同步给缺陷登记者发邮件的话，可以通过简单的设置来实现：
选择CUSTOMIZE->>Configure Mail, 在condition卡片上点选Detected By, 勾上右面"Send Mail On"的条件"All Defects"。

如果要求还给其他相关人员也发邮件（人员不定，固定的话也用上法），只能写代码来实现了，用上你从OTA guide里找到的发邮件方法：

Sub SendDefect (iObjectId, strTo, strCc, strSubject, strComment)
    On error Resume Next
    Dim objBugFactory, objBug
        Set objBugFacotry=TDConnection.BugFactory
        Set objBug=objBugFactory.Item(iObjectId)
        objBug.Mail strTo, strCc,2,strSubject,strComment
        Set objBug=Nothing
        Set objBugFacotry=Nothing
    ...
    On error Goto 0
End Sub

用法：可以在FieldChange脚本中调用


HTH.