Wie sendet man eine E-Mail aus Excel mit einem Hyperlink im E-Mail-Text?

Haben Sie jemals versucht, eine E-Mail mit VBA-Code in Excel zu senden? Und wie fügt man dem E-Mail-Text Hyperlinks hinzu, wenn man eine E-Mail sendet? Dieser Artikel wird helfen, dieses Problem zu lösen.

Hyperlink in den E-Mail-Text mit VBA-Code einfügen

Hyperlink in den E-Mail-Text mit VBA-Code einfügen

Der folgende VBA-Code kann helfen, eine E-Mail aus Excel zu senden und einen bestimmten Hyperlink in den E-Mail-Text einzufügen. Bitte gehen Sie wie folgt vor.

1. Öffnen Sie Ihre Arbeitsmappe, drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul, und kopieren Sie dann den folgenden VBA-Code in den Modul-Editor.

VBA-Code: Hyperlink in den E-Mail-Text einfügen

Sub EmailHyperlink()
'updated by Extendoffice 20190815
Dim xOtl As Object
Dim xOtlMail As Object
Dim xStrBody As String
    xStrBody = "Hi there:" & "<br>" _
              & "Please click " & "<a href="/ & "http://www.extendoffice.com"">Here</a> to open the page" & "<br>" _
              & "Thank you."
    On Error Resume Next
    Set xOtl = CreateObject("Outlook.Application")
    Set xOtlMail = xOtl.CreateItem(olMailItem)
    With xOtlMail
        .To = "Email Address"
        .CC = "Email Address "
        .BCC = " Email Address "
        .Subject = "Subject line"
        .HTMLBody = .HTMLBody & xStrBody
        .Display
    End With
    Set xOtl = Nothing
    Set xOtlMail = Nothing
End Sub

Hinweise:

• Ändern Sie bitte den Textinhalt und den Hyperlink in der xStrBody-Zeile.
• Ersetzen Sie die „E-Mail-Adresse“ in den .An, .CC und .BCC Zeilen durch die tatsächlichen E-Mail-Adressen, an die Sie die E-Mail senden möchten. Wenn Sie die CC- und BCC-Zeilen nicht benötigen, entfernen Sie sie einfach aus dem gesamten Code oder fügen Sie ein einfaches Anführungszeichen vor die Zeilen, z.B. 'CC =”E-Mail-Adresse”.
• Ersetzen Sie die „Betreffzeile“ in der .Betreff-Zeile durch Ihren eigenen E-Mail-Betreff.

3. Drücken Sie die F5-Taste, um den Code auszuführen. Dann wird die E-Mail mit den angegebenen Feldern und dem Text mit Hyperlink erstellt. Klicken Sie auf die Schaltfläche Senden, um sie zu versenden.

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!

Verwandte Artikel