VBOffice

Mehrere Anlagen gleichzeitig als Dateien speichern

Legen Sie die Anlagen mehrerer Emails mit nur einem Klick im Dateisystem ab.

Zuletzt geändert: 29.07.2012 | Aufrufe: 49.809  | #93
◀ Vorheriges Beispiel Nächstes Beispiel ▶
Category-Manager Category-Manager
Mit dem Category-Manager können Sie Outlook Kategorien gruppieren, synchronisieren und filtern, neuen Emails automatisch die Kategorie des Absenders zuweisen und vieles mehr. Das Addin ist auch für IMAP geeignet.

Dieses Beispiel speichert alle Anlagen der ausgewählten Elemente auf der Festplatte. Der Pfad, welcher der Variable Path zugewiesen wird, muss bereits existieren. Das Makro erstellt darin automatisch einen Unterordner mit dem aktuellen Datum. Abschließend wird noch der Dateiexplorer mit dem neuen Verzeichnis geöffnet.


tip  So fügen Sie Makros in Outlook ein
Public Sub SaveAttachments2()
  Dim coll As VBA.Collection
  Dim obj As Object
  Dim Att As Outlook.Attachment
  Dim Sel As Outlook.Selection
  Dim Path$
  Dim i&

  Path = "d:\"
  Path = Path & Format(Date, "yyyy-mm-dd") & "\"
  On Error Resume Next
  MkDir Path
  On Error GoTo 0

  Set coll = New VBA.Collection

  If TypeOf Application.ActiveWindow Is Outlook.Inspector Then
    coll.Add Application.ActiveInspector.CurrentItem
  Else
    Set Sel = Application.ActiveExplorer.Selection
    For i = 1 To Sel.Count
      coll.Add Sel(i)
    Next
  End If

  For Each obj In coll
    For Each Att In obj.Attachments
      Att.SaveAsFile Path & Att.FileName
    Next
  Next

  Shell "Explorer.exe /n, /e, " & Path, vbNormalFocus
End Sub
ReplyAll ReplyAll
Mit diesem Addin für Outlook erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten.
email  Senden Sie eine Nachricht