Mail-Anhänge automatisch abspeichern

Moderator: ModerationP

Mail-Anhänge automatisch abspeichern

Beitragvon yco1993 » 30. Jul 2018, 17:18

Hallo

Erhalten täglich mehrere Auswertungen per Mail, die wir gerne automatisch abspeichern lassen möchten.
Ich habe mir folgenden Code zusammengebastelt:

Code: Alles auswählen
Sub SaveAttachment(olMail As MailItem)
Dim Pfad As String
Dim Datei As Attachments

Dim TimeStamp As String
TimeStamp = Format(olMail.ReceivedTime, "yyyymmdd")
Pfad = "D:\Dropbox\TestUser\Desktop\Test\"

On Error Resume Next

Set Datei = olMail.Attachments
    For i = 1 To Datei.Count
    Datei.Item(i).SaveAsFile Pfad & TimeStamp & "_" & Datei.Item(i).FileName
Next i
End Sub


Zuhause funktioniert alles, aber komischerweise erhalte ich im Büro bei einer eingehenden Mail die Fehlermeldung, dass der Skript nicht existiert oder ungültig ist.
Im Büro arbeite ich mit Outlook 2010, zuhause 2016. Gibt's für den Fall Unterschiede zwischen den beiden Versionen?

Danke für die Hilfe
yco1993
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 18
Registriert: 06. Jan 2017, 00:16

Re: Mail-Anhänge automatisch abspeichern

Beitragvon Michael Bauer » 31. Jul 2018, 07:24

Hallo,

mit der Outlookversion hat das nichts zu tun. Gibt es das Makro denn dort im Modul DieseOutlookSitzung?
Michael Bauer
Add-Ins für Microsoft Outlook
Benutzeravatar
Michael Bauer
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 6333
Registriert: 03. Feb 2005, 15:07
Wohnort: Vollersode

Re: Mail-Anhänge automatisch abspeichern

Beitragvon yco1993 » 31. Jul 2018, 08:09

Michael Bauer hat geschrieben:Hallo,

mit der Outlookversion hat das nichts zu tun. Gibt es das Makro denn dort im Modul DieseOutlookSitzung?


Hallo Herr Bauer
Das war's schon. Ich hab ein separates Modul erstellt. Jetzt als ich den Code in DieseOutlookSitzung kopiert hab, funktionierts.
HERZLICHEN DANK
yco1993
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 18
Registriert: 06. Jan 2017, 00:16

Re: Mail-Anhänge automatisch abspeichern

Beitragvon Michael Bauer » 31. Jul 2018, 11:40

Ein separates Modul geht auch, es darf nur kein Klassenmodul sein.
Michael Bauer
Add-Ins für Microsoft Outlook
Benutzeravatar
Michael Bauer
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 6333
Registriert: 03. Feb 2005, 15:07
Wohnort: Vollersode


Zurück zu Outlook Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: Michael Bauer und 2 Gäste