Hallo zusammen,
ich bin auf ein Problem mit CSS-Font-sizes in Outlook Makros gestoßen und hatte gehofft, dass mir eventuell jemand weiterhelfen kann. Das Ziel meines Projekts ist auf Knopfdruck (über eine Makrotastatur) verschiedene Antwort E-Mails erstellen zu lassen, die einen festen Text haben. Da ich eine Reihe verschiedener Antwort E-Mails an viele verschiedene Empfänger benötige komme ich leider mit Signaturen nicht weiter. Zwar lässt sich alles relativ schnell über Signaturen lösen, allerdings würde ich den Vorgang gerne auf einen Knopfdruck vereinfachen.
Hierfür habe ich folgendes Makro anhand von ähnlichen Beispielen zusammengebastelt:
Sub Reply_SaveReceipt()
Dim myItem As Object
Dim reply As MailItem
Dim text As String
Dim text2 As String
Dim objDoc As Object
Dim Signatur As Object
Set myItem = Application.ActiveExplorer.Selection.Item(1)
Set reply = myItem.reply
With reply
.Display
Set objDoc = .GetInspector.WordEditor
Set Signatur = objDoc.Bookmarks("_MailAutoSig")
If Not Signatur Is Nothing Then
Signatur.Range.Delete
End If
text = "<p style=font-size:12pt;font-family:"Times New Roman"> Text </p><br>"
text2 = "<p style=font-size:12pt;font-family:"Times New Roman">Text </p>"
.HTMLBody = text & text2 & .HTMLBody
.Display
End With
End Sub
Das Makro funktioniert weitestgehend wie es soll. Über einen Knopfdruck lässt sich das Makro über die Schnellleiste abrufen. Ein E-Mail Entwurf wird erzeugt, welcher dann nur noch versandt werden muss. Allerdings funktioniert die Einstellung der Schriftgröße nicht immer. Ich habe das Makro an mehreren verschiedenen E-Mails getestet, bei manchen E-Mails wird die Antwort E-Mail in Schriftgröße 12 wie gewollt erstellt, bei anderen E-Mail wird die Antwort E-Mail allerdings in Schriftgröße 10 erstellt. Ich konnte bislang noch nicht feststellen, wegen welchen Bedingungen welcher Fall auftritt.Als Schriftart wird immer Times New Roman ausgegeben.
Ich hatte anfangs die CSS Formatierung auch wie folgt angegeben:
<p style='font-size:12pt;font-family:"Times New Roman"'>
Hier wurde dann entweder Schriftgröße 10 und Calibri oder Schriftgröße 12 und Times New Roman ausgegeben.
Ich habe auch versucht die Standardschrift in Outlook zu ändern, allerdings hat auch das nichts gebracht.
Leider ist meine Erfahrung mit CSS und HTML eher gering. Hat jemand eine Idee woran das Problem liegen könnte und wie man es umgehen kann?
Vielen Dank im Voraus!
Gruß
Stefan
|