Fontgröße bei Signatur ändern

Sub MailDisplay Dim Nachricht As Object, OutApp As Object Set OutApp = CreateObject("Outlook.Application") InitializeOutlook = True Set Nachricht = OutApp.CreateItem(0) With Nachricht .GetInspector '.To ="" .Subject = "Testsubject" .HTMLBody = "" _ & "" _ & " " & "" & .HTMLBody .Display End With Set OutApp = Nothing Set Nachricht = Nothing End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris,

sorry, ich hatte Dein Anliegen wohl nicht richtig gedeutet, Du möchtest die Signatur verändern....

Möglicherweise lässt sich der Font der Signatur nicht weiter beeinflussen.
Die Signatur lässt sich sehr wohl verändern. Die Signatur ist reines HTML und kann in einer Variablen gespeichert werden. Dort kann man sie auseinandernehmen, parsen und verändern. Hierzu benötigst Du aber schon umfangreiche HTML-Kenntnisse. Leider ist der Signaturcode m.E. von MS heutzutage völlig überzogen. Teilweise werden bis zu 30.000 Zeichen verwendet, obwohl man sie mit ein paar hundert Zeichen erstellen könnte. Das ärgert mich schon lange. Aber sei es drum.

Bei meinem Beispiel ist die Signatur nicht in der Formatierung eingeschlossen. Den Signaturcode in einen font-Tag zu legen bringt nichts, da er von den internen Tags wieder zunichte gemacht würde.
Also verändern wir per Replace die Font-Größe. Wenn Du nur die Schriftgröße ändern möchtest, sollte das reichen, ansonsten wird es halt etwas umfangeicher.
Probiere mal den u.a. code aus.
BTW: Für die Darstellung von HTML müssen die < und > ersetzt werden und zwar durch & lt; und & gt ;
(Leerzeichen entfernen).

Sub MailDisplay()
  With CreateObject("Outlook.Application").CreateItem(0)
     .GetInspector.Display
     '.To =""
     .Subject = "Testsubject"
     .htmlbody = "MeinText<br>" _
               & Replace(.htmlbody, "font-size:10.0pt", "font-size:15pt") & ""
  End With
End Sub

Gruß Karl-Heinz

Sub MailDisplay() With CreateObject("Outlook.Application").CreateItem(0) .GetInspector.Display '.To ="" .Subject = "Testsubject" .htmlbody = "MeinText<br>" _ & Replace(.htmlbody, "font-size:10.0pt", "font-size:15pt") End With End Sub

Code:

Sub MailDisplay()
  Dim sArr() As String
  Dim i As Integer, p As Integer
  Const sSize As String = "12"  'Schriftgröße
  
  With CreateObject("Outlook.Application").CreateItem(0)
       .GetInspector.Display
       .to = ""
       .Subject = "Testsubject"
       sArr = Split(.htmlbody, "font-size:")
       For i = 1 To UBound(sArr)
           sArr(i) = sSize & Mid$(sArr(i), InStr(sArr(i), "pt;"))
       Next i
       .htmlbody = "<body style='font-size:10pt;'>MeinText<br></body>" _
                 & Join$(sArr, "font-size:")
  End With
End Sub

Hallo Karl-Heinz & Chris,

das Thema Outlook-Signatur per Excel-Vba hat mich bei 1 Projekt auch mal an den Nerven gezerrt, zumal in der Signatur noch 1 Grafik eingebunden war:
- es war Outlook 2016, 2019 und 365 beteiligt in 32- ind 64 bit
- in den 3 Outlook-Version gab es unterschiedliche Verzeichnisse,
  wo die *.htm zu finden war
- in der Signaturdatei ist der Pfad zur Grafik nur relativ angegeben (also ohne Lw/Pfad)
- der Outlook-Inspektor kann damit umgehen
- aber bei Excel-Vba muß man diesen Pfad absolut setzen
- und dann kam eben auch der Wunsch nach der Schriftgröße der Signatur
- per Vba war das Alles nicht mehr vernünftig zu händeln

Deshalb haben wir es dann auf meinem Vorschlag hin so gemacht:
- bei jedem User, der mit dem Excel-Makro E-Mails schreibt
- wurde die Signaturdatei einschließlich der Grafik in 1 fest vorgegebenes
  Verzeichnis auf seinem PC/Notebook kopiert
- der Pfad zur eingebundenen Grafik in der Signaturdatei absolout gesetzt
- Schriftgrößen in der Signaturdatei angepaßt
- und fertig war der Lack
  - htm-Datei auslesen
  - im htmlBody reinkopieren

Ach wie schön war das Alles noch in Outlook 2010, da konnte man per Excel-Vba auf das Outlook-Menü zugreifen und die Signaturdatei einstellen. Dies geht seit Outlook 2013 leider nur noch per Outlook-UI aber für Vba ist dieser Zugriff total gesperrt. Die Angst vor dem 'My-Love-You'-Virus vom 05.05.2000 steckt noch tief in den Knochen von M$.

Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

Tel:	06666 99 99 99
Handy:	0177 99 99 99 99

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread