Tipp 0258 E-Mail-Anhänge automatisch speichern
Autor/Einsender:
Datum:
  Angie
18.07.2002
Entwicklungsumgebung:   Outlook 2000
Immer wieder wird die Frage gestellt: "Wie kann man von eingehenden Mails die Anhänge (Attachments) gleich in einem bestimmten Verzeichnis auf der Festplatte speichern?" Meines Erachtens sollte die Frage anders lauten: "Wie kann man am schnellsten und effektivsten ggf. vireninfizierte Dateien in einem bestimmten Verzeichnis auf der Festplatte speichern?"
Lösung: Einfach folgenden Code z. B. in Outlook 2000 im VB-Editor unter...
-> Projekt1 (VbaProject.OTM)
     -> Microsoft Outlook Objekte
          -> DieseOutlookSitzung
... einfügen, das Projekt speichern und dann entweder Outlook schließen und neu starten oder einfach die Prozedur Application_Startup ausführen, und schon werden alle Anhänge eingehender E-Mails automatisch im angegebenen Verzeichnis gespeichert.
Ein guter Virenscanner, der auch eingehende E-Mails und Anhänge prüft, könnte von sehr großem Nutzen sein ;-)
Code im Codebereich von DieseOutlookSitzung
 
Option Explicit

Public WithEvents myOlItems As Outlook.Items

Private Sub Application_Startup()
   Set myOlItems = _
      Outlook.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub myOlItems_ItemAdd(ByVal Item As Object)
  Const sPfad  As String = "e:\temp\"

  Dim iAttachCnt As Integer
  Dim i As Integer

  If TypeName(Item) = "MailItem" Then
    With Item.Attachments
      iAttachCnt = .Count
      If iAttachCnt > 0 Then
        For i = 1 To iAttachCnt
          .Item(i).SaveAsFile sPfad & .Item(i).FileName
        Next i
      End If
    End With
  End If
End Sub
 
Weitere Links zum Thema
E-Mails automatisch weiterleiten

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
Outlook-Version
95
98
2000
2002 (XP)
2003
2007
2010


Download  (1,6 kB) Downloads bisher: [ 2162 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 26. Juni 2011