Si vous souhaitez convertir rapidement une feuille de calcul Excel en un PDF fichier puis joignez ce PDF fichier à un e-mail Outlook pour l'envoyer, vous pouvez utiliser la méthode présentée dans cet article. Il utilise VBA pour accomplir cette tâche en quelques secondes.
Pour être honnête, joindre un classeur Excel entier en tant que PDF pièce jointe dans un e-mail est assez facile. Vous pouvez d'abord enregistrer le classeur en tant que PDF fichier, puis créez un nouvel e-mail Outlook et joignez le PDF fichier à ce courrier. Cependant, dans Excel, il n'y a pas une telle fonction directe pour convertir une seule feuille de calcul en un PDF classez-le et envoyez-le par courrier. Ainsi, si vous souhaitez joindre rapidement une feuille de calcul Excel en tant que PDF pièce jointe dans un e-mail, vous pouvez utiliser les moyens suivants.
Joindre une feuille de calcul Excel en tant que PDF Pièce jointe dans votre e-mail
- En premier lieu, vous devez ouvrir la feuille de calcul Excel source comme d'habitude.
- Ensuite, dans la fenêtre Excel, vous devez appuyer sur les touches "Alt + F11".
- Par la suite, vous aurez accès à la fenêtre de l'éditeur Excel VBA avec succès.
- Après cela, vous devez ouvrir le projet "ThisWorkbook".
- Ensuite, copiez et collez le code VBA suivant dans cette fenêtre de projet.
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
- Finalement, pour déclencher la nouvelle macro, vous pouvez appuyer sur l'icône "Exécuter" dans la barre d'outils ou appuyer directement sur la touche "F5".
- Une fois l'exécution de la macro terminée, un nouvel e-mail Outlook s'affichera immédiatement. Dans celui-ci, vous pouvez voir un PDF fichier dans la ligne "Attached", comme la capture d'écran suivante :
Protégez le fichier Outlook contre les dommages
Comme nous le savons tous, Outlook est sujet à la corruption, comme les documents Word et les classeurs Excel. Par conséquent, nous devons comprendre comment protéger Outlook de la corruption. En raison du fait que les virus sont devenus de plus en plus complexes et endémiques, Outlook est souvent corrompu en raison d'infections virales et d'attaques de logiciels malveillants. Dans cette situation, vous devez installer un logiciel antivirus fiable et désactiver le téléchargement automatique des fichiers externes. De plus, vous feriez mieux de vous procurer un autre robuste Correctif Outlook outil, comme DataNumen Outlook RepairIl est capable de vous fournir la solution la plus efficace en cas de corruption d'Outlook.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris réparer sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com