Hallo zusammen,
ich suche schon seit längerem eine Möglichkeit den Gedruckt-Status einer E-Mail anzuzeigen. Dadurch kann ich nachvollziehen, ob ich die E-Mail gedruckt habe.
Nun habe ich als guten Ansatz das Kategorisieren für mich entdeckt, auch per vba. Im Anschluss soll die E-Mail im Grunde nur noch gedruckt werden. 1x, auf dem Standarddrucker (als Schnelldruck, ohne weiteren Dialog).
Leider sind meine vba-Kenntnisse mehr als mau. Hier mein Code-Schnipsel.
Der 1. Teil mit der Kategorie "gedruckt" setzen funktioniert wunderbar, aber das Drucken leider nicht.
Sub Kategorie_setzen_und_drucken()
Dim olExplorer As Explorer
Dim olFolder As MAPIFolder
Dim olSelection As Selection
Set olExplorer = Application.ActiveExplorer
Set olFolder = Application.ActiveExplorer.CurrentFolder
Set olSelection = olExplorer.Selection
If olFolder.DefaultItemType = olMailItem Then
If olSelection.Count = 0 Then GoTo weiter
For X = 1 To olSelection.Count
With olSelection.Item(X)
.Categories = "gedruckt"
.Save
End With
Next X
Else
weiter:
End If
If Mail.UnRead Then
Mail.PrintOut
End If
End Sub
Vielleicht kann mich jemand unterstützen? Vielen Dank vorab!
Gruß
Thomas
|