Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Anhänge aus mehreren Mails gleichzeitig speichern
zurück: VBA mag Punkte im Pfad nicht weiter: Anhänge ausdrucken! Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Mr. Wing
MS Excel-Specialist (ohne VBA)


Verfasst am:
25. Apr 2014, 12:23
Rufname:

Anhänge aus mehreren Mails gleichzeitig speichern - Anhänge aus mehreren Mails gleichzeitig speichern

Nach oben
       Version: Office 2010

Hallo zusammen!

ich möchte gerne in Outlook 2010 aus mehreren E-Mails die Anhänge gleichzeitig speichern und habe dazu auch schon einen passenden VBA-Code im Netz gefunden.

Es funktioniert insofern auch ganz gut, allerdings würde ich das ganze gerne noch etwas an meine "Bedürfnisse" anpassen, hab aber nicht genügend fundiertes Wissen in VBA Programmierung um das selbst zu bewerkstelligen.


Hier erstmal der VB-Code:


Option Explicit

Const strBackupPath As String = "C:\Users\PFluegel\Desktop\Versuch\"

Sub SaveAttachments()
Dim olExplorer As Explorer
Dim olFolder As MAPIFolder
Dim olSelection As Selection
Dim olItem As MailItem
Dim lngAttCount As Long, i As Long
Dim strAttNames As String
Dim strSubDir As String
Dim intAnswer As Integer
Set olExplorer = Application.ActiveExplorer
Set olFolder = Application.ActiveExplorer.CurrentFolder
If olFolder.DefaultItemType = olMailItem Then
Set olSelection = olExplorer.Selection
For Each olItem In olSelection
lngAttCount = olItem.Attachments.Count
If lngAttCount > 0 Then
strAttNames = ""
For i = lngAttCount To 1 Step -1
With olItem.Attachments.Item(i)
strSubDir = strBackupPath & Format(olItem.CreationTime, "dd.mm.yyyy")
If Dir(strSubDir, vbDirectory) = "" Then
MkDir strSubDir
End If
.SaveAsFile strSubDir & "\" & .FileName
strAttNames = strAttNames & "<<" & strSubDir & "\" & .FileName & ">>" & vbCr
.Delete
End With
Next i
With olItem
Select Case .GetInspector.EditorType
Case olEditorText
.Body = "Anlagen gespeichert unter:" & vbCr & strAttNames & String(2, vbCr) & .Body
Case olEditorHTML
.HTMLBody = "Anlagen gespeichert unter:" & vbCr & strAttNames & String(2, vbCr) & .HTMLBody
Case olEditorRTF, olEditorWord
intAnswer = MsgBox("Wenn Sie einen Hinweis auf gespeicherte Anlagen einfügen, " & _
"gehen die Formatierungen der Nachricht verloren!" & vbCr & _
"Wollen Sie den Hinweis trotzdem einfügen?", vbYesNo)
If intAnswer = vbYes Then
.Body = "Anlagen gespeichert unter:" & vbCr & strAttNames & String(2, vbCr) & .Body
End If
End Select
.Save
End With
End If
Next olItem
Else
MsgBox "In diesem Ordner befinden sich keine E-Mail-Nachrichten."
End If
End Sub


Hier das, was ich gerne ändern würde:

Änderung 1:
Alle Anhänge sollen in dem selben Ordner gespeichert werden, ohne das immer ein Unterordner mit Datum erstellt wird.

Änderung 2:
Die Abfrage ob ein Hinweis mit dem Speicherort des Anhangs in der E-Mail eingebettet werden soll, sollte nur noch einmal erscheinen und die gewählte Antwort dann für alle weitere übernommen werden.


Wäre super toll von Euch wenn mir da jemand sagen könnte, was ich weglassen kann oder was ich wo hinzufügen muss.
Immer wenn ich was geändert hab funktionierte es dann nicht mehr. Crying or Very sad

Vielen Dank schon mal im Voraus!

Gruß Mr. Wing

Michael Bauer
MVP Outlook


Verfasst am:
28. Apr 2014, 06:05
Rufname:
Wohnort: Vollersode

AW: Anhänge aus mehreren Mails gleichzeitig speichern - AW: Anhänge aus mehreren Mails gleichzeitig speichern

Nach oben
       Version: Office 2010

Hallo,

