Anlagen von bestimmtem Absender automatisch speichern

[Roller Aendy]

Folgendes "Problem" habe ich:

1)Ich scanne ein dokument am scanner. Dort wird es automatisch in ein pdf gewandelt und als mail an mich verschickt. Der Betreff ist immer gleich, die PDFs haben ne fortlaufende Nr.

2) Outlook soll als Absender die Email Adresse des Scanners erkennen

3) und die PDFs in einem von mir erstellten Pfad/Ordner speichern

Geht sowas? Habe schon gegoogelt und folgendes gefunden:

Private Sub Application_NewMail()

Dim Foldername As String

Dim objIn As MAPIFolder

Dim objNewMail As MailItem

On Error Resume Next

Set objIn = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

For Each objNewMail In objIn.Items

With objNewMail

If objNewMail.SenderEmailAddress = "[email protected]"

Then

If .UnRead = True Then

NumberOfMails = .Attachments.Count

If NumberOfMails > 0 Then

Foldername = "C:\temp\" & objNewMail.Subject

MkDir Foldername

For i = 1 To NumberOfMails

.Attachments.Item(i).SaveAsFile (Foldername) & "\" & .Attachments.Item(i).FileName

Next i

End If

End If

End If

End With

Next objNewMail

End Sub

Das müsste wahrscheinlich nur leicht modifiziert werden. Die Frage ist nur wie? Kenn mich mit sowas gar nicht aus und weiß auch nicht wo ich sowas editeren kann geschweige denn, wie das dann auch noch in Outllok zum laufen bringe. Kann mir jemand weiterhelfen?

Bevor dumme Einwände kommen: Ja, der Kopierer/Scanner kann auch mehrere Seiten auf einmal scannen, nur geht das nur bis zu ner bestimmten Datei-Größe, sonst klappt der Mailversand nicht mehr. Daher will ich nun meine zu scannenden Unterlagen einzeln scannen und joine die PDFs dann im Nachgang manuell.

Bearbeitet 11. September 2008 von Roller Aendy

[brianjones71]

Editieren kannst du es einfach in Outlook.

Rufe mit Alt + F11 den Visual Basic-Editor auf.

Klicke im Projekt-Explorer auf das kleine Plussymbol vor Projekt1. Der Zweig Microsoft Outlook Objekte wird eingeblendet.

Nun ein Doppelklick auf DieseOutlookSitzung.

Wähle im Codefenster im linken Dropdown-Feld den Eintrag Application aus.

Wähle im rechten Dropdown-Feld das Ereignis NewMail.

Füge nun den Code ein.

Die Mehladresse des Scanners eintragen/bearbeiten

If objNewMail.SenderEmailAddress = "[email protected]" 

und noch den gwünschten Ordner eintragen/bearbeiten.

Foldername = "C:\temp\" & objNewMail.Subject

Projekt speichern.

Speichere das Projekt per Datei VbaProjekt.OTM speichern.

Verlasse den VB-Editor mit Datei Schließen und zurück zu Microsoft Outlook

Starte Outlook neu.

Hoffe, das hilft dir weiter

[Roller Aendy]

Edit sagt Danke, auf dem Firmenrechner klappt es wunderbar.

So sieht das bei mir nun aus:

Die Mailadresse ist nur testweise, damit ich sehen kann ob das klappt, bevor ich den Firmenrechner damit zumülle...

Bearbeitet 11. September 2008 von Roller Aendy