Anlagen automatisch speichern - Digital-Inn

12-06-2002

Hallo, kann ich es irgendwie einrichten, das Outlook, beim Eintreffen einer E-Mail von einem bestimmten Empfänger den Anhang automatisch in einen vorgegebenen Ordner speichert.

Wir setzen Outlook 2000 ein. Gibt es mögliche Regeln oder so was?

19-06-2002

so weit ich weiss kanns du mit regeln höchstens die ganze nachricht in einen bestimmten ordner verschiebe.

mfg bume

SphinxFFH · 19-06-2002

Ja, aber das bringt mit leider nichts, weil es dann immer noch im Outlook System ist!

Ich dachte da viel mehr an ein Script!

Code:

Sub New_Mail()
 'Anhang der E-Mail speichern
 'E-Mail löschen
 MsgBox "Neuer Datensatz vorhanden " & 'E-Mail betreff
End Sub

Bin für Lösungsansätze (auch wenn sie vielleicht nur teile sind) dankbar! Ein bisschen überlegen kann ich ja auch selbst! Nur welche Objecte hat eine E-Mail bzw. wie sprech ich eine E-Mail in VBA an?

Mit Outlook VBA hab ich mich bisweil kaum beschäftigt!

Schmitti · 19-06-2002

Hallo zusammen,

hier ein kleines Makro,
welches alle Anhänge neuer Nachrichten automatisch speichert.

Dabei wird unter "C:\TEMP" ein neuer Ordner angelegt,
der dem Namen des Absenders entspricht:

Code:


Private Sub Application_NewMail()
    Dim Ordnername As String
    Dim objPosteingang As MAPIFolder
    Dim objNewMail As MailItem
    On Error Resume Next
    Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    For Each objNewMail In objPosteingang.Items
        With objNewMail
            If .UnRead = True Then
                Anzahl = .Attachments.Count
                If Anzahl > 0 Then
                    Ordnername = "C:\temp\" & objNewMail.SenderName
                    MkDir Ordnername
                    For i = 1 To Anzahl
                        .Attachments.Item(i).SaveAsFile Ordnername & "\" & .Attachments.Item(i).FileName
                    Next i
                End If
            End If
        End With
    Next objNewMail
End Sub

SphinxFFH · 19-06-2002

Hi Schmitti,

erst mal 10000000000 Dankeschöns! Das hat mir echt sehr geholfen! Mit dem Umgang von E-Mails hab ich aber wie gesagt leider keine Ahnung!

Ich habe den Quelltext gelesen und ihn auch so weit verstanden, nur gibt es eine möglichkeit, dieses Script auf einen bestimmten Ordner zu beschränken??

Und noch ne Frage:
Gibt es eine möglichkeit, den Anhang aus der E-Mail zu löschen und an die E-Mail (vielleicht in Blau) einen Text anzuhängen aller "Datensatz in C:\ORDNER als ABC.DOC gespeichert - Datum"

Ich weiß, das ist viel verlangt *g*, aber wenn es einer wüsste, dann wäre das echt toll!

SphinxFFH · 19-06-2002

Verzeihung, das mit den Ordnern ansteuern hab ich schon von alleine rausgefunden! Klappt prima! Bezieht sich nur noch auf einen bestimmten!!

Danke nochmal!

Bleibt nur noch die Frage, wie man den Anhang aus der E-Mail entfernt!

Schmitti · 20-06-2002

Natürlich, Du kannst das ganze auch nur auf einen
Ordner beschränken.

Dazu lösche die Zeile Ordnername = "C:\temp\" & objNewMail.SenderName.

Anschließend legst Du einen Ordnernamen VOR der
Schleife fest, bespielsweise Ordnername = "c:\Anlagen\"

Was das Löschen des Anhanges angeht:
Lösche .Attachments.Item(i).SaveAsFile Ordnername & "\" & .Attachments.Item(i).FileName
und setze anstattdessen .Attachments.Item(i).Delete hinein.

Das Problem mit dem "blauen" Text:
Die e-Mail ist nicht editierbar,
also kann man auch keinen Text hineinschreiben.

(denke ich)

SphinxFFH · 20-06-2002

Danke, das mit dem Ordner hattest Du zwar falsch verstanden, aber das macht nichts - ich bin ja selbst drauf gekommen

Das mit den Anhängen ist genau das was ich suchte, danke vielmals!

Mit dem blauen Text - schade

