Thema Datum  Von Nutzer Rating
Antwort
09.08.2006 10:36:36 Tom
NotSolved
Blau Aw:Outlook Anhänge per Button in Ordner speichern
 10.08.2006 13:18:42 Rasta
Solved

Ansicht des Beitrags:
Von:
Rasta		 Datum:
10.08.2006 13:18:42		 Views:
2214		 Rating:
     
Antwort:
 Nein
Thema:
Aw:Outlook Anhänge per Button in Ordner speichern
Hi Tom,

evtl hilft dir das weiter:

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


QUELLE! :
http:\\www.vba-fun.de

gruß
rasta
Tom schrieb am 09.08.2006 10:36:36:

Hi zusammen,

hab ein kleines Problem, da ich Vba irgendwie nur in Excel kann und in Outlook nich ganz klar komme.

Ich brauche ein Makro, welches die Anhänge einer gerade markierten Email automatisch in einen bestimmten Ordner C:Beispielordrdner kopiert. Dieses Makro will ich dann mit einem Button verknüpfen, so dass ich wenn ich die Email markiert habe nur noch auf den Button drücken muss um die Anhäne zu speicher!

weiss jemand rat? is bestimmt gar nicht so schwer für jemanden der mehr in der materie ist, oder?

bester gruß und danke im voraus,

Tom

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.08.2006 10:36:36 Tom
NotSolved
Blau Aw:Outlook Anhänge per Button in Ordner speichern
 10.08.2006 13:18:42 Rasta
Solved