Live-Forum - Die aktuellen Beiträge
Datum
Titel
06.11.2025 16:16:08
In einer Zelle die Anzahl der Zahlen zählen die durch ; getr
06.11.2025 16:14:37
Danke an Uduuh
06.11.2025 15:49:58
bedingter Formatierung
06.11.2025 14:26:08
Nur Werte Kopieren und Einfügen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1520to1524
1520to1524
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA & Outlook & Anhänge speichern

Forumthread: VBA & Outlook & Anhänge speichern

VBA & Outlook & Anhänge speichern
08.11.2016 09:14:04
Christian
Hallo zusammen,
ich habe eine Excel-Fremde Anfrage/Idee. Eventuell kann mir hier im Forum ja jemand dabei helfen.
Ich bräuchte einen Skript, der mir bei allen eingehenden Emails die Anhänge automatisch abspeichert nach folgenden Kriterien:
Speicherpfad: Fix vorgegeben - c:\Mail_Anlagen
Unterordner: Absender der Email - Max_Mustermann\
Dateiname: Eingangsdatum der Mail + Originaldateiname - 2016.11.08_Musterdatei.xls
Wäre dies möglich/umsetzbar?
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Mit einem Code in Outlook und einer Regel...
08.11.2016 10:09:20
snb 

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

Anzeige
AW: Mit einem Code in Outlook und einer Regel...
08.11.2016 10:43:05
Christian
Hallo Case,
danke für die Antwort. Diese Variante hatte ich gesehen. Jedoch werden dabei alle Anlagen in einen Ordner gespeichert. Damit wird dies für meine Zwecke unbrauchbar, weil absolut unübersichtlich.
Es müsste schon mit
Unterordner: Absender der Email - Max_Mustermann\
Dateiname: Eingangsdatum der Mail + Originaldateiname - 2016.11.08_Musterdatei.xls
Und damit habe ich so meine Schwierigkeiten :(
Anzeige
Da muss natürlich...
08.11.2016 14:10:57
Case
Hallo, :-)
... noch angepasst werden. Das Objekt "myItem" hat doch aber alle benötigten Eigenschaften - SenderName, ReceivedTime und viele mehr.
Diese kannst Du nutzen um bei Bedarf den Ordner zu erstellen bzw. den Dateinamen zu bilden. Dafür gibt es im Archiv unzählige Beispiele. ;-)
Servus
Case
Anzeige
AW: VBA & Outlook & Anhänge speichern
08.11.2016 15:20:18
baschti007
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

Anzeige
AW: VBA & Outlook & Anhänge speichern
09.11.2016 12:36:44
Christian
Hallo Basti,
Das klappt hervorragend :) Super, ich danke dir.
Gibt es eine Möglichkeit diesen Skript auch auf schon bestehende Mails in unterordnern anzuwenden? Also quasi heute mal alle Mails im Posteingang + Unterordner einmalig durchsuchen und die Anhänge abspeichern?
Vielen vielen Dank für deine Hilfe
Anzeige
AW: VBA & Outlook & Anhänge speichern
09.11.2016 13:39:53
baschti007
Hey Ho dann so
Gruß Basti
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

