求助!如何实现向两个域中的收件人同时发邮件?
邮件收件人存放在两个域中:pDoc.ReceiptPerson和pDoc.SpecialReceiptPerson原来是分开发邮件的:
If pDoc.ReceiptPerson(0) <> "" Then
mailDoc.SendTo = pDoc.ReceiptPerson
Call mailDoc.Send( False )
End If
If pDoc.SpecialReceiptPerson(0) <> "" )Then
mailDoc.SendTo = pDoc.SpecialReceiptPerson
Call mailDoc.Send( False )
End If
现在想向两个域中的收件人同时发邮件,该如何实现呢?
mailDoc.SendTo = pDoc.ReceiptPerson + pDoc.SpecialReceiptPerson
这样直接相加会报错.......
大家帮帮忙....谢了 --------------------编程问答-------------------- mailDoc.SendTo = ArrayAppend(pDoc.ReceiptPerson,pDoc.SpecialReceiptPerson ) --------------------编程问答-------------------- sendto的值可以是数组 --------------------编程问答-------------------- 谢了
我再加了个Arrayunique,把重复的mail地址去掉
mailDoc.SendTo = Arrayunique( Arrayappend( pDoc.ReceiptPerson , pDoc.SpecialReceiptPerson )) --------------------编程问答-------------------- 用数组
Dim temp(2) As Variant
temp(0)=doc.ITEM(0)
temp(1)=doc...
maidoc.sendto=temp --------------------编程问答-------------------- 那个sendto可以使数组,也可以理解是variant类型。
在domino里面就一个多值域·
--------------------编程问答-------------------- mark --------------------编程问答-------------------- mailDoc.SendTo = Evaluate(|@unique(ReceiptPerson:SpecialReceiptPerson)|,pDoc)
补充:企业软件 , Lotus