E-Mail-Attachment automatisiert speichern
Folgende Situation: Wir bekommen jeden Tag nach 19:30 Uhr (so lange will natürlich niemand bleiben ) per E-Mail eine Datei als Anhang zugeschickt, die per Gruppenrichtlinie gesteuert, am nächsten Morgen unseren Usern automatisch angezeigt werden muss - solange der Admin die Datei rechtzeitig in's entsprechende Verzeichnis kopieren konnte, ist alles gut ...
Jetzt suche ich nach einer Möglichkeit, diesen Vorgang zu automatisieren, kennt jemand ein Tool, mit dem man E-Mailanlagen automatisch speichern kann?
Danke,
Atti.
Jetzt suche ich nach einer Möglichkeit, diesen Vorgang zu automatisieren, kennt jemand ein Tool, mit dem man E-Mailanlagen automatisch speichern kann?
Danke,
Atti.
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 6604
Url: https://administrator.de/contentid/6604
Ausgedruckt am: 22.11.2024 um 21:11 Uhr
17 Kommentare
Neuester Kommentar
@Atti:
Hallo mein Freund .... mh... du hast jetzt nicht geschrieben, wie die Datei abgefangen werden soll, bereits im Mailserver oder in Outlook oder einem anderen E-Mail-Programm.
Ich gehe jetzt mal davon aus, daß du Outlook benutzt. Ich hab dir für Outlook zwei Möglichkeiten - eine kostenlose und eine payment.
1. Kostenlos:
Du hast ein Skript hinterlegt in Outlook, das ankommende E-Mails mit Anhang ablegt, wie sowas aussehen könnte findest du hier: http://www.digital-inn.de/showthread.php?t=28483
2. Payment:
Mit dem Tool http://www.rsbr.de/Software/OASniffer/index_deu.htm kannst du E-Mails automatisch abfangen und in einem bestimmten Verzeichnis ablegen. Das sieht man dann auf dieser Seite: http://www.rsbr.de/Software/OASniffer/details/de/auto.htm
Bei beiden Methoden kannst du es ja gleich ins richtige Verzeichnis ablegen lassen, damit die Gruppenrichtlinie es dann ansteuern kann.
Hallo mein Freund .... mh... du hast jetzt nicht geschrieben, wie die Datei abgefangen werden soll, bereits im Mailserver oder in Outlook oder einem anderen E-Mail-Programm.
Ich gehe jetzt mal davon aus, daß du Outlook benutzt. Ich hab dir für Outlook zwei Möglichkeiten - eine kostenlose und eine payment.
1. Kostenlos:
Du hast ein Skript hinterlegt in Outlook, das ankommende E-Mails mit Anhang ablegt, wie sowas aussehen könnte findest du hier: http://www.digital-inn.de/showthread.php?t=28483
2. Payment:
Mit dem Tool http://www.rsbr.de/Software/OASniffer/index_deu.htm kannst du E-Mails automatisch abfangen und in einem bestimmten Verzeichnis ablegen. Das sieht man dann auf dieser Seite: http://www.rsbr.de/Software/OASniffer/details/de/auto.htm
Bei beiden Methoden kannst du es ja gleich ins richtige Verzeichnis ablegen lassen, damit die Gruppenrichtlinie es dann ansteuern kann.
Wenn du in Outlook mit Alt+F11 den VBA-Editor aufmachst findest du DieseOutlookSitzung im Verzeichnisbaum.
Hier muss der Code rein.
Allerdings wird das nicht funktionieren, wenn Outlook geschlossen ist.
Dann besteht nämlich das Problem mit dem Zugriffsschutz auf die PST.
D.h. wenn ein 3rd-Party-Programm zugreifen will, kommt eine Abfrage ob und wie lange Zugriff gewährt werden soll.
Hier muss der Code rein.
Allerdings wird das nicht funktionieren, wenn Outlook geschlossen ist.
Dann besteht nämlich das Problem mit dem Zugriffsschutz auf die PST.
D.h. wenn ein 3rd-Party-Programm zugreifen will, kommt eine Abfrage ob und wie lange Zugriff gewährt werden soll.
Hallo Atti,
hast du das Attachment-Problem schon gelöst?
Wo tritt der Mismatch denn auf? Was spricht der Debuger?
~~~~~~~~~~~~~~~~~~~~~~
Evtl. könnte das auch was passendes sein.
Hätte den Vorteil schon fertig ausprogrammiert zu sein
http://www.add-in-world.com/katalog/ol-autosave/
hast du das Attachment-Problem schon gelöst?
Wo tritt der Mismatch denn auf? Was spricht der Debuger?
~~~~~~~~~~~~~~~~~~~~~~
Evtl. könnte das auch was passendes sein.
Hätte den Vorteil schon fertig ausprogrammiert zu sein
http://www.add-in-world.com/katalog/ol-autosave/
Hallo Paps,
ich weiß ja nicht, ob Dein Problem noch besteht, aber ich hab da was bei Heise gefunden, was Dir weiterhelfen könnte.
Schaum mal unter http://www.heise.de/kiosk/archiv/ct/01/20/008/@00000@/art.htm bei "Outlook schweigt" nach.
Liebe Grüße
Rike
PS.: In dem Artikel "Outlook schweigt" gibt es einen Link, der ist aber nicht mehr aktuell. Hab mal gesucht und den gefunden http://www.heise.de/ct/01/22/222/default.shtml.
Viel Glück
ich weiß ja nicht, ob Dein Problem noch besteht, aber ich hab da was bei Heise gefunden, was Dir weiterhelfen könnte.
Schaum mal unter http://www.heise.de/kiosk/archiv/ct/01/20/008/@00000@/art.htm bei "Outlook schweigt" nach.
Liebe Grüße
Rike
PS.: In dem Artikel "Outlook schweigt" gibt es einen Link, der ist aber nicht mehr aktuell. Hab mal gesucht und den gefunden http://www.heise.de/ct/01/22/222/default.shtml.
Viel Glück
Hallo Papa,
eine Möglichkeit wäre meines Wissens die nette Zeile "On Error Resume Next" nach der Deklaration der Variablen einzufügen, also sollte der Code dann so aussehen.
Option Explicit
Const strFolder = "C:\Temp"
Const strArchFolder = "C:\Temp\Arch"
'
' newmail-Ereignis
' Tritt ein, wenn mindestens eine neue Nachricht im Posteingang eingegangen ist.
'
Private Sub Application_NewMail()
Dim myNameSpace As NameSpace ' ein NameSpace Objekt halt
Dim objPosteingang As MAPIFolder ' der Posteingang im Outlook
Dim myDstFolder As MAPIFolder ' der ZielOrdner im Outlook
Dim objNewMail As MailItem ' ein Objekt (Mail) im Posteingang
Dim i As Integer ' Zähler durch die Anhänge
' Namespace und Folder bestimmen
Set myNameSpace = Application.GetNamespace("MAPI")
Set objPosteingang = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myDstFolder = objPosteingang.Folders("BackOffice")
Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
On Error Resume Next
' Schleife über alle im Posteingang liegenden Elemente
For Each objNewMail In objPosteingang.Items
With objNewMail ' Mit einem dieser Teile
If (.SenderName = "BackOffice") Then
' Dessen Anhänge - falls vorhanden - abspeichern
For i = 1 To .Attachments.Count
.Attachments.Item(i).SaveAsFile strFolder & "\" & .Attachments.Item(i).FileName
.Attachments.Item(i).SaveAsFile strArchFolder & "\" & "Dateiname_" & Format(Date, "yy_mm_dd") & ".rtf"
'End If
Next i
' Die Mail in den Zielordner verschieben
objNewMail.Move myDstFolder
End If
End With
Next objNewMail
End Sub
Da ich heute einen Tag Urlaub habe, werde ich mal schaun, ob ich das zum Laufen bekomme. Aber vielleicht geht es ja auch schon so, also versuch es mal und sag Bescheid.
Liebe Grüße
Rike
PS.: Hab gestern mit Dietmar gescrabbelt *grins* und natürlich verloren
eine Möglichkeit wäre meines Wissens die nette Zeile "On Error Resume Next" nach der Deklaration der Variablen einzufügen, also sollte der Code dann so aussehen.
Option Explicit
Const strFolder = "C:\Temp"
Const strArchFolder = "C:\Temp\Arch"
'
' newmail-Ereignis
' Tritt ein, wenn mindestens eine neue Nachricht im Posteingang eingegangen ist.
'
Private Sub Application_NewMail()
Dim myNameSpace As NameSpace ' ein NameSpace Objekt halt
Dim objPosteingang As MAPIFolder ' der Posteingang im Outlook
Dim myDstFolder As MAPIFolder ' der ZielOrdner im Outlook
Dim objNewMail As MailItem ' ein Objekt (Mail) im Posteingang
Dim i As Integer ' Zähler durch die Anhänge
' Namespace und Folder bestimmen
Set myNameSpace = Application.GetNamespace("MAPI")
Set objPosteingang = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myDstFolder = objPosteingang.Folders("BackOffice")
Set objPosteingang = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
On Error Resume Next
' Schleife über alle im Posteingang liegenden Elemente
For Each objNewMail In objPosteingang.Items
With objNewMail ' Mit einem dieser Teile
If (.SenderName = "BackOffice") Then
' Dessen Anhänge - falls vorhanden - abspeichern
For i = 1 To .Attachments.Count
.Attachments.Item(i).SaveAsFile strFolder & "\" & .Attachments.Item(i).FileName
.Attachments.Item(i).SaveAsFile strArchFolder & "\" & "Dateiname_" & Format(Date, "yy_mm_dd") & ".rtf"
'End If
Next i
' Die Mail in den Zielordner verschieben
objNewMail.Move myDstFolder
End If
End With
Next objNewMail
End Sub
Da ich heute einen Tag Urlaub habe, werde ich mal schaun, ob ich das zum Laufen bekomme. Aber vielleicht geht es ja auch schon so, also versuch es mal und sag Bescheid.
Liebe Grüße
Rike
PS.: Hab gestern mit Dietmar gescrabbelt *grins* und natürlich verloren
Also hat das mit dem Ersetzen von MailItem durch Object ausgereicht?
Ich hab es bei mir noch gar nicht zum Laufen bekommen, naja wird schon noch werden.
Von Eurem Scrabble - Ärger wurde mir schon berichtet, naja er hat bei mir gestern auch nicht "tu" akzepiert, da hab ich nur geschrieben "Tu doch nicht so!!!" - aber was solls
Liebe Grüße Rike
Ich hab es bei mir noch gar nicht zum Laufen bekommen, naja wird schon noch werden.
Von Eurem Scrabble - Ärger wurde mir schon berichtet, naja er hat bei mir gestern auch nicht "tu" akzepiert, da hab ich nur geschrieben "Tu doch nicht so!!!" - aber was solls
Liebe Grüße Rike