Anzeige
AW: VBA & Outlook & Anhänge speichern
09.11.2016 21:41:43
Christian
Hallo Basti,
Danke für die schnelle Antwort und die Mühen. Leider funktioniert der Code nicht bei mir (Outlook 2010).
Ich habe meine Mail-Adresse natürlich angepasst, bekomme aber einen Laufzeitfehler (Ein Objekt wurde nicht gefunden)
AW: VBA & Outlook & Anhänge speichern
09.11.2016 21:42:31
Christian
Hallo Basti,
Danke für die schnelle Antwort und die Mühen. Leider funktioniert der Code nicht bei mir (Outlook 2010).
Ich habe meine Mail-Adresse natürlich angepasst, bekomme aber einen Laufzeitfehler (Ein Objekt wurde nicht gefunden)
Laut Debugger hier:
Set oFldInbox = objNS.Folders("DeineMail@wasweißich.de").Folders("Posteingang").Folders("Subfolder").Items
Anzeige
AW: VBA & Outlook & Anhänge speichern
09.11.2016 22:05:58
Bastian
Hmm bei mir geht es ich haben 2013 .
Hast du die Verweise auch auf Microsoft outlook 16 objekt library gesetzt ?
Gruß Basti
DeineMail@wasweißich.de ist der Hauptordner wo alle anderen unter ordner drinne sind also wie dein konto bei outlook heißt
AW: VBA & Outlook & Anhänge speichern
09.11.2016 22:22:50
Christian
Hallo Basti,
ich habe nur die Möglichkeit die Verweise auf Microsoft outlook 15 objekt library zu setzen. 16 ist nicht aufgeführt
Anzeige
AW: VBA & Outlook & Anhänge speichern
09.11.2016 22:26:59
Bastian
Ja aber geht es nun ?
Ich denke du hast einen Ordner Falsch gesetzt
Gruß Basti
AW: VBA & Outlook & Anhänge speichern
09.11.2016 22:33:13
Christian
Hallo Basti,
nein es geht nicht.
Set oFldInbox = objNS.Folders("TEST@TEST.DE").Folders("Posteingang").Folders("Subfolder").Items
Der Ordner Posteingang ist ja definiert und die Unterordner über Subfolders sind ebenfalls (wobei mir gerade auffält, dass Subfolders nicht im Kopf definiert wurden - DIM Subfolder ... - oder muss das nicht?)
Bleibt eigentlich nur, dass ich die Mailadresse falsch eingebe. Aber das kann ich mir nicht vorstellen.
Kan ich das nicht auslesen lassen?
Anzeige
AW: VBA & Outlook & Anhänge speichern
09.11.2016 22:50:36
Bastian
Ohh =D
Bei Subfolder musst du den Namen von deinem Unterordner einben =D
Gruß Basti
AW: VBA & Outlook & Anhänge speichern
09.11.2016 23:29:12
Christian
😂 das erklärt natürlich einiges.
Aber dann funktioniert dann aber nur für diesen einen Unterordner, oder?
Ich habe ca 30 Unterordner mit jeweils wieder 5-10 Unterordner.
Muss ich dies alles einzeln definieren?
Anzeige
AW: VBA & Outlook & Anhänge speichern
10.11.2016 06:59:03
baschti007
Na klar geht das =D
Gruß Basti

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

Anzeige
;

Forumthreads zu verwandten Themen

Mails automatisch in einen Ordner speichern
René

Hallo,
hat eventuell jemand einen Tipp für mich wie ich erreichen kann das eine empfangene Mail automatisch in einen Ordner gespeichert wird. Also von bekommt jemand eine Exceldatei gesendet und darin soll ein Button sein der ein Makro enthält das dafür sorgt das die Mail bei mir automatis...
23.11.2010 21:58:19
Thread-ID: 1188419
2 Beiträge
Öffnen und Speichern von Mails per Excelmakro
Markus St

