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