Question

我正在尝试使用自定义表单在Outlook中创建任务管理。

自定义表单有一个按钮（sendtask）字段assignto和一个隐藏文本框，它将值从assignto复制到添加到变量（myvalue）以包含在To中。

用户可以使用assignto字段分配任务。但通过这种方式，我无法向多个收件人发送电子邮件。

Sub sendtask_click()

    Set objPage = Item.GetInspector.ModifiedFormPages("Assign Task")
    Set objControl = objPage.Controls("TextBox1")
    Set oMsg = Application.CreateItem(olMailItem)
    Set objNS = oMsg.Session

    MyValue= objControl.Text

    With oMsg
        .To(MyValue)
        .Subject = "New Task Assign"
        .HTMLBody = "<HTML><BODY>You have new Task assign by " & _
          objNS.CurrentUser.Name & "        <h1>" & Item.Subject & _
          "</h1><br/>"  & "Description <br/>" & Item.Body & _
          "<br/><br/>" & "Start   Date:" & Item.StartDate & _
          "<br/>" & "Due Date:" & Item.DueDate & "</BODY></HTML>"
        .Send
    End With

End Sub

如何向多个收件人发送电子邮件？

Answer 1

你试过吗

With oMsg
    .To = Join(Array("someone@here.com", MyValue),"; ")
    '... rest of your with block code
End With

向多个收件人发送电子邮件（收件人来自textbox.value）

1 个答案: