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
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 281685
Url: https://administrator.de/contentid/281685
Ausgedruckt am: 22.11.2024 um 11:11 Uhr
6 Kommentare
Neuester Kommentar
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