Wie sende ich ein Arbeitsblatt nur über Outlook von Excel aus?

Wenn Sie ein einzelnes Arbeitsblatt aus einer Arbeitsmappe in Excel per Outlook versenden möchten, können Sie das Arbeitsblatt als Anhang, im Nachrichtentext oder als PDF-Datei senden. Aber gibt es schnellere Möglichkeiten, dieses Problem in Excel zu lösen?

Einzelnes Arbeitsblatt als Nachrichtentext von Excel aus mit dem Befehl 'An E-Mail-Empfänger senden' versenden

Einzelnes Arbeitsblatt als Anhang von Excel aus mit VBA-Code versenden

Einzelnes Arbeitsblatt als PDF-Datei von Excel aus mit VBA-Code versenden

Einzelnes Arbeitsblatt als Nachrichtentext von Excel aus mit dem Befehl 'An E-Mail-Empfänger senden' versenden

Excel ermöglicht uns, das aktive Arbeitsblatt als Nachrichtentextinhalt mithilfe des Befehls 'An E-Mail-Empfänger senden' zu versenden. Sie können wie folgt vorgehen:

Wenn Sie Excel 2007, 2010 oder 2013 verwenden, müssen Sie diesen Befehl 'An E-Mail-Empfänger senden' zunächst zur Schnellzugriffsleiste hinzufügen.

1. Klicken Sie auf das Symbol ' Schnellzugriffsleiste anpassen' und wählen Sie 'Weitere Befehle', siehe Screenshot:

2. Und im Dialogfeld 'Excel-Optionen' wählen Sie 'Befehle nicht in der Multifunktionsleiste' in der Dropdown-Liste 'Befehle auswählen', dann wählen Sie die Option 'An E-Mail-Empfänger senden' aus und klicken Sie auf die Schaltfläche 'Hinzufügen >>', um diesen Befehl hinzuzufügen, und klicken Sie abschließend auf 'OK', um diese Einstellung zu speichern. Siehe Screenshot:

3. Der Befehl 'An E-Mail-Empfänger senden' wurde in die Schnellzugriffsleiste eingefügt, siehe Screenshot:

4. Klicken Sie dann auf dieses Symbol 'An E-Mail-Empfänger senden', und ein Bestätigungsdialogfeld erscheint. Aktivieren Sie im E-Mail-Bestätigungsdialogfeld die Option 'Das aktuelle Blatt als Nachrichtentext senden' und klicken Sie auf 'OK'. Siehe Screenshot:

5. Eine E-Mail-Bearbeitungsbox wird über den Arbeitsblattdaten angezeigt, in die Sie Ihre Empfänger, Betreff und eine Einführung in die entsprechenden Textfelder eingeben können. Siehe Screenshot:

6. Klicken Sie dann auf 'Senden Sie dieses Blatt', um das aktive Arbeitsblatt als Nachrichtentext an Ihre bestimmte Person zu senden.

Entfesseln Sie die Magie von Excel mit Kutools AI

• Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
• Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
• VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
• Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
• Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Tools. Laden Sie jetzt herunter und erleben Sie eine Effizienz wie nie zuvor!

Einzelnes Arbeitsblatt als Anhang von Excel aus mit VBA-Code versenden

Wenn Sie das aktive Arbeitsblatt als Anhang per E-Mail versenden möchten, kann Ihnen der folgende VBA-Code helfen.

1. Aktivieren Sie Ihr Arbeitsblatt, das Sie senden möchten.

2. Halten Sie die Tasten ALT + F11 gedrückt, und es öffnet sich das Fenster 'Microsoft Visual Basic for Applications'.

3. Klicken Sie auf 'Einfügen > Modul' und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: aktuelles Arbeitsblatt als Anhang von Excel aus senden

Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
    If Wb2.HasVBProject Then
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Else
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Case Excel8:
    xFile = ".xls"
    xFormat = Excel8
Case xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add Wb2.FullName
    .Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub

Hinweis: Im obigen Code können Sie die folgenden Informationen nach Bedarf ändern.

• .To = "skyyang@extendoffice.com"
• .CC = ""
• .BCC = ""
• .Subject = "kte features"
• .Body = "Bitte überprüfen und lesen Sie dieses Dokument."

4. Drücken Sie dann die Taste F5, um diesen Code auszuführen, und ein Bestätigungsdialogfeld erscheint. Klicken Sie auf 'Zulassen', wenn die Statusanzeige abgeschlossen ist, und das aktuelle Arbeitsblatt wurde als Anhang an Ihren Empfänger gesendet.

Einzelnes Arbeitsblatt als PDF-Datei von Excel aus mit VBA-Code versenden

Manchmal müssen Sie Ihren Arbeitsblattbericht an andere senden, möchten aber nicht, dass andere ihn bearbeiten. In diesem Fall können Sie das Arbeitsblatt als PDF-Datei von Excel aus senden.

1. Aktivieren Sie Ihr Arbeitsblatt, das Sie senden möchten.

2. Halten Sie die Tasten ALT + F11 gedrückt, und es öffnet sich das Fenster 'Microsoft Visual Basic for Applications'.

3. Klicken Sie auf 'Einfügen > Modul' und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: aktuelles Arbeitsblatt als PDF-Datei von Excel aus senden

Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add FileName
    .Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

Hinweis: Im obigen Code können Sie die folgenden Informationen nach Bedarf ändern.

• .To = "skyyang@extendoffice.com"
• .CC = ""
• .BCC = ""
• .Subject = "kte features"
• .Body = "Bitte überprüfen und lesen Sie dieses Dokument."

4. Drücken Sie dann die Taste F5, und ein Bestätigungsdialogfeld erscheint. Klicken Sie auf 'Zulassen', nachdem die Statusanzeige abgeschlossen ist, und das aktive Arbeitsblatt wurde als PDF-Datei an die bestimmte Person gesendet.

Hinweise:

1. Diese Methoden sind nur verfügbar, wenn Sie Outlook als Ihr E-Mail-Programm verwenden.

2. Nachdem Sie das aktuelle Arbeitsblatt gesendet haben, können Sie zu Ihrem Outlook gehen, um sicherzustellen, dass die E-Mail erfolgreich gesendet wurde.

Mailingliste erstellen und E-Mails senden

Die Funktionen 'Mailingliste erstellen' und 'E-Mails senden ' von Kutools für Excel können schnell eine Mailingliste in einem Arbeitsblatt erstellen und denselben Betreff, denselben Inhalt und dieselben Anhänge an mehrere E-Mail-Adressen senden.

Zur Downloadseite gehen

Verwandte Artikel:

Wie sende ich die aktuelle Arbeitsmappe über Outlook von Excel aus?

Wie sende ich / versende einen Zellbereich über Outlook von Excel aus?