Jump to content

speedyfurious

Members
  • Gesamte Inhalte

    3
  • Registriert seit

  • Letzter Besuch

Beiträge erstellt von speedyfurious

  1. 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.

  2. 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

     

    5ocdl967.png

     

    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

×
×
  • Neu erstellen...