Hallo,vielleicht kann mir jemand helfen. Ich möchte per Excel-Makro ein Mail in Outlook öffnen und anschließend die Anlage x zu dem Mail speichern.
Nun ist diese Anlage eine Textdatei namens b.txt. Sie enthält reinen ASCII-Text. Ich wollte dort bestimmte Zeilen in diesem ASCII-Text ( Nach de...
03.07.2002 11:20:13
Thread-ID: 133353
2 Beiträge
Outlook Anhang speichern / entzippen / importieren
Willi

Hallo,
ich habe in diesem Forum schon hervoragende Ansätze und Lösungen für meine Aufgaben gefunden und daher wende ich mich jetzt auch direkt an Euch. Ich bin auf der Suche nach einer Lösung für ein Problem, daß wohl eher einen erfahrenen VBA Programmierer benötigt.
Aufgabe ist folgend...
22.08.2015 08:14:54
Thread-ID: 1443770
9 Beiträge
Gesendete Mail Anhänge bei Outlook speichern
Christian

Hallo,
Ich habe ein Problem. Ich habe ein Programm welches automatisch über Outlook Protokolldatein (txt) als Anhang an eine fix definierte Mail versendet. Dies muss auch so bleiben und ich kann keine zusätzliche Versandmail in das Programm eintragen.
Ich bräuchte also einen Skript, den...
08.11.2015 20:12:50
Thread-ID: 1456980
8 Beiträge
Mail automatisch abspeichern
Roland

Hallo!
Stehe wieder mal vor einem Problem.
Habe mit google und foren nun ein Modul zusammengestoppelt, wo ich mails aus outlook per knopfdruck im richtigen pfad speichern möchte.
Mein Problem ist nun das das ganze an einer Stelle hängenbleibt "Laufzeitfehler 13, Typen unverträglich"...
16.10.2016 15:21:45
Thread-ID: 1519911
2 Beiträge
Anzeige
Outlook- E-Mails Speichern - Frage an Mumpel/Case
Jens

Hallo
ich habe eine userform in outlook zum Speichern von E-mail.
Alles funktioniert auch so weit.
Aber irgendwie stimmt der Bezug des Absenders/Empfänagers nicht zusammen. Er ist immer um eine E-Mail verrutscht. Sprich es wird immer die falsche E-MAildresse angezeigt. Meiner Ansich...
20.10.2016 12:41:56
Thread-ID: 1520789
9 Beiträge
Anzeige
Automatischer Betreff beim Anhängen an eine Mail
Manfred

Hallo Forum
ich mochte ein Tabellenblatt an eine Mail anhängen.
Das funktioniert soweit auch
Was muss ich beim Subject eingeben wenn ich aus dem Tabellenblatt1 die zellen C7 und C24 als _ Betreff in der Mail haben möchte. Set objOutlook = CreateObject("Outlook.Application") Set...
23.01.2017 15:55:23
Thread-ID: 1536833
3 Beiträge
email Anhang mit neuen Namen speichern
Raphael

Hallo Zusammen,
ich bin mal wieder auf eure Hilfe angewiesen,
ich habe den untenstehenden Code irgendwann mal im www gefunden und würde auch den Autor benennen wenn ich den noch wüsste...
Aber wie bekomme ich es hin das mir der Anhang der abgespeichert wird einen neuen Namen bekommt...
08.03.2017 16:13:58
Thread-ID: 1546238
3 Beiträge
Outlook Excel-Anhänge speichern
Ptonka

Hallo zusammen,
ich habe folgendes Problem:
Ich nutze Outlook 2010 und Excel 2010.
Ich habe in Outlook ein Standardkonto und mehrere zusätzliche Konten.
Nun möchte ich mit VBA alle Mails aus dem Posteingang eines der zusätzlichen Konten
ansprechen und deren Anhänge (nur Exce...
20.04.2017 09:55:36
Thread-ID: 1553762
3 Beiträge
VBA Suche in Unterordnern und Outlook Anhang
Robert

Ich benötige wieder ein bisschen Hilfe:
1. Code:
Dieser Code sucht mir in einem Ordner nach einer Datei und fügt sie mir in einer Zelle als _ anklickbares Symbol ein. Sub aaa() Dim rng As Range Const strPfad = "Z:\testordner" Set rng = Range("A7") Do While rng "" If Dir(strPfad &...
05.01.2018 15:54:33
Thread-ID: 1600413
2 Beiträge
Speichern -> Automatischer E-Mail Versand
Florian

Hallo Leute ;)
ich benötige bitte nochmal eure Hilfe:
Ich möchte in einer Excel Tabelle folgende Sachen umsetzen:
1. Wenn ich das Dokument speichere soll automatisch eine E-Mail mit dem Dokument an einem fest definierten Empfänger versendet werden.
2. Es gibt ja die Funktion [SR...
09.04.2018 10:53:05
Thread-ID: 1618774
6 Beiträge
E-Mail-Anhang in Outlook finden&abspeichern
Johannes

Hallo zusammen,
ich bekomme wöchentlich eine E-Mail mit Anhang, welche ich per Excel Makro auf der Festplatte speichern und danach weiterverarbeiten möchte.
Untenstehendes Makro habe ich schon. Ich bekomme leider nur immer einen Fehler, wenn zwischen der Mail, welche ich suche, und dem...
14.05.2018 15:06:09
Thread-ID: 1623915
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige