Wenn Sie ein Excel-Arbeitsblatt als E-Mail senden möchten, anstatt es einer E-Mail als Anhang hinzuzufügen, können Sie die beiden in diesem Artikel beschriebenen Methoden verwenden.
Im Gegensatz zum Anhängen einer Excel-Datei an eine E-Mail als Anhang möchten Sie manchmal ein Excel-Arbeitsblatt direkt in den E-Mail-Text einfügen, dh als E-Mail senden. In Reaktion auf diese Anforderung können Sie eine der beiden folgenden Methoden anwenden, je nachdem, ob Sie in MS Excel oder MS Outlook senden möchten. Lesen Sie nun weiter, um die detaillierten Operationen zu erhalten.
Methode 1: In Excel senden
- Öffnen Sie gleich zu Beginn die Excel-Quelldatei.
- Klicken Sie dann in der Symbolleiste für den Schnellzugriff auf den Abwärtspfeil.
- Wählen Sie aus der Dropdown-Liste "Weitere Befehle" aus.
- Als Nächstes sollten Sie der Symbolleiste für den Schnellzugriff den Befehl "An E-Mail-Empfänger senden" hinzufügen.
- Wählen Sie zunächst "Alle Befehle" in der Dropdown-Liste "Befehle auswählen aus:".
- Suchen Sie dann den Befehl "An E-Mail-Empfänger senden" und wählen Sie ihn aus.
- Klicken Sie anschließend in der Mitte auf die Schaltfläche "Hinzufügen".
- Klicken Sie nach dem Hinzufügen auf der rechten Seite auf "OK", um die Änderungen zu speichern.
- Kehren Sie anschließend zum Excel-Hauptfenster zurück und klicken Sie in der Symbolleiste für den Schnellzugriff auf die Schaltfläche "An E-Mail-Empfänger senden".
- Wählen Sie im Popup-Dialogfeld "Aktuelles Blatt als Nachrichtentext senden" aus.
- Später wird eine neue Symbolleiste angezeigt, wie im folgenden Screenshot dargestellt. Jetzt können Sie die E-Mail-Details nach Ihren Wünschen zusammenstellen.
- Klicken Sie abschließend auf die Schaltfläche "Dieses Blatt senden", um dieses Blatt als E-Mail zu versenden.
Methode 2: In Outlook senden
- Starten Sie zunächst Ihr Outlook-Programm.
- Drücken Sie dann die Tasten „Alt + F11“, um den Outlook VBA-Editor zu öffnen.
- Öffnen Sie anschließend ein neues Modul und kopieren Sie die folgenden VBA-Codes hinein.
Sub SendanExcelWorksheetAsEmail()
Dim strExcelFile As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkBook As Excel.Workbook
Dim objExcelWorkSheet As Excel.Worksheet
Dim objMail As Outlook.MailItem
strExcelFile = InputBox("Copy the file path to the specific excel file here:", "Specify Excel file", "E:\Contacts.xlsx")
On Error Resume Next
Set objExcelApp = CreateObject("Excel.Application")
Set objExcelWorkBook = objExcelApp.Workbooks.Open(strExcelFile)
Set objExcelWorkSheet = objExcelWorkBook.Sheets("Sheet1")
'Change to your own desired email body
objExcelWorkSheet.MailEnvelope.Introduction = "Message Body"
Set objMail = objExcelWorkSheet.MailEnvelope.Item
With objMail
'Change the recipient and subject as per your needs
.To = "frank@datanumen.com"
.Subject = objExcelWorkSheet.Name
'Use .Send to send it out directly
.Save
End With
objExcelApp.Quit
End Sub
- Danach können Sie in der Symbolleiste auf das Symbol „Ausführen“ klicken.
- Sofort wird das Makro ausgelöst.
- Anschließend müssen Sie den Dateipfad in die jeweilige Excel-Datei in das Eingabefeld kopieren und auf „OK“ klicken.
- Schließlich wird eine neue E-Mail mit dem Excel-Arbeitsblatt im Textkörper im E-Mail-Ordner "Entwürfe" gespeichert. Sie finden es wie folgt:
Problematische PST-Probleme taktvoll bewältigen
Aufgrund der Tatsache, dass die Outlook PST-Datei fehleranfällig ist, sind in Ihrem Outlook möglicherweise verschiedene Probleme aufgetreten. Daher, um Schmerzen zu vermeiden PST-SchadenEs ist ratsam, regelmäßige Datensicherungen für Ihre PST-Datei durchzuführen. Darüber hinaus müssen Sie ein starkes Reparaturwerkzeug in der Nähe halten, wie z DataNumen Outlook Repair.
Einführung des Autors:
Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL-Schaden und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX