Das Notes Forum
Domino 9 und frühere Versionen => ND7: Administration & Userprobleme => Thema gestartet von: Torf am 13.02.07 - 14:15:49
-
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
-
SendTo ?
-
SendTo ?
sry, steh wohl grad etwas auf dem schlauch,aber was willst du mir damit sagen ???
-
8)
Das ist wie die Adresse auf einen Zettel schreiben und in den Umschlag legen.
Also an wen soll die Mail gehen?
SendTo
-
Benutze die Designer-Hilfe und suche mal nach SendTo... ;D
Das feld ToWho ist zwar recht nett, aber ..... s.o.
-
Bei ToWho muß ich immer an Dr. Who (http://de.wikipedia.org/wiki/Dr._Who) denken
-
ich hab halt in einem anderen Agenten fast den gleichen code.
Forall x In docAlles.VerbEmpfänger
Set docEmpfänger = ViewEmpfänger.GetDocumentByKey(x)
ToWho = (docEmpfänger.GetItemValue ("EingabeAdress")(0))
docAlles.Principal = "Absendeadresse@NotesDomain"
docAlles.Form = "Memo"
docAlles.Subject = Betreff
docAlles.Body = Inhalt
Print toWho
Call docAlles.Send(True,toWho)
End Forall
und hier geht es. hab daher den hauptteil übernommen. Nur hab ich halt in dem Feld "Eingabeverantwortlicher" nur einen username drin stehen.
Dieser Name den ich aus diesem feld hole, an ihn soll diese mail gehen.
Ich weiß halt einfach nicht wo das problem ist das er die mail nicht versendet...
-
Gegenfrage : Hast Du Designer-Hilfe gelesen ?
-
jo.
Ich hab jetzt sendTo reingehauen, aber die mail kommt immernoch nicht an.
ich hab jetzt auch eine feste email adresse eingegebe, aber die mail kommt trotzdem nicht an...
-
Dann stimmt wohl der Inhalt vom Empfänger-Feld nicht.
-
Das ist ein ganz normales textfeld in dem über @Name([CN]; @UserName) der name des zu diesem zeitpunkt angemeldeten users drin steht.
Und wie schon gesagt, selbst wenn ich es ohne diesem Feld mache.
Dem sendTo eine feste email adresse gebe, kommt trotzdem keine email an.
-
Gegenfrage : Hast Du Designer-Hilfe gelesen ?
Offensichtlich hat er, Klaus, denn die Syntax ist schon richtig (wobei ich nicht verstehe, warum er die Form zusammen mit dem Dokument sendet - das macht m.E. sehr wenig Sinn. Das könnte sogar Ärger machen, wenn es die Maske "Memo" in der sendenden DB gar nicht gibt).
Wo wird denn der Code getestet? Lokal? Wenn ja: Schon mal in die lokale MAIL.BOX geschaut?
Wenn auf dem Server: Was sagt die LOG.NSF unter verschiedene und unter Mailrouting-Ereignisse?
Bernhard
-
Offensichtlich hat er, ...
Jau, er hat. Irgendwie hatte sich bei mir festgesetzt, dass das Feld SendTo heissen muss.
Ansonsten müsste es ja eigentlicht nich ToWho sondern ToWhom heissen... ;D
-
13.02.2007 16:02:42 Router: Transferring mail to domain MHMD50CX.MHM6.XYZ.DE (host MHMD50CX.MHM6.XYZ.DE [158.92.0.237]) via SMTP
13.02.2007 16:02:43 Router: Transferred 1 messages to MHMD50CX.MHM6.XYZ.DE (host MHMD50CX.MHM6.XYZ.DE) via SMTP
13.02.2007 16:02:47 Router: Message 0052A50B transferred to MHMD50CX.MHM6.XYZ.DE for vorname.nachname@XYZ.com via SMTP
das steht zu dem zeitpunkt wenn die mail rausgeht. Das ist exakt das gleiche als wenn ich mit dem anderen agenten eine mail rausschicke. Nur kommt bei dem anderen Agent eine maial an bei diesem hier aber nicht. Obwohl im Mail Routing das gleiche steht.
Wenn ich die Memo Maske nicht mitschicke, dann schickt die email mir den kompletten html quellcode dieser webseite.