![]() |
|
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
|
|
|
|
|
|
|
| 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: [ 2199 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 