Τρόπος μαζικής μετατροπής και επισύναψης πολλών εγγράφων Word ως PDF Αρχεία σε ένα Outlook Outlook

Είναι εύκολο να επισυνάψετε ένα έγγραφο του Word ως PDF αρχείο σε ένα email του Outlook. Ωστόσο, εάν θέλετε να επισυνάψετε πολλά έγγραφα του Word ως PDF αρχεία σε ένα email, μπορείτε να διαβάσετε αυτό το άρθρο. Εδώ θα σας δείξουμε μια μέθοδο για μαζική λήψη.

Για να επισυνάψετε ένα έγγραφο του Word ως PDF Για να μεταφέρετε ένα αρχείο σε ένα email Outlook, μπορείτε πρώτα να ανοίξετε το έγγραφο του Word και να μεταβείτε στο μενού "Αρχείο". Στη συνέχεια, μπορείτε να μεταβείτε στην καρτέλα "Αποθήκευση & Αποστολή", στην οποία υπάρχει το κουμπί "Αποστολή ως PDF", όπως στο παρακάτω στιγμιότυπο οθόνης.

Έτσι, είναι πολύ απλό να επισυνάψετε ένα έγγραφο του Word ως PDF σε email. Αλλά, εάν θέλετε να μετατρέψετε και να επισυνάψετε πολλά έγγραφα του Word ως PDF αρχεία σε ένα ταχυδρομείο, προτιμάτε να χρησιμοποιείτε τον ακόλουθο τρόπο. Μπορεί να σας επιτρέψει να το πετύχετε χύμα.

Μαζική μετατροπή και επισύναψη πολλών εγγράφων Word ως PDF Αρχεία σε email

1. Για αρχή, συγκεντρώστε τα έγγραφα του Word που θέλετε στον ίδιο φάκελο των Windows.
2. Στη συνέχεια, ξεκινήστε το πρόγραμμα Outlook.
3. Στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα σε ένα έργο ή λειτουργική μονάδα που δεν χρησιμοποιείται.

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

4. Μετά από αυτό, μετακινήστε τον κέρσορα στην πρώτη υπορουτίνα.
5. Στη συνέχεια, πατήστε "F5" για να εκτελέσετε αυτήν τη μακροεντολή αμέσως.
6. Στο αναδυόμενο μικρό παράθυρο διαλόγου, επιλέξτε το φάκελο των Windows όπου είναι αποθηκευμένα τα έγγραφα του Word προέλευσης.
7. Αμέσως, θα δημιουργηθεί ένα νέο email, στο οποίο μπορείτε να δείτε το συνημμένο PDF αρχεία, όπως το ακόλουθο screenshost.

Μαστίζεται από τα Προβλήματα του Outlook

Ανησυχείτε από διάφορα προβλήματα του Outlook; Για παράδειγμα, το Outlook είναι συχνά κολλημένο σε κατάσταση "δεν ανταποκρίνεται" ή το αρχείο PST του Outlook καθίσταται απρόσιτο κ.λπ. Γενικά, μπορείτε πρώτα να δοκιμάσετε το εργαλείο επιδιόρθωσης εισερχομένων, Σάρωση, για την επίλυση προβλημάτων PST. Ωστόσο, κατά καιρούς, τα προβλήματα μπορεί να είναι πέρα ​​από αυτό που μπορεί να κάνει το ενσωματωμένο εργαλείο. Επομένως, καλύτερα να διατηρήσετε μια πιο ισχυρή εξωτερική χρησιμότητα κοντά, όπως DataNumen Outlook Repair.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com