Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Hyperlink in Email per VBA

Hyperlink in Email per VBA
22.02.2006 09:30:19
Thorsten
Hallo Forumsteilnehmer,
ich möchte per VBA eine Email verschicken, was auch super klappt.
Allerdings möchte ich im Mail-Text einen Hyperlink haben.
Der Link wird aber leider nur als Text eingefügt.
Hat jemand dazu eine Idee?

Sub kalku_prüfen()
Sheets("Übersicht").Select
anfrage = Range("b1")
If anfrage = "" Or anfrage = 0 Then
MsgBox "Keine Angebotsnummer vergeben"
Exit Sub
End If
Range("c1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="\\server\" & anfrage & "\" & anfrage & ".xls"
Dim o
Dim m
was = Range("C1")
Set o = CreateObject("Outlook.Application")
Set m = o.CreateItem(0)
m.To = "aol@aol.com"
m.Subject = "Betreff" 'Betreff
m.body = was
m.Send
End Sub

Vorab schon mal Danke und liebe Grüße aus Berlin
Thorsten
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink in Email per VBA
22.02.2006 09:40:42
MichaV
Hallo,
ersetze mal 2 Zeilen:

was = "<a href=""\\server\" & anfrage & "\" & anfrage & ".xls""> " & Range("C1") & "</a>"
und
m.htmlbody = was

Gehts nun?
Gruß, auch aus Berlin,- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Hyperlink in Email per VBA
22.02.2006 10:08:36
Thorsten
Hallo Micha,
danke für Deine schnelle Antwort.
So klappt das jetzt super.
MFG
Thorsten
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Hyperlink in Email per VBA einfügen


Schritt-für-Schritt-Anleitung

Um einen Hyperlink in einer Email per VBA zu implementieren, kannst du folgende Schritte befolgen:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Füge ein neues Modul hinzu: Rechtsklick im Projektfenster -> Einfügen -> Modul.

  3. Kopiere den folgenden Code in das neue Modul:

    Sub kalku_prüfen()
       Sheets("Übersicht").Select
       anfrage = Range("b1")
       If anfrage = "" Or anfrage = 0 Then
           MsgBox "Keine Angebotsnummer vergeben"
           Exit Sub
       End If
       Range("c1").Select
       ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="\\server\" & anfrage & "\" & anfrage & ".xls"
       Dim o As Object
       Dim m As Object
       was = "<a href=""\\server\" & anfrage & "\" & anfrage & ".xls""> " & Range("C1") & "</a>"
       Set o = CreateObject("Outlook.Application")
       Set m = o.CreateItem(0)
       m.To = "aol@aol.com"
       m.Subject = "Betreff" 'Betreff
       m.HTMLBody = was
       m.Send
    End Sub
  4. Passe den Code an, falls notwendig, insbesondere die Email-Adresse, den Betreff und die Datei-Pfade.

  5. Führe das Makro aus, um die Email mit dem Hyperlink zu versenden.


Häufige Fehler und Lösungen

  • Hyperlink wird als Text angezeigt: Stelle sicher, dass du m.HTMLBody anstelle von m.Body verwendest, wie im Beispiel gezeigt.
  • Outlook öffnet sich nicht: Überprüfe, ob Outlook korrekt installiert und konfiguriert ist.
  • Fehler bei der Dateipfad-Angabe: Achte darauf, dass der Pfad korrekt ist und die Datei existiert.

Alternative Methoden

Eine alternative Methode, um Hyperlinks in Emails zu integrieren, ist die Verwendung des mailto-Links:

m.Body = "Hier ist der Link: " & "mailto:someone@example.com?subject=Betreff&body=Hier ist der Hyperlink: " & "http://deine-url.com"

Diese Methode ist nützlich, wenn du einen einfachen Link ohne HTML-Formatierung einfügen möchtest.


Praktische Beispiele

Hier sind einige Beispiele, wie du Email Hyperlinks in verschiedenen Szenarien nutzen kannst:

  1. Email mit Datei-Link:

    was = "<a href=""file://\\server\dein_dateipfad.xls"">Datei öffnen</a>"
  2. Email mit externem Link:

    was = "<a href=""http://www.deine-webseite.de"">Besuche unsere Webseite</a>"
  3. Email mit Link zu einem Mailto:

    was = "<a href=""mailto:someone@example.com"">Email senden</a>"

Tipps für Profis

  • Verwende HTML-Formatierung: Das Einfügen von HTML-Elementen ermöglicht dir, ansprechende Emails mit Links zu gestalten.
  • Variablen nutzen: Du kannst Variablen für Betreff, Empfänger und Text verwenden, um den Code dynamisch zu gestalten.
  • Fehlerbehandlung einbauen: Füge eine Fehlerbehandlung in dein Makro ein, um mögliche Probleme beim Senden von Emails zu erkennen und zu beheben.

FAQ: Häufige Fragen

1. Wie kann ich einen Hyperlink in einer Excel-Tabelle einfügen und diesen in der Email verwenden?
Du kannst einen Hyperlink in eine Zelle einfügen, indem du ActiveSheet.Hyperlinks.Add verwendest und dann den Link in die Email über HTMLBody einfügst.

2. Was ist der Unterschied zwischen Body und HTMLBody?
Body sendet den Text als einfachen Text, während HTMLBody es ermöglicht, HTML-Formatierungen wie Hyperlinks zu verwenden.

3. Funktioniert dieser Code in allen Excel-Versionen?
Der Code sollte in Excel-Versionen ab 2007 funktionieren, solange Outlook installiert ist. Achte darauf, die Sicherheits- und Makroeinstellungen entsprechend zu konfigurieren.

4. Wie kann ich den Hyperlink in der Email anpassen?
Du kannst den Text des Hyperlinks ändern, indem du den entsprechenden Text in der was-Variablen anpasst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige