Hoe u een Excel-werkblad kunt bijvoegen als PDF Bijlage in uw Outlook-e-mail

Als u snel een Excel-werkblad wilt converteren naar een PDF bestand en voeg dit toe PDF bestand naar een Outlook-e-mail om het te verzenden, kunt u de methode gebruiken die in dit artikel wordt geïntroduceerd. Het gebruikt VBA om deze taak binnen enkele seconden te volbrengen.

Om eerlijk te zijn, om een ​​volledige Excel-werkmap als een PDF bijlage in een e-mail is vrij eenvoudig. U kunt de werkmap eerst opslaan als een PDF bestand en maak vervolgens een nieuwe Outlook-e-mail en voeg het PDF bestand naar deze mail. In Excel is er echter niet zo'n directe functie om een ​​enkel werkblad naar een PDF bestand en mail het. Dus als u snel een Excel-werkblad als een PDF bijlage in een e-mail, kunt u de volgende middelen gebruiken.

Voeg een Excel-werkblad toe als een PDF Bijlage in uw Outlook-e-mail

Voeg een Excel-werkblad toe als een PDF Bijlage in uw e-mail

  1. In de eerste plaats moet u het Excel-bronwerkblad zoals normaal openen.
  2. Vervolgens moet u in het Excel-venster op de toets "Alt + F11" drukken.
  3. Vervolgens krijgt u met succes toegang tot het Excel VBA-editorvenster.
  4. Daarna zou u het "ThisWorkbook" -project moeten openen.
  5. Kopieer en plak vervolgens de volgende VBA-code in dit projectvenster.
Sub SendWorksheet_AsPDFAttachment_OutlookEmail()
    Dim objFileSystem As Object
    Dim strTempFile As String
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
 
    'Specify the worksheet name
    Sheets("DataNumen Staff").Activate
    ActiveSheet.UsedRange.Select
    ThisWorkbook.Sheets(Array("DataNumen Staff")).Select
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFile = objFileSystem.GetSpecialFolder(2).Path & "\" & ActiveSheet.Name & " in " & ThisWorkbook.Name & ".pdf"
 
    'export the specific worksheet as PDF
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strTempFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
 
    'Create a new email
    Set objOutlookApp = CreateObject("Outlook.Application")
    Set objMail = objOutlookApp.CreateItem(olMailItem)
 
    'Attach the PDF file
    objMail.Attachments.Add strTempFile
    objMail.Display '==>display this email
 
    'Delete the temp PDF file
    objFileSystem.DeleteFile (strTempFile)
End Sub

VBA-code - Voeg een Excel-werkblad toe als een PDF Bijlage in uw Outlook-e-mail

  1. Om de nieuwe macro te activeren, kunt u uiteindelijk op het pictogram "Uitvoeren" in de werkbalk klikken of rechtstreeks op de toets "F5" drukken.
  2. Nadat de macro is uitgevoerd, wordt er onmiddellijk een nieuwe Outlook-e-mail weergegeven. Daarin zie je een PDF bestand in de regel "Bijgevoegd", zoals de volgende schermafbeelding:Attached PDF Bestand

Bescherm Outlook-bestand tegen beschadiging

Zoals we allemaal weten, is Outlook vatbaar voor corruptie, vergelijkbaar met Word-documenten en Excel-werkmappen. Daarom moeten we begrijpen hoe we Outlook tegen corruptie kunnen beschermen. Vanwege het feit dat virussen steeds complexer en ongebreideld zijn geworden, is Outlook vaak corrupt door virusinfectie en malware-aanvallen. In deze situatie moet u betrouwbare antivirussoftware installeren en het automatisch downloaden van externe bestanden uitschakelen. Bovendien kun je beter een helmknop robuust aanschaffen Outlook-oplossing tool, zoals DataNumen Outlook Repair. Het is in staat om u de most effectieve remedie in geval van corruptie in Outlook.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder SQL repareren en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.