Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie kann ich E-Mails mit HTML-E-Mail-Text in Excel senden?

Wenn Sie eine E-Mail mit HTML-Body-Inhalt in Excel senden möchten, kann eine Methode in diesem Artikel Ihnen helfen.

Senden Sie E-Mails mit HTML-E-Mail-Nachrichtentext mit VBA-Code


Einfaches Senden von E-Mails über Outlook basierend auf der erstellten Mailingliste:

Die E-Mails senden Dienstprogramm von Kutools für Excel hilft Benutzern beim Senden von E-Mails über Outlook basierend auf erstellten Mailing-Liste in Excel. Siehe Screenshot:

Kutools for Excel enthält mehr als 300 praktische Excel-Tools. Kostenlos zu testen, ohne Einschränkung in 60 Tagen. Laden Sie jetzt die kostenlose Testversion herunter


Senden Sie E-Mails mit HTML-E-Mail-Nachrichtentext mit VBA-Code


Bitte gehen Sie wie folgt vor, um eine E-Mail mit Body-Inhalten im HTML-Format in Excel zu senden.

1. Drücken Sie die Taste Andere + F11 gleichzeitig öffnen Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Einsatz > Modul. Kopieren Sie dann den VBA-Code in das Modulfenster.

VBA-Code: Senden Sie eine E-Mail mit HTML-E-Mail-Text in Excel

Sub SendEmailformattext()
'Update by Extendoffice.com
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
             .Display
                .To = xRgVal
                .Subject = "Test"
                .HTMLBody = "<HTML><BODY><span style=""color:#80BFFF"">Font Color</span style=""color:#80BFFF""> <br>the <b>bold text</b> here.</br> <br><u>New line with underline</u></br><br><p style='font-family:calibri;font-size:25'>Font size</br></p></BODY></HTML>"
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Notizen:

1) Ersetzen Sie die .Gegenstand Linie mit Ihrer eigenen.

2) In der .HTMLKörper Zeile:

2.1) <span style = "" color: #80BFFF ""> ... </ span style = "" color: #80BFFF ""> ist das Textfarbformat;

2.2) <b> ... </ b> kann deinen Text fett machen;

2.3) Wenn Sie eine neue Zeile beginnen möchten, fügen Sie bitte die neue Zeile mit ein <br> ... </ br>;

2.4) Unterstreichen Sie Ihren Text mit <u> ... </ u>;

2.5) Und ändern Sie Ihre Textgröße um <p style = 'Schriftfamilie: calibri; Schriftgröße: 25'> ... </ p>.

3 Klicken Tools > Referenzen, Überprüf den Microsoft Outlook-Objektbibliothek Box in der Referenzen - VAProject Dialogfeld, und klicken Sie dann auf OK Taste. Siehe Screenshot:

4. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. In dem Auftauchen Kutools for Excel Wählen Sie im Dialogfeld die E-Mail-Adressen der Empfänger aus und klicken Sie dann auf OK klicken.

Dann E-Mail mit angegebenen Feldern und HTML-Body erstellt. Bitte klicken Sie auf Senden Schaltfläche, um es zu senden.


In Verbindung stehende Artikel:



Empfohlene Produktivitätswerkzeuge für Excel

Kutools for Excel hilft Ihnen, Ihre Arbeit immer im Voraus zu erledigen und sich von der Masse abzuheben

  • Mehr als 300 leistungsstarke erweiterte Funktionen, die für 1500-Arbeitsszenarien entwickelt wurden und die Produktivität um 70% steigern, geben Ihnen mehr Zeit, sich um Ihre Familie zu kümmern und das Leben zu genießen.
  • Sie müssen keine Formeln und VBA-Codes mehr auswendig lernen. Geben Sie Ihrem Gehirn eine Pause.
  • Werden Sie ein Excel-Experte in 3 Minuten. Komplizierte und wiederholte Operationen können in Sekunden durchgeführt werden.
  • Reduzieren Sie jeden Tag Tausende von Tastatur- und Mausoperationen und verabschieden Sie sich jetzt von Berufskrankheiten.
  • 110,000 hochwirksame Mitarbeiter und 300 + weltweit renommierte Unternehmen.
  • Kostenlose Testversion für 60-Tage mit allen Funktionen. Geld-zurück-Garantie für 60-Tage. 2 Jahre kostenloses Upgrade und Support.

Bringt das Browsen und Bearbeiten von Registerkarten in Microsoft Office, das weitaus leistungsstärker ist als die Registerkarten des Browsers

  • Die Registerkarte "Office" wurde für Word, Excel, PowerPoint und andere Office-Anwendungen entwickelt: Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50% und reduziert täglich Hunderte von Mausklicks für Sie!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Luis · 10 months ago
    i have my mail signature for default. however once i run the macro the message delete the mail signature from the new mail. Do you know how is possible mantein it ? thank you!!! Best Regards