Outook Textmarkierung in Hyperlink
04.08.2016 16:03:17
Basti
habe mal wieder keinen Durchblick mit VBA für Outlook und erbitte Eure Hilfe.
Hab mit Hilfe von Rudi diesen Code für Excel erhalten, der mir den markierten Text -sName - in einen Hyperlink umwandelt. Marko funktioniert und hilft mir sehr.
Jetzt würde ich gerne das selbe auch in Outlook tun, nur stehe ich etwas auf dem Schlauch und hoffe, Ihr habt eine Lösung.
Sub HyperLinkAdd()
Dim sName As String, rngC As Range
Application.ScreenUpdating = False
For Each rngC In Selection
sName = rngC.Value
ActiveSheet.Hyperlinks.Add _
Anchor:=rngC, _
Address:="AdresseTeil1" & sName & "AdresseTeil2", _
TextToDisplay:=sName
Next rngC
End Sub
Gruß
Basti
Anzeige