Aber vielen Dank, wieder was dazu gelernt!!

Schmitti · 20-06-2002

Was Outlook angeht habe ich momentan einige Tipps
in Berarbeitung, die ich hoffentlich bis zum Wochenende
ferig habe und dann auf meiner Seite anbieten werde.

fsinger · 06-12-2005

Hallo liebes Team,

da ich leider nur grundlegende Ahnung von VB habe und ich zwar selber auch kleine Skripte schreiben kann, hätte ich zu diesem Skript eine Frage:

Private Sub Application_NewMail()
Dim Ordnername As String
Dim objPosteingang As MAPIFolder
Dim objNewMail As MailItem
On Error Resume Next
Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
For Each objNewMail In objPosteingang.Items
With objNewMail
If .UnRead = True Then
Anzahl = .Attachments.Count
If Anzahl > 0 Then
Ordnername = "C:\temp" & objNewMail.SenderName
MkDir Ordnername
For i = 1 To Anzahl
.Attachments.Item(i).SaveAsFile Ordnername & "" & .Attachments.Item(i).FileName
Next i
End If
End If
End With
Next objNewMail
End Sub

Wie schaffe ich es, dass die Anhänge nur in einem Ordner abgespeichert werden bzw. wie muss ich das anpassen. Habe schon versucht die Zeile vor der Schleife enzufügen, aber leider ohne Erfolg.

Dann hätte ich noch eine spezielle Frage.

Ich bekomme immer dieselben Anhänge, die auf dem Server gespeichert werden sollen.
Diese heissen pririons.dat, wshsende.dat und n71kovvg* ( hier ändert sich immer die laufende Nr am Ende, was ja kein Problem sein sollte nur auf diesen String zu gehen). Wie schaffe ich es jetzt, dass ich nur auf diese Anhänge abfrage, wenn diese eingehen und die dann in ein bestimmtes Verzeichnis landen?

Wäre sehr dankbar für Eure Hilfe!!

Danke

Frank Singer

tgeibel · 06-07-2006

Hallo zusammen, hätte noch was ergänzendes. Habe mir auch schon was ähnliches gebastelt.

1 Prüfe die Mails auf Anlagen
2 Erstelle einen Ordner für den Absender
3 Speichere die Anlage in diesem Ordner
4 lösche danach die Anlage

Würde die Anlage in der Mail aber lieber erst durch eine Verknüpung auf den Ordner wo die Anlage landet ersetzen und dann löschen (ähnlich macht das ein Programm names QuantaZip). So kann man die Anlage obwohl gelöscht direkt öffnen.

Vieleicht habt Ihr ja einen Tip für mich

Viele Grüße

Thorsten Geibel

sefre · 22-07-2006

Hallo.

Ich habe die gleiche Anforderung wie der Initiator des Threads.
Habe allerdings Outlook 2003 und möchte gerne ALLE Anhänge in einen bestimmten Ordner auf der Festplatte speichern und nach dem Speichern soll die Datei aus der Mail durch eine Verknüpfung ersetzt werden. Dieses Script kann ich dann in eine Filterregel von Outlook einbauen.

Da ich von Scripten garkeine Ahnung habe, weiß ich das es sehr viel verlangt ist aber wäre mega dankbar.

Dazu kommt noch das einige Mails mehrere Anhänge enthalten. Ist das egal? oder wird immer nur der erste Anhang bearbeitet? Es sollen natürlich alle gespeichert und ersetzt werden.

bote · 05-09-2006

Hallo Schmitti,
ich habe schon einiges in VBA Excel programmiert, bin aber neu in Outlook. Habe Version 2003 auf dem Rechner und möchte deinen u.a. Code einsetzen. Wenn ich nun ein neues Modul in Outlook anlege, passiert bei Maileingang noch gar nichts. Wie muss ich denn vorgehen, dass das Makro bei jedem neuen Maileingang auch ausgeführt wird???
Danke und Grüße
bote

Quote:

Originally Posted by Schmitti

Hallo zusammen,

hier ein kleines Makro,
welches alle Anhänge neuer Nachrichten automatisch speichert.

Dabei wird unter "C:\TEMP" ein neuer Ordner angelegt,
der dem Namen des Absenders entspricht:

Code:


Private Sub Application_NewMail()
    Dim Ordnername As String
    Dim objPosteingang As MAPIFolder
    Dim objNewMail As MailItem
    On Error Resume Next
    Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    For Each objNewMail In objPosteingang.Items
        With objNewMail
            If .UnRead = True Then
                Anzahl = .Attachments.Count
                If Anzahl > 0 Then
                    Ordnername = "C:\temp\" & objNewMail.SenderName
                    MkDir Ordnername
                    For i = 1 To Anzahl
                        .Attachments.Item(i).SaveAsFile Ordnername & "\" & .Attachments.Item(i).FileName
                    Next i
                End If
            End If
        End With
    Next objNewMail
End Sub

Pitter · 05-09-2006

Hallo Bote,
nicht in einem neuen Modul speichern, sondern in "ThisOutlookSession" abspeichern.... dann funktioniert das auch

aexner · 15-11-2006

Hallo,

wer kann mir sagen, wie man mehrere Mails (incl.) Anhang als msg-Dateien auf
einen Netzordner speichern kann ?

Z.B. alle Mails mit dem Absender "XYZ" selektieren, markieren und dann speichern...... geht sowas ? (Script, Makro)

Grüße, Andreas

12-06-2002	#1
Unregistered Gast Posts: n/a	Anlagen automatisch speichern Hallo, kann ich es irgendwie einrichten, das Outlook, beim Eintreffen einer E-Mail von einem bestimmten Empfänger den Anhang automatisch in einen vorgegebenen Ordner speichert. Wir setzen Outlook 2000 ein. Gibt es mögliche Regeln oder so was?

19-06-2002	#3
SphinxFFH Moderator Senior Member (Board-Inventar) Join Date: May 2002 Location: 36251 Bad Hersfeld Posts: 782 Abgegebene Danke: 0 Erhielt 0 Danke für 0 Beiträge	Ja, aber das bringt mit leider nichts, weil es dann immer noch im Outlook System ist! Ich dachte da viel mehr an ein Script! Code: Sub New_Mail() 'Anhang der E-Mail speichern 'E-Mail löschen MsgBox "Neuer Datensatz vorhanden " & 'E-Mail betreff End Sub Bin für Lösungsansätze (auch wenn sie vielleicht nur teile sind) dankbar! Ein bisschen überlegen kann ich ja auch selbst! Nur welche Objecte hat eine E-Mail bzw. wie sprech ich eine E-Mail in VBA an? Mit Outlook VBA hab ich mich bisweil kaum beschäftigt!

20-06-2002	#7
Schmitti S-Moderator Senior Member (Board-Inventar) Join Date: Feb 2001 Location: Hessen Posts: 4.001 Abgegebene Danke: 0 Erhielt 1 Danke für 1 Beitrag	Natürlich, Du kannst das ganze auch nur auf einen Ordner beschränken. Dazu lösche die Zeile Ordnername = "C:\temp\" & objNewMail.SenderName. Anschließend legst Du einen Ordnernamen VOR der Schleife fest, bespielsweise Ordnername = "c:\Anlagen\" Was das Löschen des Anhanges angeht: Lösche .Attachments.Item(i).SaveAsFile Ordnername & "\" & .Attachments.Item(i).FileName und setze anstattdessen .Attachments.Item(i).Delete hinein. Das Problem mit dem "blauen" Text: Die e-Mail ist nicht editierbar, also kann man auch keinen Text hineinschreiben. (denke ich) __________________ Last edited by Schmitti on 20-06-2002 at 00:05

20-06-2002	#9
Schmitti S-Moderator Senior Member (Board-Inventar) Join Date: Feb 2001 Location: Hessen Posts: 4.001 Abgegebene Danke: 0 Erhielt 1 Danke für 1 Beitrag	Was Outlook angeht habe ich momentan einige Tipps in Berarbeitung, die ich hoffentlich bis zum Wochenende ferig habe und dann auf meiner Seite anbieten werde. __________________

06-12-2005	#10
fsinger Registered User Board-Frischling Join Date: Dec 2005 Location: Wendelstein Posts: 1 Abgegebene Danke: 0 Erhielt 0 Danke für 0 Beiträge	Skriptanpassung Hallo liebes Team, da ich leider nur grundlegende Ahnung von VB habe und ich zwar selber auch kleine Skripte schreiben kann, hätte ich zu diesem Skript eine Frage: Private Sub Application_NewMail() Dim Ordnername As String Dim objPosteingang As MAPIFolder Dim objNewMail As MailItem On Error Resume Next Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) For Each objNewMail In objPosteingang.Items With objNewMail If .UnRead = True Then Anzahl = .Attachments.Count If Anzahl > 0 Then Ordnername = "C:\temp" & objNewMail.SenderName MkDir Ordnername For i = 1 To Anzahl .Attachments.Item(i).SaveAsFile Ordnername & "" & .Attachments.Item(i).FileName Next i End If End If End With Next objNewMail End Sub Wie schaffe ich es, dass die Anhänge nur in einem Ordner abgespeichert werden bzw. wie muss ich das anpassen. Habe schon versucht die Zeile vor der Schleife enzufügen, aber leider ohne Erfolg. Dann hätte ich noch eine spezielle Frage. Ich bekomme immer dieselben Anhänge, die auf dem Server gespeichert werden sollen. Diese heissen pririons.dat, wshsende.dat und n71kovvg* ( hier ändert sich immer die laufende Nr am Ende, was ja kein Problem sein sollte nur auf diesen String zu gehen). Wie schaffe ich es jetzt, dass ich nur auf diese Anhänge abfrage, wenn diese eingehen und die dann in ein bestimmtes Verzeichnis landen? Wäre sehr dankbar für Eure Hilfe!! Danke Frank Singer

19-06-2002	#2
Bume Gast Posts: n/a	so weit ich weiss kanns du mit regeln höchstens die ganze nachricht in einen bestimmten ordner verschiebe. mfg bume

06-07-2006	#11
tgeibel Registered User Board-Frischling Join Date: Jul 2006 Location: Frankfurt Posts: 1 Abgegebene Danke: 0 Erhielt 0 Danke für 0 Beiträge	Hallo zusammen, hätte noch was ergänzendes. Habe mir auch schon was ähnliches gebastelt. 1 Prüfe die Mails auf Anlagen 2 Erstelle einen Ordner für den Absender 3 Speichere die Anlage in diesem Ordner 4 lösche danach die Anlage Würde die Anlage in der Mail aber lieber erst durch eine Verknüpung auf den Ordner wo die Anlage landet ersetzen und dann löschen (ähnlich macht das ein Programm names QuantaZip). So kann man die Anlage obwohl gelöscht direkt öffnen. Vieleicht habt Ihr ja einen Tip für mich Viele Grüße Thorsten Geibel

22-07-2006	#12
sefre Registered User Board-Frischling Join Date: Jul 2006 Location: NRW Posts: 1 Abgegebene Danke: 0 Erhielt 0 Danke für 0 Beiträge	für Noobies Hallo. Ich habe die gleiche Anforderung wie der Initiator des Threads. Habe allerdings Outlook 2003 und möchte gerne ALLE Anhänge in einen bestimmten Ordner auf der Festplatte speichern und nach dem Speichern soll die Datei aus der Mail durch eine Verknüpfung ersetzt werden. Dieses Script kann ich dann in eine Filterregel von Outlook einbauen. Da ich von Scripten garkeine Ahnung habe, weiß ich das es sehr viel verlangt ist aber wäre mega dankbar. Dazu kommt noch das einige Mails mehrere Anhänge enthalten. Ist das egal? oder wird immer nur der erste Anhang bearbeitet? Es sollen natürlich alle gespeichert und ersetzt werden. Last edited by sefre on 22-07-2006 at 20:52

05-09-2006	#14
Pitter CO-***** Senior Member (Board-Inventar) Join Date: Aug 2001 Location: In Deutschland Posts: 2.658 Abgegebene Danke: 1 Erhielt 2 Danke für 2 Beiträge	Hallo Bote, nicht in einem neuen Modul speichern, sondern in "ThisOutlookSession" abspeichern.... dann funktioniert das auch __________________ Gruss Pitter ______________________________________________________________________________ Ich bin nicht die Signatur.... ich putz hier nur... Link in eigener Sache: Glasperlenkunst ** Kein Support per Mail/PN, nur über das Forum! **

15-11-2006	#15
aexner Registered User Board-Frischling Join Date: Nov 2006 Location: Walldorf Posts: 1 Abgegebene Danke: 0 Erhielt 0 Danke für 0 Beiträge	Mails in Netzordner speichern Hallo, wer kann mir sagen, wie man mehrere Mails (incl.) Anhang als msg-Dateien auf einen Netzordner speichern kann ? Z.B. alle Mails mit dem Absender "XYZ" selektieren, markieren und dann speichern...... geht sowas ? (Script, Makro) Grüße, Andreas

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Sponsored Links