VBA & Outlook & Anhänge speichern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub bijlagen_opslaan() For Each it In CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(6). _ Items For Each at In it.Attachments at.SaveAsFile "E:\" & at.FileName Next Next End Sub

Hey Das könntest du so machen
Gruß Basti

Sub Anlagen_Speichern(olMail As MailItem)
'Objekte/Variablen deklarieren
Dim Ziel As String
Dim Anlagen As Attachments
Dim i As Integer
'Speicherordner angeben (bitte mit Backslash abschließen!)
Ziel = "C:\Bastian\Add\"
'Abbruch, wenn Ordner nicht vorhanden
If Dir(Ziel, vbDirectory) = "" Then Exit Sub
'Mailanhänge ermitteln
Set Anlagen = olMail.Attachments
If Anlagen.Count  0 Then
Ziel = Ziel & olMail.Sender & "\"
If Dir(Ziel, vbDirectory)  "" Then
Else
MkDir (Ziel)
End If
'alle Anhänge der Mail durchlaufen und speichern
For i = 1 To Anlagen.Count
'Dateiname zusammensetzen, Datum ist Empfangsdatum der Mail
If Anlagen.Item(i).Type  6 Then
Datei = Ziel & Format(olMail.ReceivedTime, "dd.mm.yyyy") & "_" & Anlagen.Item(i).Filename
'Anlage speichern
Anlagen.Item(i).SaveAsFile Datei
End If
Next i
End If
End Sub
Sub Los()
Dim objNS As Outlook.Namespace
Set objNS = GetNamespace("MAPI")
Set Items = objNS.GetDefaultFolder(olFolderInbox).Items
Dim oFolder As Outlook.MAPIFolder
Dim oMail As Outlook.MailItem
For Each oMail In Items
Call Anlagen_Speichern(oMail)
Next
End Sub

Sub Blaaa() Dim oMail As Outlook.MailItem Dim objNS As Outlook.Namespace Set objNS = GetNamespace("MAPI") Set oFldInbox = objNS.Folders("DeineMail@wasweißich.de").Folders("Posteingang").Folders(" _ Subfolder").Items For Each oMail In oFldInbox Debug.Print oMail.Sender Call Anlagen_Speichern(oMail) Next Set objNS = Nothing Set oFldInbox = Nothing End Sub

Sub BlaBlub() Dim oMail As Outlook.MailItem Dim it As Long,Ordner1 as long Dim objNS As Outlook.Namespace Set objNS = GetNamespace("MAPI") Set oFldInbox = objNS.Folders("Blaaaa@Blaa.de").Folders("Posteingang") For Ordner1 = 1 To oFldInbox.Folders.Count For It = 1 To oFldInbox.Folders(Ordner1).Items.Count If TypeOf oFldInbox.Folders(Ordner1).Items(It) Is MailItem Then Set oMail = oFldInbox.Folders(Ordner1).Items(It) If oMail.Attachments.Count 0 Then Call Anlagen_Speichern(oMail) End If End If Next It Next Ordner1 Set objNS = Nothing Set oFldInbox = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

VBA & Outlook & Anhänge speichern

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

34 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA & Outlook & Anhänge speichern

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

34 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread