Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler "Fehlende Berechtigung" beim speichern von Anhängen
08.04.2022 09:06:07 Tom
NotSolved
08.04.2022 23:29:12 Gast39309
NotSolved

Ansicht des Beitrags:
Von:
Tom
Datum:
08.04.2022 09:06:07
Views:
182
Rating: Antwort:
  Ja
Thema:
Laufzeitfehler "Fehlende Berechtigung" beim speichern von Anhängen

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler "Fehlende Berechtigung" beim speichern von Anhängen
08.04.2022 09:06:07 Tom
NotSolved
08.04.2022 23:29:12 Gast39309
NotSolved