Comment enregistrer un message électronique au format image (jpg / tiff) dans Outlook?

Avez-vous déjà essayé d'enregistrer un e-mail sous forme d'image telle qu'une image jpg ou tiff dans Outlook? Cet article vous montrera une méthode pour résoudre ce problème.

Enregistrer le message électronique au format d'image avec le code VBA

un nom="a1">Enregistrer le message électronique au format d'image avec le code VBA

Veuillez procéder comme suit pour enregistrer un message électronique au format d'image dans Outlook.

1. Sélectionnez un e-mail que vous enregistrerez sous forme d'image, puis appuyez sur le bouton autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, veuillez cliquer insérer > Formulaire utilisateur. Voir la capture d'écran:

3. Créer un Formulaire utilisateur comme ci-dessous la capture d'écran montrée.

4. Sélectionnez l' Option jpg et changez son nom en opbJPG à gauche Propriétés vitre.

5. Répétez l'étape 4 ci-dessus pour renommer le bouton des autres options comme opbTIFF. Et renommez le OK bouton de commande et le Annuler bouton de commande comme cdbOk et cdbAnnuler séparément.

Notes: Si la Propriétés le volet ne s'affiche pas dans le Microsoft Visual Basic pour applications fenêtre, veuillez cliquer sur le F4 touche pour faire apparaître le volet.

6. Double-cliquez sur un espace vide du formulaire utilisateur pour ouvrir le Code la fenêtre. Remplacez tout le code par le script VBA suivant. Et puis fermez la fenêtre Code.

Code VBA 1: enregistrer le message électronique sous forme d'image

Option Explicit
'Update by Extendoffice 2018/3/5
Public xRet As Boolean
Private Sub cdbCancel_Click()
  xRet = False
  FrmPicType.Hide
End Sub
Private Sub cdbOk_Click()
  xRet = True
  FrmPicType.Hide
End Sub

7. Sélectionnez l' FormulaireUtilisateur1 et changez son nom en FrmPicType dans le Propriétés volet comme ci-dessous capture d'écran montré.

8. Cliquez insérer > Module, puis copiez le code VBA ci-dessous dans la fenêtre Module.

Code VBA 2: enregistrer le message électronique sous forme d'image

Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'Update by Extendoffice 2018/3/5
Sub ExportEmailAsImage()
Dim xMail As Outlook.MailItem
Dim xFileName, xFilePath, xWdDocPath As String
Dim xPPTApp As PowerPoint.Application
Dim xPresentation As PowerPoint.Presentation
Dim xPPTShape As PowerPoint.Shape
Dim xPicType As String
Dim xFileFormat As PpSaveAsFileType
On Error Resume Next
FrmPicType.Show
If FrmPicType.xRet Then
  If FrmPicType.opbJPG.Value = True Then
    xPicType = ".jpg"
    xFileFormat = ppSaveAsJPG
  ElseIf FrmPicType.opbTIFF.Value = True Then
    xPicType = ".tiff"
    xFileFormat = ppSaveAsTIF
  End If
Else
  Exit Sub
End If
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, 0)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFilePath = xFolderItem.Path & "\"
Else
    xFilePath = ""
    Exit Sub
End If
'ShellExecute 0, "Open", "POWERPNT.exe", "", "", 0
Set xPPTApp = New PowerPoint.Application
xPPTApp.Height = 0
xPPTApp.Width = 0
xPPTApp.WindowState = ppWindowMinimized
xPPTApp.Visible = msoFalse
For Each xMail In Outlook.Application.ActiveExplorer.Selection
    xFileName = Replace(xMail.Subject, "/", " ")
    xFileName = Replace(xFileName, "\", " ")
    xFileName = Replace(xFileName, ":", "")
    xFileName = Replace(xFileName, "?", " ")
    xFileName = Replace(xFileName, Chr(34), " ")
    xWdDocPath = Environ("Temp") & "\" & xFileName & ".doc"
    xMail.SaveAs xWdDocPath, olDoc
    
    Set xPresentation = xPPTApp.Presentations.Add
    xPresentation.Application.WindowState = ppWindowMinimized
    xPresentation.Application.Visible = msoFalse
    With xPresentation
        .PageSetup.SlideHeight = 900 '792
        .PageSetup.SlideWidth = 612
        .Slides.AddSlide 1, .SlideMaster.CustomLayouts(1)
    End With
    xPPTApp.WindowState = ppWindowMinimized
    With xPresentation.Slides(1)
         .Application.Visible = msoFalse
         Set xPPTShape = .Shapes.AddOLEObject(0, 0, 612, 900, , xWdDocPath)
         xPresentation.SaveAs xFilePath & xFileName & xPicType, xFileFormat, msoTrue
    End With
    xPresentation.Close
Next
xPPTApp.Quit
MsgBox "Mails has been successfully saved as picture", vbInformation + vbOKOnly
End Sub

9. Cliquez Outils > Références , vérifier la Bibliothèque d'objets Microsoft PowerPoint boîte, puis cliquez sur le OK bouton. Voir la capture d'écran:

10. appuie sur le F5 clé pour exécuter le code. Puis le FormulaireUtilisateur1 boîte de dialogue apparaît, veuillez sélectionner un type d'image et cliquez sur le OK bouton. Voir la capture d'écran:

11. dans le Parcourir pour le dossier boîte de dialogue, spécifiez un dossier pour enregistrer l'image, puis cliquez sur le OK .

12. Enfin, un Microsoft Outlook La boîte de dialogue s'affiche pour vous informer de la fin de l'enregistrement. Veuillez cliquer sur le OK .

Maintenant, les e-mails sélectionnés sont convertis en une image jpg ou tiff et enregistrés avec succès dans un dossier spécifié.

Articles connexes:

• Comment enregistrer toutes les pièces jointes de plusieurs e-mails dans un dossier dans Outlook?
• Comment supprimer toutes les pièces jointes du courrier électronique dans Outlook?

---

Meilleurs outils de productivité bureautique

Dernières nouvelles : lancement de Kutools pour Outlook Version gratuite!

Découvrez le tout nouveau Kutools pour Outlook Version GRATUITE avec plus de 70 fonctionnalités incroyables, à utiliser POUR TOUJOURS! Cliquez pour télécharger maintenant!

🤖 Kutools IA : Utilise une technologie d'IA avancée pour gérer les e-mails sans effort, notamment en répondant, en résumant, en optimisant, en prolongeant, en traduisant et en composant des e-mails.

📧 Email Automation: Réponse automatique (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes Pro: Sauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Vous rappeler lorsque des e-mails importants arrivent  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

Déverrouillez instantanément Kutools pour Outlook en un seul clic :gratuit en permanence. N'attendez pas, téléchargez maintenant et augmentez votre efficacité !

Liste des fonctionnalités de Kutools pour Outlook      Télécharger la version gratuite      Passer au Professionnel