여러 Word 문서를 일괄 변환 및 첨부하는 방법 PDF Outlook 이메일에 파일

Outlook 솔루션 2025 년 9 월 29 일

Word 문서를 쉽게 첨부 할 수 있습니다. PDF Outlook 이메일에 파일을 추가합니다. 그러나 여러 Word 문서를 다음과 같이 첨부하려면 PDF 이 문서를 읽을 수 있습니다. 여기서 우리는 그것을 일괄 적으로 얻는 방법을 보여줄 것입니다.

Word 문서를 다음으로 첨부하려면 PDF Outlook 이메일에 파일을 추가하려면 먼저 Word 문서를 열고 "파일"메뉴로 이동할 수 있습니다. 그런 다음 "다른 이름으로 보내기"탭이있는 "저장 및 보내기"탭으로 전환 할 수 있습니다. PDF”버튼을 클릭합니다.

따라서 Word 문서를 다음과 같이 첨부하는 것은 매우 간단합니다. PDF 이메일로. 그러나 여러 Word 문서를 다음과 같이 변환하고 첨부하려면 PDF 파일을 메일로 보내려면 다음 방법을 사용하는 것이 좋습니다. 대량으로 수행 할 수 있습니다.

여러 Word 문서를 일괄 변환 및 첨부 PDF 이메일에 파일

로tart, 동일한 Windows 폴더에 원하는 Word 문서를 수집하십시오.
그런 다음 Outlook 프로그램을 시작하십시오.
다음으로 다음 코드를 사용하지 않는 프로젝트 나 모듈에 복사합니다.

Dim objMail As Outlook.MailItem

Sub BatchAttachMultipleWordDocumentsAsPDFToEmail()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim strWindowsFolder As String

    Set objMail = Outlook.Application.CreateItem(olMailItem)

    'Select the specific Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows folder:", 0, "")

    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"

       Call ProcessFolders(strWindowsFolder)

       objMail.Display
    End If
End Sub

Sub ProcessFolders(strPath As String)
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim strDocumentName As String
    Dim strPDF As String

    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFileSystem.GetFolder(strPath)

    For Each objFile In objFolder.Files
        strFileExtension = objFileSystem.GetExtensionName(objFile)
        If LCase(strFileExtension) = "doc" Or LCase(strFileExtension) = "docx" Then
           Set objWordApp = CreateObject("Word.Application")
           Set objWordDocument = objWordApp.Documents.Open(objFile.Path)

           'Convert document to pdf
           strDocumentName = Left(objWordDocument.Name, (Len(objWordDocument.Name) - Len(strFileExtension)) - 1)
           strPDF = strPath & strDocumentName & ".pdf"
           objWordDocument.ExportAsFixedFormat strPDF, wdExportFormatPDF

           objWordDocument.Close False

           'Attach the pdf to email
           objMail.Attachments.Add strPDF

           Kill strPDF
        End If
    Next

    'Process all folders and subfolders
    If objFolder.SubFolders.Count > 0 Then
       For Each objSubfolder In objFolder.SubFolders
           If ((objSubfolder.Attributes And 2) = 0) And ((objSubfolder.Attributes And 4) = 0) Then
              ProcessFolders (objSubfolder.Path)
           End If
       Next
    End If
End Sub

그 후 커서를 첫 번째 서브 루틴으로 이동합니다.
그런 다음 "F5"를 눌러이 매크로를 즉시 실행합니다.
작은 팝업 대화 상자에서 원본 Word 문서가 저장된 Windows 폴더를 선택합니다.
즉시 새 이메일이 생성되어 첨부 된 PDF 다음 screensh와 같은 파일ost.

Outlook 문제에 시달림

기타 Outlook 문제로 인해 방해를 받고 있습니까? 예를 들어, Outlook이 "응답하지 않음"상태로 자주 멈추거나 Outlook PST 파일에 액세스 할 수 없게됩니다. 일반적으로받은 편지함 복구 도구를 먼저 사용해 볼 수 있습니다. 스캔프스트, PST 문제를 해결합니다. 그러나 때때로 문제는 내장 도구가 할 수있는 것 이상일 수 있습니다. 따라서 주변에 더 강력한 외부 유틸리티를 유지하는 것이 좋습니다. DataNumen Outlook Repair.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. SQL 수리 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM