Text mit VBA als mailto-Hyperlink formatieren

  • Word

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Kobold.

    Text mit VBA als mailto-Hyperlink formatieren

    Hallo zusammen,

    hier eine kurze Frage - wahrscheinlich total einfach aber ich hab keine Lösung finden können.
    Ich habe eine Tabelle und in eine Zelle möchte ich mit VBA z.B. "Max Muster" reinschreiben (das ist kein Problem) und diesen Text dann als mailto-Link mit einer Emailadresse unterfüttern.

    Das Ergebnis soll so sein als wenn ich unter Word von Hand "Max Muster" in das Feld tippe, dann markiere -> Hyperlink -> E-mail Adresse auswähle und eine Emailadresse eingebe.
    Der resultierende Text ist dann also blau und unterstrichen und mit STRG+Klick öffnet sich das Mailprogramm.

    Kann mir wer verraten wie ich das hinbekomme? ?(

    Danke und Gruß
    Kobold
    So, habe es gelöst und hier die Lösung:

    Einfach mit VBA das markieren wo man den mailto-Hyperlink hinterlegen möchte, z.B. über selection.*irgendwas*

    Dann:
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _
    Address:="mailto:max@muster.de?subject=Musteremail", _
    SubAddress:="", _
    ScreenTip:="", _
    TextToDisplay:="Hier steht das was im Dokument zu sehen sein soll"

    Grüße
    Kobold