将命名 Excel 范围中的 pdf 文档附加到 Outlook 邮件中

Question

我正在尝试将驱动器位置内的 pdf 文件附加到邮件中。我认为这是我在命名范围中缺少的基本内容。

代码在.Attachments.Add 行中中断。

Sub Mail()

Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim mainfont As String
Dim headerfont As String
Dim subheaderfont As String
Dim closemain As String
Dim closeheader As String
Dim closesubheader As String

Dim Ash As Worksheet

Set Ash = ActiveSheet
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon

With Application
    .EnableEvents = False
    .ScreenUpdating = False
End With

Set OutMail = OutApp.CreateItem(0)

'construct email
With OutMail
    .To = Range("To").Value
    .cc = Range("Cc").Value
    .Subject = Range("Subject").Value
    .Attachments.Add ("FilePathYTD.pdf")
    .Display
End With
 
End Sub 

Answer 1

来自Microsoft documentation：

expression.Add (Source, Type, Position, DisplayName)
来源 |必填 |变体 |附件的来源。这可以是一个文件（由带有文件名的完整文件系统路径表示）或构成附件的 Outlook 项目。
_{^{（强调我的）}}

"FilePathYTD.pdf" 不是完整的文件系统路径。 "C:\Users\codingroadman53\Documents\FilePathYTD.pdf" 或 ThisWorkbook.Path & "\FilePathYTD.pdf" 是。

响应 cmets：如果您的完整文件系统路径存储在名为“FilePathYTD”的命名范围中，那么您需要以与 .Subject 相同的方式对其进行处理：

.Attachments.Add Range("FilePathYTD").Value