|
Hallo,
ich nutze ein (eigentlich) altbewährtes Sceript, das eMail Anhänge aus einem bestimmten Ordner speichert.
Zunächst werden die Ordner dafür angelegt (Jahr / Monat / Tag) und dann die Anhänge in diesen Ordner geschoben.
Das anlegen der Ordner klappt, aber beim speichern der Anlagen kommt ein Laufzeitfehler; "Die Anlage kann nicht gespeichert werden, Sie besitzen nicht die erforderliche Berechtigung, um diesen Vorgang auszuführen"
Da das Anlegen der Ordner funktioniert, sollte ich doch eigentlich eine Schreibberechtigung haben?
Gibt es eine andere Möglichkeit, die Anlage zu speichern? Welche Berechtigung fehlt mir evtl.?
Hier ist das Script:
Der Fehler kommt am Ende, bei:
beispiel.Attachments.Item(1).SaveAsFile "ABCD irgenmdein Pfad"
Public Sub AutoDaten()
'hier werden Ordner angelegt, das klappt gut
Dim mynamespace As Outlook.NameSpace
Dim objOwner As Outlook.Recipient
Set mynamespace = Application.GetNamespace("MAPI")
Set objOwner = mynamespace.CreateRecipient("xxxx@xxxx.xx")
objOwner.Resolve
Dim myinbox As Outlook.Folder
If objOwner.Resolved Then
Set myinbox = mynamespace.GetSharedDefaultFolder(objOwner, olFolderInbox)
End If
Dim destfolder As Outlook.Folder
Set destfolder = myinbox.Folders("Automatik")
Dim beispielf As Outlook.Folder
Set beispielf = destfolder.Folders("IrgendeinUnterordner")
Dim mybeispiel As Outlook.Items
Set mybeispiel = beispielf.Items
Dim beispiel As Object
Set beispiel = mybeispiel.Find("[SenderName] ='xxx@xxx.com'")
While TypeName(beispiel) <> "Nothing"
SentOn = beispiel.SentOn
beispiel.Attachments.Item(1).SaveAsFile "ABCD irgenmdein Pfad"
Set beispiel = mybeispiel.FindNext
Wend
End Sub
Danke für Eure Hilfe!
Tom
|