loeneberger
Goto Top

Outlook Schnellbausteine ausdrucken

Hallo Ihr Profis face-smile

Wie kann ich Schnellbausteine, die in Outlook (2007) verfügbar sind ausdrucken als
Katalog ?

Danke für deinen Rat...

LG
Loeneberger

Content-ID: 281685

Url: https://administrator.de/contentid/281685

Ausgedruckt am: 04.11.2024 um 18:11 Uhr

colinardo
Lösung colinardo 01.09.2015 aktualisiert um 13:32:52 Uhr
Goto Top
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
Loeneberger
Loeneberger 01.09.2015 um 13:21:10 Uhr
Goto Top
Danke Uwe,
Das probiere ich aus face-smile
Geofis
Geofis 15.06.2023 um 17:27:01 Uhr
Goto Top
Super Lösung hat bestens geklappt. face-smile

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
colinardo
colinardo 15.06.2023 aktualisiert um 18:22:27 Uhr
Goto Top
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
Geofis
Geofis 16.06.2023 um 08:29:33 Uhr
Goto Top
Grüezi Uwe,
Wow super Forum face-smile
Hat super funktioniert
Besten Dank face-smile
Grüsse aus der Schweiz
colinardo
colinardo 16.06.2023 aktualisiert um 09:47:45 Uhr
Goto Top
Immer gerne face-smile.

Grüße von der Algarve.