1) Der Pfad wird mit Datum wird dort ermittelt, wo die format-Funktion ("dd.mm.yyyy") verwendet wird. Wenn Du den Teil nicht willst, lass den einfach weg.

2) Wenn die Abfrage nur einmal kommen soll, sollte die außerhalb der äußersten Schleife (For Each...) stehen.

_________________
Michael Bauer
Tools für Microsoft Outlook
Mr. Wing
MS Excel-Specialist (ohne VBA)


Verfasst am:
29. Apr 2014, 13:58
Rufname:

AW: Anhänge aus mehreren Mails gleichzeitig speichern - AW: Anhänge aus mehreren Mails gleichzeitig speichern

Nach oben
       Version: Office 2010

Hallo Michael,

kannst du mir noch sagen an welcher Stelle das dann stehen muss. Noch besser wäre es, wenn du den Code für mich anpassen könntest. Wink Stehe da völlig auf dem Schlauch.

Ich hab leider nur die Grundkenntnisse in VBA, die man in der Schule mal irgendwann im Informatikkurs gelernt hat.

Gruß und besten Dank im Voraus.

Mr. Wing
Michael Bauer
MVP Outlook


Verfasst am:
29. Apr 2014, 16:59
Rufname:
Wohnort: Vollersode

AW: Anhänge aus mehreren Mails gleichzeitig speichern - AW: Anhänge aus mehreren Mails gleichzeitig speichern

Nach oben
       Version: Office 2010

Mit Grundkenntnissen kommst Du hin. Ich habe ja schon geschrieben, woran Du die Zeilen erkennst, auf die es ankommt.
_________________
Michael Bauer
Tools für Microsoft Outlook
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Outlook Mail: Mails für ein bestimmtes Konto in ein Bestimmtes Verzeichnis 1 mucky99 787 08. Dez 2004, 00:24
wolf-it Mails für ein bestimmtes Konto in ein Bestimmtes Verzeichnis
Keine neuen Beiträge Outlook Mail: Ankommende Mails gehen in den Ordner Gelöschte 3 Alberto 1902 17. Nov 2004, 21:36
JoernZ Ankommende Mails gehen in den Ordner Gelöschte
Keine neuen Beiträge Outlook Mail: winmail.dat - Anhänge 7 Apehanger 10898 29. Okt 2004, 21:33
Amethyst winmail.dat - Anhänge
Keine neuen Beiträge Outlook Mail: Anhänge bei Outlook Express xp runterladen 2 Daywalker4111 1998 19. Okt 2004, 21:47
Amethyst Anhänge bei Outlook Express xp runterladen
Keine neuen Beiträge Outlook Mail: gelese Mails als Ungelesen behalten (automatisch!) 1 blueandrew 1514 01. Okt 2004, 09:56
macdeal gelese Mails als Ungelesen behalten (automatisch!)
Keine neuen Beiträge Outlook Mail: Nachfrage bei gesendeten Mails 2 Hobbitz 1598 06. Aug 2004, 20:19
Hobbitz Nachfrage bei gesendeten Mails
Keine neuen Beiträge Outlook Mail: mehrere mails verschicken 5 tommyy 989 06. Aug 2004, 08:43
iso mehrere mails verschicken
Keine neuen Beiträge Outlook Mail: Bilder in eigenhenden Mails werden nicht angezeigt.... 2 RobinsonHamburg 1191 15. Jul 2004, 14:39
RobinsonHamburg Bilder in eigenhenden Mails werden nicht angezeigt....
Keine neuen Beiträge Outlook Mail: OL 2003 - Mails ersch. nicht im Eingang 2 patrick ro 791 06. Jul 2004, 03:42
Gast OL 2003 - Mails ersch. nicht im Eingang
Keine neuen Beiträge Outlook Mail: gelösche Mail in IMAP Ordner für gelöschte Mails verschieben 0 sunfire 1420 29. Jun 2004, 21:15
sunfire gelösche Mail in IMAP Ordner für gelöschte Mails verschieben
Keine neuen Beiträge Outlook Mail: Outlook druckt HTML mails ohne linken Rand 1 kubu 3429 24. Jun 2004, 14:59
kubu Outlook druckt HTML mails ohne linken Rand
Keine neuen Beiträge Outlook Mail: Regeln erstellen (alle eingehenden Mails löschen) 2 Marco der Schöne 2209 13. Jun 2004, 11:04
Marco der Schöne Regeln erstellen (alle eingehenden Mails löschen)
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Forum