Wie sende ich eine E-Mail aus Excel mit einem Hyperlink im E-Mail-Text?
Haben Sie schon einmal versucht, eine E-Mail mit VBA-Code in Excel zu senden? Und wie füge ich beim Senden von E-Mails Hyperlinks zum E-Mail-Text hinzu? Dieser Artikel hilft, dieses Problem zu lösen.
Fügen Sie einen Hyperlink mit VBA-Code in den E-Mail-Text ein
Fügen Sie einen Hyperlink mit VBA-Code in den E-Mail-Text ein
Der folgende VBA-Code kann helfen, E-Mails aus Excel zu senden und einen bestimmten Hyperlink in den E-Mail-Text einzufügen. Bitte gehen Sie wie folgt vor.
1. Starten Sie Ihre Arbeitsmappe und drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul, und kopieren Sie dann den folgenden VBA-Code in den Modul-Editor.
VBA-Code: Fügen Sie einen Hyperlink in den E-Mail-Text ein
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
Anmerkungen:
- Bitte ändern Sie den Körperinhalt und den Hyperlink in der xStrBody Linie.
- Ersetze das "E-Mail-Adresse" im . Um, .CC und .BCC Zeilen mit den tatsächlichen E-Mail-Adressen, an die Sie E-Mails senden. Wenn Sie die CC- und BCC-Zeilen nicht benötigen, entfernen Sie sie einfach aus dem gesamten Code oder fügen Sie vor den Zeilen ein einfaches Anführungszeichen ein, z 'CC = ”E-Mail-Adresse”.
- Ersetze das "Betreff-Zeile" im .Gegenstand Linie mit Ihrem E-Mail-Betreff eigenen.
3. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Anschließend wird die E-Mail mit den angegebenen Feldern und dem angegebenen Text mit dem darin aufgeführten Hyperlink erstellt. Klicken Sie auf die Schaltfläche Senden, um sie zu senden.
In Verbindung stehende Artikel
Senden Sie E-Mails automatisch basierend auf dem Zellenwert in Excel
Angenommen, Sie möchten eine E-Mail über Outlook an einen bestimmten Empfänger senden, basierend auf einem angegebenen Zellenwert in Excel. Wenn beispielsweise der Wert von Zelle D7 in einem Arbeitsblatt größer als 200 ist, wird automatisch eine E-Mail erstellt. In diesem Artikel wird eine VBA-Methode vorgestellt, mit der Sie dieses Problem schnell lösen können.
E-Mail senden, wenn in Excel auf die Schaltfläche geklickt wird
Angenommen, Sie müssen E-Mails über Outlook senden, indem Sie auf eine Schaltfläche im Excel-Arbeitsblatt klicken. Wie können Sie dies tun? In diesem Artikel wird eine VBA-Methode vorgestellt, um dies im Detail zu erreichen.
Senden Sie eine E-Mail, wenn das Fälligkeitsdatum in Excel erreicht wurde
Angenommen, das Fälligkeitsdatum in Spalte C beträgt höchstens 7 Tage (aktuelles Datum ist der 2017), und senden Sie eine E-Mail-Erinnerung an den angegebenen Empfänger in Spalte A mit dem angegebenen Inhalt in Spalte B. Wie wird dies erreicht? Die Methode in diesem Artikel kann Ihnen einen Gefallen tun.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, 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 jeden Tag Hunderte von Mausklicks für Sie!