excel - 发送带有“不转发”限制的邮件

Question

当我尝试使用 更新“不转发”限制邮件时oMail.Permission = olDoNotForward，我收到此错误。

我们找不到信息权限管理模板。请联系您的管理员。

发送邮件的 VBA 函数：

Function MailDraftSurvey(ByVal mailName As String, _
  ByVal mailFrom As String, ByVal mailTo As String, _
  ByVal mailCC As String, ByVal mailSubject As String, _
  ByVal SendMail As Boolean)

Dim objOL As Outlook.Application
Dim oMail As Outlook.MailItem
Dim msg As Object
Dim Mailpath As Variant
Dim i As Integer

Set objOL = CreateObject("Outlook.Application")
Mailpath = ThisWorkbook.path & "\Mail Template\" & mailName

'to create a new Outlook item using object
'Set myItem = Application.CreateItem(olMailItem)

Set oMail = objOL.CreateItemFromTemplate(Mailpath)
oMail.SentOnBehalfOfName = mailFrom
oMail.To = mailTo
oMail.CC = mailCC
oMail.Subject = mailSubject

oMail.Permission = olDoNotForward

'Check to Send or Display mail
If SendMail = True Then
    oMail.Send
Else
    oMail.Display
End If
End Function

标签： excelvbaoutlook