excel Outlook电子邮件收件人格式(Web版)

osh3o9ms 于 2023-03-09 发布在其他

关注(0)|答案(1)|浏览(147)

我有一个电子邮件地址和代码的Excel列表正在撰写草稿。
当我尝试在网络版中发送邮件时，它声明
错误：“现在无法发送此邮件。请稍后再试。”
邮件在桌面版本中显示正确，但在Web中不正确。

Sub Box()
Dim objOL As Object
Set objOL = CreateObject("Outlook.Application")
Dim Name As Namespace
Set Name = objOL.GetNamespace("MAPI")
Dim Msg As MailItem
Set Msg = objOL.CreateItemFromTemplate

Msg.To = Cond.Cells(i, 2).Text
Msg.CC = Cond.Cells(i, 3).Text
Msg.Subject = PP.Range("F1").Text
Msg.HTMLBody = "<HTML><BODY>" & Cond.Cells(i, 4) & Cond.Cells(i, 5) & "</BODY></HTML>"

我试过To.属性。
我试过Recipient.Add方括号〈〉。

excel

来源：https://stackoverflow.com/questions/74349180/outlook-email-recipient-format-in-web-version

1条答案

按热度按时间

chy5wohz1#

首先，您需要指定模板的文件路径：

Set Msg = objOL.CreateItemFromTemplate

Application.CreateItemFromTemplate方法从Outlook模板（.oft）创建新的Microsoft Outlook项目并返回新项目。它至少需要传递一个参数-新项目的Outlook模板的路径和文件名。
其次，设置收件人和抄送属性：

Msg.To = Cond.Cells(i, 2).Text
Msg.CC = Cond.Cells(i, 3).Text

这些属性应设置为Outlook项目的To或CC收件人的显示名称的分号分隔字符串列表。请确保传递有效的字符串。
更好的方法是使用Outlook项目的Recipients属性。Recipients.Add方法在Recipients集合中创建新收件人。然后不要忘记使用Resolve或ResolveAll方法。它们尝试根据通讯簿解析Recipients集合中的一个或所有Recipient对象，例如：

' now we add new recipietns to the e-mail
        recipientTo = recipients.Add("Eugene Astafiev")
        recipientTo.Type = Outlook.OlMailRecipientType.olTo
        recipientCC = recipients.Add("Someone Else")
        recipientCC.Type = Outlook.OlMailRecipientType.olCC
        recipientBCC = recipients.Add("eugene.astafiev@somedomain.com")
        recipientBCC.Type = Outlook.OlMailRecipientType.olBCC
        retValue = recipients.ResolveAll()

在我为技术博客How To: Fill TO,CC and BCC fields in Outlook programmatically撰写的文章中阅读更多相关内容。

赞(0）回复(0）举报 2023-03-09

我来回答

excel Outlook电子邮件收件人格式(Web版)

1条答案

相关问题

热门标签

最新问答