Manchmal müssen Sie möglicherweise alle eingebetteten Bilder in einem Excel-Arbeitsblatt in eine Outlook-E-Mail kopieren. Zu diesem Zeitpunkt können Sie diesen Artikel lesen. Hier stellen wir Ihnen 2 schnelle Methoden vor.
Es ist einfach, ein Bild aus einem Excel-Arbeitsblatt in eine Outlook-E-Mail zu kopieren. Sie können einfach „Strg + C“ auswählen und drücken, um dieses Bild zu kopieren. Wenn jedoch viele Bilder kopiert werden müssen, ist das Kopieren nacheinander zweifellos eine dumme und mühsame Methode. Daher werden wir Ihnen hier zwei viel effektivere Wege vorstellen. Lesen Sie jetzt weiter, um sie im Detail zu erhalten.
Methode 1: Alle Bilder im Excel-Arbeitsblatt manuell auswählen und kopieren
- Für astart Öffnen Sie das spezifische Excel-Arbeitsblatt.
- Drücken Sie dann die Taste „F5“.
- Klicken Sie im Popup-Dialogfeld "Gehe zu" auf die Schaltfläche "Spezial".
- Wählen Sie als Nächstes im neuen Dialogfeld "Gehe zu Spezial" die Option "Objekte" aus und klicken Sie auf "OK".
- Sofort wurden alle eingebetteten Bilder ausgewählt.
- Drücken Sie nun „Strg + C“, um alle ausgewählten Bilder zu kopieren.
- Starten Sie danach Outlook und erstellen Sie eine neue E-Mail.
- Setzen Sie später den Cursor in den Nachrichtentext und drücken Sie „Strg + V“.
- Alle kopierten Bilder werden sofort in den E-Mail-Text eingefügt, wie in der folgenden Abbildung dargestellt.
Methode 2: Kopieren Sie alle Bilder mit VBA aus dem Arbeitsblatt in eine E-Mail
- Zu start Drücken Sie in Excel „Alt + F11“, um den Excel VBA-Editor auszulösen.
- Fügen Sie dann den folgenden VBA-Code in ein Modul oder Projekt ein.
Sub CopyImagesToMail()
Dim objWorksheet As Excel.Worksheet
Dim objOutlookApp As Object
Dim objMail As Object
Dim objMailDocument As Object
Dim objShape As Excel.Shape
'Get the specific worksheet
Set objWorksheet = ThisWorkbook.Worksheets(1)
'Create a new email
Set objOutlookApp = CreateObject("Outlook.application")
Set objMail = objOutlookApp.CreateItem(objOutlookAppobjMailItem)
objMail.Display
Set objMailDocument = objMail.GetInspector.WordEditor
'Copy images to the email
For Each objShape In objWorksheet.Shapes
objShape.Copy
objMailDocument.Range(0, 0).Paste
Next
End Sub
- Drücken Sie anschließend im aktuellen Makro die Taste „F5“.
- Sofort wird eine neue E-Mail angezeigt.
- Hier erhalten Sie möglicherweise eine Warnung, in der Sie auf "Zulassen" klicken sollten.
- Schließlich befinden sich alle Bilder im jeweiligen Excel-Arbeitsblatt im E-Mail-Text, wie im folgenden Screenshot gezeigt.
Achten Sie auf alle Risiken rund um Outlook
Outlook ist anfällig für Korruption, da es zu viele Bedrohungen gibt, wie z. B. Viren, Systemfehler, Hardwarefehler, Stromversorgungsprobleme usw. Daher müssen Sie auf all diese gefährlichen Faktoren achten. Erstens sollten Sie E-Mails von unbekannten Absendern niemals ohne weiteres vertrauen. Außerdem sollten Sie Ihre Outlook-Datei regelmäßig sichern. Last but not least, um PST beheben Datei in der Zeit, sollten Sie ein hochmodernes Reparaturwerkzeug vorbereiten, wie DataNumen Outlook Repair.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich korrupte SQL und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX