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

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 10:04 o'clock

6 Comments

Latest comment

Hallo Loeneberger,
da die Schnellbausteine wie in Word in einer Vorlagendatei, der NormalEmail.dotm im Verzeichnis:

%appdata%\Microsoft\Templates

gespeichert werden, könntest du dir das mit einem VBS Makro selbst herstellen:

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

(Ist jetzt noch keine Schönheit, aber das lässt sich ja nach Belieben anpassen)

Grüße Uwe

Danke Uwe,
Das probiere ich aus

Super Lösung hat bestens geklappt.

Schön wäre es noch wenn die Kategorie des Schnellbausteins angezeigt wird.
Wie müsste die Änderung aussehen?

Besten Dank für deine Bemühungen

Gruss
Geofis

Servus @Geofis, willkommen auf Administrator.de!
An die Kategorie kommst du innerhalb der Schleife mittels

template.BuildingBlockEntries(i).Category.Name

Das kannst du dann im Dokument hinschreiben wo du es brauchst, etwa oben in Zeile 11 folgendermaßen

.Selection.InsertAfter "------------------ " & template.BuildingBlockEntries(i).Name & " | Kategorie: " & template.BuildingBlockEntries(i).Category.Name & " ------------------ "  

Grüße Uwe