---

Hallo ich möchte meinen Error Log in den Messages Ordner schreiben wie mache ich das?
Mein Ansatz ist folgender:

Set goactivemessagesfolder = ActiveProject.MessagesFolder.CreateReport() 'Was kommt in die Klammer

Gruß
Stolhofer

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

CreateReport legt ein neus Report (Worksheet in VisioSheet) an.

Versuche dieses mal:

Private Sub test_messages()

Dim logMessage As ObjectItem

    Set logMessage = ActiveProject.MessagesFolder.NewChild(aucObjMessage)
    With logMessage
        .Attributes.ItemByID(aucAttrDesignation) = "Fehlermeldung"
        .Attributes.ItemByID(aucAttrDateCreate) = Date$ + " " + Time$
        .Store
    End With

End Sub

Die verweis auf das Fehlerhafte Object habe Ich nicht im griff 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,
danke erstmal für die schnelle Hilfe.

Möchte davor aber noch ein neues Verzeichnis haben was ich mit dem nachfolgenden Befehl erzeuge.

Set goactivemessagesfolder = ActiveProject.MessagesFolder.NewChild(aucObjFolder)

With goactivemessagesfolder.Attributes
    .ItemByID(aucAttrDesignation).Value = sMacroname
    .ItemByID(aucAttrComment) = "Error Log"
End With

Problem daran ist nur das ich es mit dem Attributes Befehl nicht benenne kann
Weiß da jemand rat

Gruß Stolhofer

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

Um Attributswerte zu speichern muss immer ein Store auf das Objekt gemacht werden.
Sind denn nun alle Anforderungen erfüllt?

mfg
MakroMax

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja danke genau das war der Fehler

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

CreateReport legt ein neus Report (Worksheet in VisioSheet) an.

Hallo,
wass soll bitte bei CreateReport()  in die Klammer kommen ?
Danke
Jarda

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP