Microsoft Office Tutorials and References
In Depth Information
9.4.8 Zugriff auf E-Mail-Anhänge
9.4.8 Zugriff auf E-Mail-Anhänge
Nachfolgend ein Beispiel, in dem innerhalb des Verzeichnisses Gesendete
Objekte ermittelt wird (in einer Version für Excel ab Version 2007):
Wie viel Prozent aller E-Mails haben einen Anhang?
Wie viele Anhänge hat eine solche E-Mail im Durchschnitt?
Wann und an wen wurde eine bestimmte Datei als E-Mail-Anhang
gesendet?
Anhang an wen?
Sub ZugriffMailAnhang()
Dim appOutlook As Outlook.Application
Dim Namensraum As Outlook.Namespace
Dim Verzeichnis As Outlook.Folder
Dim Element As Outlook.MailItem
Dim Anhang As Outlook.Attachment
Dim AnzahlMitAnhang As Integer
Dim AnteilMitAnhang As Single
Dim AnzahlAnhaenge As Integer
Dim AnhangProMail As Single
Dim Ausgabe As String
' Anwendung Outlook starten
Set appOutlook = CreateObject("Outlook.Application")
' Verzeichnis ermitteln
Set Namensraum = appOutlook.GetNamespace("MAPI")
Set Verzeichnis = Namensraum.GetDefaultFolder _
(olFolderSentMail)
' Statistik zu Anhängen
For Each Element In Verzeichnis.Items
If Element.Attachments.Count > 0 Then
AnzahlMitAnhang = AnzahlMitAnhang + 1
AnzahlAnhaenge = AnzahlAnhaenge _
+ Element.Attachments.Count
End If
Next Element
AnteilMitAnhang = AnzahlMitAnhang _
/ Verzeichnis.Items.Count
MsgBox Format(AnteilMitAnhang, "0.00 %") _
& " der Elemente im Verzeichnis " _
& "'Gesendete Objekte' haben einen Anhang"
Search JabSto ::




Custom Search