auf LotusNotesMail per VBA antworten

Dim objNotes As Object

Dim LNdb As Object

Dim LNView As Object

Dim LNDoc As Object,

Dim LNDocAnt As Object,



Set objNotes = GetObject("", "Notes.NotesSession")

Set LNdb = objNotes.GetDatabase(SERVER, POSTKORB)



If Not (LNdb Is Nothing) Then

    Set LNView = LNdb.GetView(EINGANG)

    If Not (LNView Is Nothing) Then

        Call LNView.Refresh

        Set LNDoc = LNView.GetFirstDocument

        Set LNDocAnt = LNdb.CreateDocument



'hier dachte ich, ich komme mit MakeResponse weiter bin ich aber irgendwie nicht :/ würde natürlich in die Antwortmail auch noch was schreiben wollen :D

            Call LNDocAnt.MakeResponse(LNDoc)

            LNDocAnt.Form = "Reply"

            Call LNDocAnt.Save(True, True)

   End If

End If



Set LNItem = Nothing

Set LNDoc = Nothing

Set LNDocAnt = Nothing

Set LNView = Nothing

Set LNdb = Nothing

Set objNotes = Nothing