VBA - Makro funktioniert nicht mehr?

[Mr. Mayokäse]

Hallo zusammen, 

ich wechselte den Speicherort meiner Excel-Datei, seitdem funktioniert das Makro irgendwie nicht mehr und ich weiß mir nicht zu helfen. 

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim Outlook As Object, EMail As Object

Set Outlook = CreateObject("Outlook.Application")

Set EMail = Outlook.CreateItem(0)

With EMail
   .To = ""
   .CC = ""
   .BCC = ""
   .Subject = "Bestandsübersicht"
   .Body = "Sehr geehrte Damen und Herren," & vbNewLine & vbNewLine & _
             "unter dem folgenden Hyperlink finden Sie eine überarbeitete Version der Bestände." & vbNewLine & _
             "File:\\\Aufschriebe\Bestandsübersicht.xlsm" & vbNewLine & _
             "Bitte kontrollieren Sie diese und korrigieren Ihre Bestände." & vbNewLine & _
             "Vielen Dank im voraus!"
   .Attachments.Add ActiveWorkbook.FullName ' To add active Workbook as attachment
   ' To add other files just use path, Excel files, pictures, documents pdf's ect.
   .Display   'or use .Send to skip preview
End With


Set EMail = Nothing

Set Outlook = Nothing

End Sub

Bis zum wechsel wurde eine Mail aufgerufen, mit allen Empfängern, welche ich nur kurz ggf. umgeschrieben habe, falls nötig. 
Die Verwendete Datei war zeitgleich im Anhang. 

Nun ist weder die Datei im Anhang, noch die Mail öffnet sich.

Hoffentlich weiß jemand wo der Fehler liegt. 

Ansonsten ein schönes Wochenende, genießt das Wetter!

[BoskoBiati]

Hi,

stimmt das noch:

"File:\\\Aufschriebe\Bestandsübersicht.xlsm" 

??

[Steffl]

Hallo,

Datei ist im vertrauenswürdigen Speicherort?

[Mr. Mayokäse]

Hi,

stimmt das noch:


??

Ja, das stimmt leider noch. Aber guter Einwand, ich war mir gerade gar nicht sicher.  :19:

Hallo,

Datei ist im vertrauenswürdigen Speicherort?

Es ist eigentlich sogar das selbe Verzeichnis wie zuvor, nur dass es umbenannt wurde. 


Ich danke Euch für eure Hilfe!

[Rabe]

Hi,

zum Test mal das Verzeichnis wieder rück-umbenannt?

Das Verzeichnis mit neuem Namen nochmal als vertrauenswürdig deklariert?

[Mr. Mayokäse]

Hi,

zum Test mal das Verzeichnis wieder rück-umbenannt?

Das Verzeichnis mit neuem Namen nochmal als vertrauenswürdig deklariert?

Hey Rabe,

danke für deinen Post. 
Das Verzeichnis werde ich bei passender Gelegenheit nochmal rück-umbenennen, was aber dann nicht das Problem löst, selbst wenn es dann geht. 

Wie kann ich denn das Verzeichnis als vertrauenswürdig deklarieren?

Leider habe ich in dem Zusammenhang keinerlei Erfahrung, daher bin ich dir sehr dankbar!

[Steffl]

Hallo,

reicht dir das? https://support.office.com/de-de/article...7c67147fb4

[Mr. Mayokäse]

Hallo,

reicht dir das? https://support.office.com/de-de/article...7c67147fb4

Hallo Steffl, 

danke für den Link. 

Der Speicherort ist nun eingestellt, aber leider läuft das Makro noch immer nicht. 
Ich habe es auch versucht, die Datei einfach noch einmal wo anders zu speichern, ebenfalls die rück-umbennennung. Beides ohne Erfolg.

Gruß

[Steffl]

Hallo,

was ist unter der Makrosicherheit eingestellt? Gibt es in der Datei noch weitere Makros? Funktionieren die? Handelt es sich dabei auch um Ereignismakros?

[Wastl]

Hi,

probier deinen Code in einer neuen Arbeitsmappe.
Wenn er dann geht, hat möglicherweise die Datei einen Schuss, das kommt vor.
Wenn er nicht geht...

Stutzig macht mich:

File:\\\
so etwas hab ich nicht in meiner Sammlung mit 17 Jahren VBA
gewohnt bin ich

Code:

Workbooks.Open FileName:="\\datei