작성된 Word 문서를 Outlook 메시지에 첨부하십시오.

Question

찾고있는 것과 비슷한 수많은 응답을 읽었지 만 코드가 작동하지 않을 때마다 읽습니다.

이 질문은 아주 기본적인 질문이지만, 누군가가이를보고 내 실수를 빨리 볼 수 있기를 바랍니다.

Excel을 사용하여 Word 문서를 만든 다음 사용자 바탕 화면에 현재 날짜로 명명 된 폴더에 저장합니다.

모든 것이 완벽하게 작동하지만 지금은 Word 문서에 Excel 워크 시트의 셀 "IRN"이라는 문자열의 이름을 추가합니다.

또한 작성한 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

모든 것이 완벽하게 작동하지만, 지금 내가 할 노력하고 모두가 워드 문서로 Excel 워크 시트의 셀에있는 문자열 "IRN"의 이름을 추가합니다.

는 셀 값을 시도해보십시오 얻으려면이

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

나는 또한 Outlook 메시지에 생성 된 워드 문서를 첨부해야합니다. 첨부 저장된 파일에

이

objOutlookMsg.Attachments.Add Doc.filename이 ObjOutlookMsg.Attachments.Add (FileName)