Wie sendet man eine E-Mail aus einem bestimmten Zellbereich in Excel?

In vielen Fällen kann ein bestimmter Bereich von Inhalten im Excel-Arbeitsblatt für Ihre E-Mail-Kommunikation nützlich sein. In diesem Artikel stellen wir eine Methode vor, mit der Sie eine E-Mail mit einem bestimmten Bereich direkt in den E-Mail-Text in Excel einfügen können.

E-Mail aus einem bestimmten Zellbereich in Excel senden
E-Mail aus einem bestimmten Zellbereich mit einem erstaunlichen Tool senden
Weitere Tutorials zum Versenden von E-Mails in Excel...

E-Mail aus einem bestimmten Zellbereich in Excel senden

Der folgende VBA-Code kann Ihnen helfen, einen Bereich zu kopieren und direkt in den Text einer Outlook-E-Mail einzufügen. Bitte gehen Sie wie folgt vor.

1. Drücken Sie in dem Arbeitsblatt, das den zu kopierenden Bereich enthält, gleichzeitig die Tasten „Alt + F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Klicken Sie im geöffneten Fenster „Microsoft Visual Basic for Applications“ auf „Extras“ > „Verweise“, wie im folgenden Screenshot gezeigt.

3. Aktivieren Sie im Dialogfeld „Verweise – VBAProject“ das Kontrollkästchen „Microsoft Outlook Object Library“ und klicken Sie dann auf die Schaltfläche OK.

4. Klicken Sie auf „Einfügen“ > „Modul“ und kopieren Sie den folgenden VBA-Code in das Modulfenster.

VBA-Code: E-Mail mit einem bestimmten Bereich in Excel senden

Sub Send_Email()
'Updated by Extendoffice 20200119
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xEmailBody As String
    Dim xMailOut As Outlook.MailItem
    Dim xOutApp As Outlook.Application    
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xRg.Cells(I, J).value
        Next
        xEmailBody = xEmailBody & vbNewLine
    Next
    xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
    With xMailOut
        .Subject = "Test"
        .To = "happy.xuebi@163.com"
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Hinweise:

• 1). Ändern Sie bitte den E-Mail-Text in dieser Skriptzeile xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine nach Bedarf.
• 2). Geben Sie bitte Ihren E-Mail-Empfänger und Betreff in dieser Zeile im Code an: (.To = happy.xuebi@163.com and .Subject = "test").

5. Drücken Sie die Taste F5, um den Code auszuführen. Wählen Sie im erscheinenden Kutools for Excel-Dialogfeld den Bereich aus, den Sie in den E-Mail-Text einfügen möchten, und klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:

6. Nun wird eine E-Mail mit dem angegebenen Empfänger, Betreff, Text und dem ausgewählten Excel-Bereich erstellt. Klicken Sie auf die Schaltfläche „Senden“, um diese E-Mail zu versenden. Siehe Screenshot.

Hinweis: Der VBA-Code funktioniert nur, wenn Sie Outlook als Ihr E-Mail-Programm verwenden.

E-Mail aus einem bestimmten Zellbereich mit einem erstaunlichen Tool senden

Wenn Sie Outlook nicht verwenden und dennoch E-Mails direkt in Excel mit einem bestimmten Bereich versenden möchten, empfehle ich Ihnen die Funktion „E-Mail senden“ von Kutools für Excel. Mit dieser Funktion müssen Sie lediglich den ausgehenden Server einer E-Mail-Adresse konfigurieren und können dann zukünftig direkt über diese E-Mail-Adresse in Excel E-Mails versenden.

1. Zuerst müssen Sie eine Mailingliste mit den benötigten Feldern vorbereiten.

• Tipps: Die Mailingliste muss mindestens 2 Zeilen enthalten, und die erste Zeile muss die Kopfzeilen sein (angenommen, Sie möchten E-Mails an zwei E-Mail-Adressen in Excel senden, geben Sie diese beiden E-Mail-Adressen mit der Kopfzeile „E-Mail“ ein, wie im folgenden Screenshot gezeigt).
• 
• Alternativ können Sie ganz einfach eine Mailingliste mit der Funktion Mailing-Liste erstellen erstellen.

2. Wählen Sie den Bereich aus, den Sie in den E-Mail-Text einfügen möchten, und drücken Sie die Tasten Strg + C, um ihn zu kopieren.

3. Wählen Sie die gesamte Mailingliste (einschließlich Kopfzeilen) aus, klicken Sie auf „Kutools Plus“ > „E-Mails senden“. Siehe Screenshot:

4. Dann öffnet sich das Dialogfeld „E-Mails senden“.

• 4.1) Elemente der ausgewählten Mailingliste werden in die entsprechenden Felder eingefügt (Sie können weitere Felder zur Mailingliste hinzufügen, falls nötig);
• 4.2) Klicken Sie in das E-Mail-Textfeld und drücken Sie die Tasten Strg + V, um die ausgewählten Bereichsdaten einzufügen. Fügen Sie danach weiteren Inhalt nach Bedarf hinzu;
• 4.3) Deaktivieren Sie das Kontrollkästchen „E-Mails über Outlook senden“;
• 4.4) Klicken Sie auf die Schaltfläche „SMTP-Einstellungen“. Siehe Screenshot:

  

5. Dann öffnet sich das Dialogfeld „SMTP-Einstellungen – Neues Schema“. Füllen Sie die E-Mail-Adresse mit ihren Servereinstellungen aus, geben Sie einen Ordner an, in dem alle gesendeten E-Mails gespeichert werden sollen, nachdem Sie das Kontrollkästchen „Gesendete E-Mails speichern in“ aktiviert haben, und klicken Sie dann auf die Schaltfläche OK, um die Einstellungen zu speichern.

6. Wenn Sie zum Dialogfeld „E-Mails senden“ zurückkehren, klicken Sie auf die Schaltfläche „Senden“, um die E-Mail zu versenden.

Verwandte Artikel: