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

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 281685

Url: https://administrator.de/forum/outlook-schnellbausteine-ausdrucken-281685.html

Ausgedruckt am: 22.12.2024 um 17:12 Uhr

6 Kommentare

Neuester Kommentar

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