Hi Leutz,
ich hab da (mal wieder) ein kleines problem. Und zwar versuche ich über ein antwortdokument auf ein hauptdokument zuzugreifen.
ich habe da bis jetzt folgendes:
Sub Initialize
Dim session As New NotesSession
Dim webdoc As NotesDocument
Set webdoc = session.DocumentContext
Dim db As NotesDatabase
Dim ViewEmpfänger As NotesView
Dim docEmpfänger As NotesDocument
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set ViewEmpfänger = db.GetView("Empfänger")
Dim Betreff As String
Dim Inhalt As String
Set doc = db.GetDocumentByUNID( webdoc.ParentDocumentUNID )
Inhalt = webdoc.GetItemValue( "AuswahlJaNEIN" )
Forall x In doc.GetItemValue("StatusEingabe")
Betreff = Cstr(x)
End Forall
Betreff = Betreff & ";Für das Thema: "
Forall x In doc.GetItemValue("EingabeThema")
Betreff = Betreff & Cstr(x)
End Forall
Set docEmpfänger = ViewEmpfänger.GetDocumentByKey(doc.GetItemValue("EingabeVerantwortlicher"))
ToWho = (docEmpfänger.GetItemValue ("EingabeAdress")(0))
doc.Principal = "Abesendeadresse@NotesDomain"
doc.Form = "Memo"
doc.Subject = Betreff
doc.Body = Inhalt
Print toWho
Call doc.Send(True,toWho)
End Sub
und zwar hole ich mir von diesem gespeichertem Antwortdokument die Parentdoc id mit welcher ich mir dann das dazugehörige Hauptdokument besorgen kann. Aus diesem hole ich mir dann die felder die ich benötige und verschicke an den ersteller dieses hauptdokumentes eine email. (Der name steht in "Eingabeverantwortlicher" und über die View "Empfänger" hole ich mir seine emailadresse)
Nur kommt bei mir nie eine email an...
Wäre super wenn mir jemand helfen könnte und mir sagen könnte wo ich hier einen fehler drin habe.
MFG
Torf
