将创建的 Word 文档附加到 Outlook 邮件

Question

我已经阅读了许多与我正在寻找的内容相近的回复，但每次它在我的代码中都不起作用。

这应该是一个非常基本的问题，但我希望有人能看到这个并很快看到我的错误。

我正在使用 Excel 创建一个 Word Doc，然后将其保存在用户桌面上以当前日期命名的文件夹中。

一切正常，但现在我要做的就是将字符串“IRN”的名称添加到 Word 文档中，该字符串是 Excel 工作表中的一个单元格。

我还需要将创建的 Word 文档附加到 Outlook 邮件中。

我将只包含我的代码的介绍和结尾，因为正文无关紧要。

Sub TDOutlook()

Dim TD As Word.Application
Dim Doc As Word.Document
Dim path As String
Dim filename As String
Dim StudentName As String
Dim StudentAddress1 As String
Dim City As String
Dim MrMrs As String
Dim StudentLast As String
Dim IRN As String
Dim CourseReq As String
Dim CourseName As String
Dim CourseStart As String
Dim Cost As String
Dim Deferred As String
Dim Graphic As String
Dim Footer1 As Word.Range
Dim Body As Word.Paragraph
Dim OutApp As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem

path = Environ("USERPROFILE") & "\Desktop\" & Format(Now, "mm-dd-yyyy")
    On Error Resume Next
    MkDir path
    On Error GoTo 0

'Outlook
Set OutApp = CreateObject("Outlook.Application")
Set objOutlookMsg = OutApp.CreateItem(olMailItem)

objOutlookMsg.SentOnBehalfOfName = "bbb@ppp.edu"
objOutlookMsg.Subject = "FinServ-TD"
objOutlookMsg.HTMLBody = "Testing this macro" & vbCrLf & vbCrLf


'Display Outlook
objOutlookMsg.Display

'Opens Word
Set TD = CreateObject("Word.Application")

'Displays the document
TD.Visible = False

'Add New Document
Set Doc = TD.Documents.Add

filename = path & "\TD" '& IRN
Doc.SaveAs filename

'Attach Word to Outlook
objOutlookMsg.Attachments.Add Doc.filename    <----This is broken

Doc.Close

TD.Quit

'Application.ScreenUpdating = True

End Sub

Answer 1

一切正常，但现在我要做的就是将字符串“IRN”的名称添加到 Word 文档中，该字符串是 Excel 工作表中的一个单元格。

要获得单元格值试试这个

FileName = Path & "\TD" & Sheets("Sheet1").Range("A1").Text & ".docx"

我还需要将创建的 Word 文档附加到 Outlook 邮件中。

要附加保存的文件，请更改此内容

objOutlookMsg.Attachments.Add Doc.filename 至此 ObjOutlookMsg.Attachments.Add (FileName)