Excel VBA发送带PDF附件的Outlook邮件，如何禁用附件右键菜单并设只读

首先得给你说清楚：直接通过Excel VBA操作Outlook对象模型，没法完全禁用附件的右键菜单，也没法强制PDF附件打开后就只读且完全不能保存——因为这些权限控制更多是PDF文件本身的属性，还有收件端Outlook或PDF阅读器的行为决定的，发件端的VBA管不了那么细。不过我们可以通过两步操作，尽量接近你想要的效果：

1. 先给PDF文件本身设置只读/禁止保存权限 #

核心思路是：在把PDF添加为邮件附件前，先给PDF文件设置安全权限，让它本身就无法被保存、打印或修改。如果你安装了Adobe Acrobat（注意是付费的Acrobat，不是免费的Reader），可以用它的VBA接口来实现：

Sub SetPDFSecurity(ByVal pdfPath As String)
    Dim acroApp As Object
    Dim acroPDDoc As Object
    Dim securitySettings As Object
    
    On Error Resume Next
    ' 创建Acrobat应用和文档对象
    Set acroApp = CreateObject("AcroExch.App")
    Set acroPDDoc = CreateObject("AcroExch.PDDoc")
    
    ' 打开PDF并设置权限
    If acroPDDoc.Open(pdfPath) Then
        Set securitySettings = acroPDDoc.GetSecurityHandler
        ' 设置所有者密码（用于修改权限，用户打开不需要密码）
        securitySettings.ChangePassword "", "YourSecureOwnerPassword"
        ' 禁用所有权限：0代表禁止打印、修改、复制、保存
        securitySettings.SetPermissions 0, 0, 0, 0
        ' 保存修改后的PDF
        acroPDDoc.Save 1, pdfPath
        acroPDDoc.Close
    End If
    
    ' 释放对象
    Set securitySettings = Nothing
    Set acroPDDoc = Nothing
    Set acroApp = Nothing
End Sub

这段代码会给PDF加上所有者密码，禁用保存、打印、复制等操作，收件人打开后只能只读查看，无法修改或保存文件。

2. 增强Outlook邮件的权限设置 #

在你原有的代码基础上，除了已经设置的.Permission = olDoNotForward和.Sensitivity = olConfidential，还可以添加邮件正文的只读保护，进一步提升安全性：

整合后的完整代码 #

Sub SendDMR()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strPath As String, strFName As String
    
    ' 替换成你的PDF路径和文件名（确保PDF已生成）
    strPath = "C:\YourReportFolder\"
    strFName = "DailyManagementReport_" & Format(Date - 1, "ddmmyyyy") & ".pdf"
    
    ' 第一步：给PDF设置安全权限
    SetPDFSecurity strPath & strFName
    
    On Error Resume Next
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    With OutMail
        .To = "" ' 填写收件人邮箱
        .SentOnBehalfOfName = "GasStorage@sse.com"
        .CC = "" ' 填写抄送邮箱
        .BCC = "" ' 填写密送邮箱
        .Subject = "Daily Management Report " & Format(Date - 1, "dd/mm/yyyy")
        .Body = "Good morning," & vbCr & vbCr & _
                "Please find the Daily Management Report attached for " & Format(Date - 1, "dd/mm/yyyy") & "." & vbCr & vbCr & _
                "Kind regards," & vbCr & vbCr & _
                "Shift Trading Team" & vbCr & _
                "SSE Gas Storage" & vbCr & _
                "Inveralmond House, Perth" & vbCr & _
                "T: +44 (0)1738 453960" & vbCr & _
                "E: gasstorage@sse.com"
        ' 添加设置好权限的PDF附件
        .Attachments.Add strPath & strFName
        ' 禁止邮件转发
        .Permission = olDoNotForward
        .PermissionService = olWindows
        ' 设置邮件为机密级别
        .Sensitivity = olConfidential
        ' 保护邮件正文为只读
        .EditorType = olEditorWord
        .Protect olProtectReadOnly, True
        .Display ' 替换为.Send可以直接发送
    End With
    
    On Error GoTo 0
    ' 释放对象
    Set OutMail = Nothing
    Set OutApp = Nothing
    
    Exit Sub
MsgEnd:
    MsgBox "Please set the print area before continuing", vbExclamation
End Sub

重要说明 #

• 关于禁用附件右键菜单：目前没有任何Outlook对象模型的接口能直接控制附件的右键菜单——这属于Outlook的UI底层逻辑，VBA碰不到。不过设置了PDF本身的权限后，即使收件人右键点击附件，打开文件后也无法保存或修改，能达到你核心的安全需求。
• 兼容性问题：如果收件人用的是Adobe Reader，权限控制会生效；如果用其他第三方PDF阅读器，部分权限可能失效，这点没法完全控制。
• 如果你没有Adobe Acrobat，可以考虑用第三方PDF处理库（比如iTextSharp），但需要额外引入COM组件，操作会更复杂。

内容的提问来源于stack exchange，提问作者brillox