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 e-mail
- In de eerste plaats moet u het Excel-bronwerkblad zoals normaal openen.
- Vervolgens moet u in het Excel-venster op de toets "Alt + F11" drukken.
- Vervolgens krijgt u met succes toegang tot het Excel VBA-editorvenster.
- Daarna zou u het "ThisWorkbook" -project moeten openen.
- 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
- Om de nieuwe macro te activeren, kunt u uiteindelijk op het pictogram "Uitvoeren" in de werkbalk klikken of rechtstreeks op de toets "F5" drukken.
- 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:
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


