Outlook Schnellbausteine ausdrucken
Hallo Ihr Profis
Wie kann ich Schnellbausteine, die in Outlook (2007) verfügbar sind ausdrucken als
Katalog ?
Danke für deinen Rat...
LG
Loeneberger
Wie kann ich Schnellbausteine, die in Outlook (2007) verfügbar sind ausdrucken als
Katalog ?
Danke für deinen Rat...
LG
Loeneberger
Please also mark the comments that contributed to the solution of the article
Content-Key: 281685
Url: https://administrator.de/contentid/281685
Printed on: April 19, 2024 at 11:04 o'clock
6 Comments
Latest comment
Hallo Loeneberger,
da die Schnellbausteine wie in Word in einer Vorlagendatei, der NormalEmail.dotm im Verzeichnis:
gespeichert werden, könntest du dir das mit einem VBS Makro selbst herstellen:
(Ist jetzt noch keine Schönheit, aber das lässt sich ja nach Belieben anpassen)
Grüße Uwe
da die Schnellbausteine wie in Word in einer Vorlagendatei, der NormalEmail.dotm im Verzeichnis:
%appdata%\Microsoft\Templates
Set objWord = WScript.CreateObject("Word.Application")
Set objShell = CreateObject("Wscript.Shell")
appData = objShell.ExpandEnvironmentStrings("%APPDATA%")
templatePath = appData & "\Microsoft\Templates\NormalEmail.dotm"
Set doc = objWord.Documents.Add(templatePath)
doc.Activate
With objWord
.Visible = True
Set template = .Templates(templatePath)
For i = 1 To template.BuildingBlockEntries.Count
.Selection.InsertAfter "------------------ " & template.BuildingBlockEntries(i).Name & " ------------------ "
.Selection.Font.Bold = True
.Selection.Collapse 0
.Selection.Font.Bold = False
.Selection.InsertBreak 6
template.BuildingBlockEntries(i).Insert .Selection.Range
.Selection.InsertBreak 6
Next
End With
Grüße Uwe
Servus @Geofis, willkommen auf Administrator.de!
An die Kategorie kommst du innerhalb der Schleife mittels
Das kannst du dann im Dokument hinschreiben wo du es brauchst, etwa oben in Zeile 11 folgendermaßen
Grüße Uwe
An die Kategorie kommst du innerhalb der Schleife mittels
template.BuildingBlockEntries(i).Category.Name
.Selection.InsertAfter "------------------ " & template.BuildingBlockEntries(i).Name & " | Kategorie: " & template.BuildingBlockEntries(i).Category.Name & " ------------------ "
Grüße Uwe