Question

我正在尝试同时发送几件物品。

我的Outlook中有两个邮件地址。第一个是个人工作邮件（如j.doe@company.com），第二个是共享邮件帐户（如support@company.com）。

我试过了：

Set objOutlook = CreateObject("Outlook.Application")
Set objMailMessage = objOutlook.CreateItem(0)
Dim oAccount As Outlook.account
Set oAccount = Session.accounts.Item(2)
objMailMessage.SendUsingAccount = oAccount
objMailMessage.display

我发现这不能使用共享电子邮件帐户。

大多数论坛建议使用.SentOnBehalfOfName。当我在一封电子邮件中尝试时，电子邮件在发件人框j.doe@company.com - Sent on behalf of name: "support@company.com中有类似的内容。

当我手动从Outlook发送邮件时，它只显示收到邮件的共享帐户。（这不是什么大问题，但如果代码的工作方式与手动相同，则会更好。）

此外，当我将代码放入循环中时，半邮件将与共享帐户一起发送，一半与个人帐户一起发送。

这是带有.SentOnBehalfOfName的代码，它将循环播放。

Set objOutlook = CreateObject("Outlook.Application")
Set objMailMessage = objOutlook.CreateItem(0)
With objMailMessage
    .To = email
    .Subject = msgSubj
    .CC = ccp
    .BCC = "support@company.com"
    .SentOnBehalfOfName = "support@company.com"
    .HTMLBody = msgText & "<br>" & "<br>" & msgSign
    .Attachments.Add path
    If rev > 0 Then
        .Save
    Else
        .Send
    End If
End With

Answer 1

此代码试图确保.SentOnBehalfOf是一致的。

data.service

如何从共享电子邮件帐户发送邮件？

1 个答案: