Microsoft Office Tutorials and References
In Depth Information
9.4.8 Zugriff auf E-Mail-Anhänge
AnhangProMail = AnzahlAnhaenge / AnzahlMitAnhang
MsgBox Format(AnhangProMail, "0.00") _
& " Anhänge hat jede E-Mail mit Anhang"
' Statistik zu bestimmtem Anhang
For Each Element In Verzeichnis.Items
For Each Anhang In Element.Attachments
If Anhang.Filename = "Mappe9.xlsm" Then
Ausgabe=Ausgabe&"An"&Element.To_
& " am " & Element.CreationTime & vbCrLf
End If
Next Anhang
Next Element
MsgBox Ausgabe
appOutlook.Quit
End Sub
Die ersten beiden Teile des Ergebnisses könnten wie in den Abbildungen
9.36 und 9.37 aussehen.
Abbildung 9.36
Statistik zu Anhängen, Teil 1
Abbildung 9.37
Statistik zu Anhängen, Teil 2
Zur Erläuterung:
Mit Hilfe einer For - Each -Schleife werden alle Elemente des Verzeich-
nisses Gesendete Objekte untersucht.
For Each
<Element>
Falls die Anzahl der Anhänge einer E-Mail größer als 0 ist, wird diese
E-Mail gezählt. Außerdem wird die Anzahl der Anhänge gezählt. Dies
geschieht mit Hilfe der Eigenschaft Count der Auflistung Attach-
ments .
Search JabSto ::




Custom Search