VBScript Hyperlink formatieren

[speedyfurious 10]

Hallo Leute,

 

ich hab ein VBScript welches mir automatisiert Outlook Signatur einrichtet. Die Userdaten sind im Active Dirctory hinterlegt und funktioniert auch. Das Script wird dann via Login-Script ausgeführt.

 

Ein Problem bleibt allerdings, in der Signatur ist die Email Adresse und Homepage als Hyperlink hinterlegt, dieser lässt sich aber nicht formatieren bzw übernimmt nicht die vorgeben Formatierung.

 

Folgenden Code habe ich probiert

 

objSelection.Font.Bold = True
objselection.typetext "I "
objSelection.Font.Bold = False
objSelection.Font.Name = "Arial Narrow"
objSelection.Font.Size = "8,5"
objSelection.Font.Color = RGB(0,63,114)
Set objLink = objSelection.Hyperlinks.Add(objSelection.Range,"http://www.webpage.com",,"Our Webpage", "www.webpage.com")

 

Ergibt

 

 

Calibri 11 (Outlook Standard)

 

Folgender Code führt zu gleichem Ergebnis, diesmal als mailto

 

objSelection.Font.Bold = True
objselection.typetext "E "
objSelection.Font.Bold = False
objSelection.Font.Name = "Arial Narrow"
objSelection.Font.Size = "8,5"
objSelection.Hyperlinks.Add objSelection.range, "mailto:" & strEmail, , , strEmail

 

Eingesetzt wird das Script auf Outlook 2007/2010

 

Hab mir schon einen Wolf gesucht, das Problem findet man des öfteren im Netz allerdings gibt es nirgendwo eine Lösung die bei mir funktionierte.

 

Wenn ihr den ganzen Code benötigt poste ich ihn gerne.

 

Eventuell hat jemand einen Tipp für mich.

 

Danke im Voraus

 

Schöne Grüße

Philipp

[mamamia 13]

Servus,

 

ich nehm an, du schreibst eine html-Datei die dann in den Signature Ordner wandert, oder?

Warum schreibst du nicht einfach Klartext in die Datei <a href=""></a> und so?

[speedyfurious 10]

Hallo,

die Signatur wird von besagtem vbscript erstellt, Outlook wandelt die Variablen dann in die jeweilige htm, rtf und txt Datei um.

 

Ich wüsste nicht wie ich html in das Script einbauen könnte.

[ZeroKnowledge 11]

Probier mal

objSelection.Font.Bold = True
objselection.typetext "I "
objSelection.Font.Bold = False
objSelection.Font.Name = "Arial Narrow"
objSelection.Font.Size = "8,5"
objSelection.Font.Color = RGB(0,63,114)

Set objLink = objSelection.Hyperlinks.Add(objSelection.Range,"http://www.webpage.com",,"Our Webpage", "www.webpage.com")

' und hier dann die Formatierung für den Link
objLink.Range.Font.Size = 9 
objLink.Range.Font.Bold = True

[speedyfurious 10]

Das habe ich auch schon versucht, allerdings mit dem gleichem Ergebnis.

 

Ich hab jetzt mal die Signatur in Word nachgebaut und als Makro aufgezeichnet.

 

Folgender Code ist dabei rausgekommen

 

Selection.TypeText Text:="www.webpage.com" 
Selection.MoveLeft Unit:=wdCharacter, Count:=15, Extend:=wdExtend 
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _ 
"www.webpage.com", SubAddress:="", ScreenTip:="", TextToDisplay:= _ 
"www.webpage.com" 
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend 
Selection.Font.Name = "Arial Narrow" 
Selection.Font.Size = 8

 

Kommt ja eigentlich aufs gleiche wie mein Code, aber die Formatierung der Hyperlinks ändert sich in keinster Weise.

 

Bin für jeden Tipp dankbar.