Excel VBA发送Outlook消息尝试发送时出错 - “消息无法修改”

Question

此代码从Excel VBA打开outlook msg文件：

Sub Interim_Email_1()

Dim OutApp As Object
Dim OutMail As Object
Dim OutWordEdit As Object
Dim OutCurrItem As Object

'pPath = ActiveWorkbook.Path & "\Interim\"

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.Session.OpenSharedItem(pPath & "1_First Contact with TL Template.msg")

excel VBA位于只读工作簿中，保存到用户的本地桌面。 msg文件位于sharepoint上的文件夹中。我已检查此sharepoint位置的文件夹和文件权限，并且它们适用于测试帐户。电子邮件在测试帐户上打开正常。

大多数帐户都可以发送电子邮件。但是，一个帐户在尝试发送时出现以下错误消息：“无法修改消息。您可能没有权限修改消息。要保存更改，请单击文件选项卡，然后单击另存为。”

是否应该在Outlook或其他方面确认其他安全级别或权限级别？

让我知道如何正确配置，以便此用户可以以编程方式发送电子邮件。

Answer 1

无法发送独立的MSG文件。如果您使用MSG文件作为模板，请使用OFT文件而不是MSG，并致电Application.CreateItemFromTemplate。