Absendeadresse wenn ein Agent ein Mail versendet?

[coma]

Hallo Bernhard,

Willst Du - oder doch nicht?

Naja, mit lernen hat das wenig zu tun, mehr so was wie früher Lego spielen. Ein paar Teile zusammen setzen und sehen ob's funktioniert...

Gruß,
Ralf.

[DAU-in]

aber auch beim Lego spielen ist es von Vorteil, wenn man dahinter kommt, wie die Teile ineinander gesteckt werden.

grüsse

Dau-in

[coma]

Hey,

ihr seid ja alle lieb und nett.... 

Werft mir immer mal ein Lego Steinchen zu, mal rot, mal weiß, mal mit 4 mal mit 8 Knöpfchen drauf und ich soll dann ein ganzes Haus draus bauen...

Also ganz ehrlich, ich brauche ein wenig mehr Input hier:

"notessession.Documentcontext"

Gruß,
Ralf.

[coma]

Mal laut nachgedacht anhand eines Beispiels aus der Notes Hilfe:

This agent displays the Subject item of the current document when run by @Command([ToolsRunMacro]) in a browser.

Code

Sub Initialize
  Dim session As NotesSession
  Set session = New NotesSession
  Dim doc As NotesDocument
  Set doc = session.DocumentContext
  Print "<H2>" + doc.Subject(0) + "</H2>"
End Sub

kann ich dann mit:

doc.NameMeinesFeldes(0) auf meine Felder zugreifen?

Gruß,
Ralf.

[m3]

Also ganz ehrlich, ich brauche ein wenig mehr Input hier:

"notessession.Documentcontext"

http://lmgtfy.com/?q=notessession.Documentcontext

[Felix Ziegler]

Wie geil ist denn der Link?!

Ich brech ab... jetzt hab ich wieder was dazu gelernt!!!

[DAU-in]

http://lmgtfy.com/?q=notessession.Documentcontext

    

[DAU-in]

Hallo Bernhard,

1.) Darfst Du Notes-IDs erzeugen?

Ja, ich darf alles, ich bin der Chef hier...

2.) Weisst Du, wie man dann damit umzugehen hat, um das Ziel zu erreichen?

Mit was, mit der Notes-ID?

Offensichtlich können nicht beide Fragen mit "ja" beantwortet werden, sonst würdest Du nicht von uns erwarten, dass wir Deine Arbeit machen.

Ich habe doch nur um einen Tipp gebeten nicht darum, dass jemand meine Arbeit übernimmt.

Das soll als Erklärung dienen, warum hier niemand mehr antwortet: Du willst nicht lernen, Du willst eine schnelle Lösung (= fertige Lösung von anderen) - das funktioniert nicht.

Dass ich nicht lernen will ist nicht richtig. Mein letzer Domino Admin Kurs liegt zwar ein paar Jahre zurück, aber ganz im Dunkeln fische ich nicht. Ausserdem habe ich 20 IT Jahre auf dem Buckel. Aber ich habe mittlerweile andere Dinge zu tun und mir würde es reichen, wenn mich jemand in die richtige Richtung schubst.

....


Deshalb: ich brauch nur n' Tipp, that's all...

Schubsen  und Tipps geben tun wir doch

und ansonsten hätte ich noch Plan B:
da du der Chef bist: delegiere doch das Problem einfach nach unten! 

[Felix Ziegler]

Oder vergieb das Problem doch einfach an einen externen Dienstleister 

[Felix Ziegler]

So,

ein Teil funktioniert schon mal, der richtige Absender ist drin  Roll Eyes

Es funktioniert (bei mir) wohl nur per Script, ich habe das so gemacht:

Code:

Sub Initialize
   Dim session As New NotesSession
   Set db = session.CurrentDatabase
   Set doc = New NotesDocument( db )
   doc.Form = "Memo"
   doc.SendTo = "info@meinedomain.de"
   doc.Subject = "Das ist die Betreffzeile"
   doc.Body = "Test"
   doc.Principal="Mein toller Absender <info@meinedomain.de@meinenotesdomain.org>"
   Call doc.Send( False )   
End Sub


Simple Frage für Euch Sepzialisten:

Wie kann ich dem doc.Body den Inhalt von zwei Feldern des Documents zuweisen???

Gruß,
Ralf.

Dein Ansatz ist nicht schlecht. Aber zwischen diesen beiden Zeilen musst du noch folgendes tun:

   Set db = session.CurrentDatabase
   Set doc = New NotesDocument( db )

Entweder: Du holst dir eine Ansicht aus der Datenbank in der alle Dokumente aufgelistet sind, die den Status "warten" haben und durchläufst dann diese mit GetFirstDocument und GetNextDocument.

Oder: Du hast eine Ansicht in der alle Dokumente angezeigt werden und nach Status sortiert sind. Dann holst du dir die Ansicht und über eine NotesDocumentCollection die entsprechenden Dokumente. Die Collection durchläufst du dann wieder mit GetFirstDocument und GetNextdocument

Genug geschubst?

[coma]

danke für das Schubsen erst mal...

muss aber erst mal was verstehen.

Der Agent hat Aufgrund der Auswahl doch sowieso nur die Dokumente im Zugriff die ich haben möchte, denn im Designer habe bei Dokumentenauswahl "entspricht Beispielmaske", dort steht in meinem Feld Status "warte".

Das funktioniert auch soweit, der Agent bearbeitet bei einem Testlauf nur diese Dokumente.

Jetzt möchte aus den Dokumenten auf die der Agent dann zugreift, jeweils ein bestimmtes Feld als Body an mein Mail übergeben. Desweiteren brauche ich aus dem Dokument die eMail Adresse, die auch in einem Feld hinterlegt ist.

Wäre das grundlegend von der Idee her richtig, wenn ich das so mache:

Code

Sub Initialize
	Dim session As New NotesSession
	Set db = session.CurrentDatabase
	Set doc = New NotesDocument( db )
	
	Dim currsession As NotesSession
	Set currsession = New NotesSession
	Dim currdoc As NotesDocument
	Set currdoc = session.DocumentContext	
	
	doc.Form = "Memo"
	doc.SendTo = currdoc.FeldIndemDieMailAdresseSteht (0)
	doc.Subject = "Hier der Betreff"
	doc.Body = currdoc.FeldIndemDasStehtWasInDenBodySoll (0)
	doc.Principal="Ich werde der Beste Notes Script Programmierer <info@scriptprofi.de@meinenotesdomain.org>"
	Call doc.Send( False )	
End Sub

[DAU-in]

'wenn du zeitgesteuert arbeitest, kannst du nicht den den in der View selektierten Dokumenten arbeiten
'wenn du die Doks selektieren willst, sieh dir  die klasse uiview an!

'hier Beispiel für zeitgesteuert
Sub Initialize
   Dim session As New NotesSession
   Dim db As Notesdatabase
   Dim view As NotesView
   Dim maildoc As Notesdocument
   Dim doc As NotesDocument
   Dim dc As NotesDocumentCollection
   Dim suchformel As String
   
   Set db = session.CurrentDatabase   
   suchformel = { Status = "warte"}
   Set dc = db.Search(suchformel,Nothing, 0)
   
   Set doc = dc.GetFirstDocument
   
   While Not doc Is Nothing
      Set maildoc = db.CreateDocument
      maildoc.form = "Memo"      
      maildoc.SendTo = doc.FeldIndemDieMailAdresseSteht (0)
      maildoc.Subject = "Hier der Betreff"      
      maildoc.Principal="Ich werde der Beste Notes Script Programmierer <info@scriptprofi.de@meinenotesdomain.org>"
      
      maildoc.Body = doc.Feld1 (0) & Chr$ (10) & doc.Feld2 (0)            
      Call maildoc.Send( False )   
      
      Set doc = dc.GetNextDocument(doc)
   Wend
   
End Sub


Edith: schalte 'option declare' ein!

[coma]

Hey danke,

ich werde das mal testen. Du sagst:

'wenn du zeitgesteuert arbeitest, kannst du nicht den den in der View selektierten Dokumenten arbeiten
'wenn du die Doks selektieren willst, sieh dir  die klasse uiview an!

Das funktioniert aber doch. Wenn ich den Agenten laufen lasse, selektiert er mir genau die beiden Dokumente in welchen das Feld Status den Wert "warten" hat und versendent auch nur an diese das Mail.

Gruß,
Ralf.

[DAU-in]

Du startest den Agenten von Hand?
Dann ist er nicht zeitgesteuert.

Häkchen machen in der View <--> zeitgesteuert!

[coma]

Nein, ich start den Agenten zeitgesteuert, zum Testen steht dieser auf 5 Minuten. Und er selektiert schön brav die zwei Dokumente die im entsprechenden Feld den gesuchten Wert haben.

[DAU-in]

Nein, ich start den Agenten zeitgesteuert, zum Testen steht dieser auf 5 Minuten. Und er selektiert schön brav die zwei Dokumente die im entsprechenden Feld den gesuchten Wert haben.

Sub Initialize
   Dim session As New NotesSession
   Set db = session.CurrentDatabase
   Set doc = New NotesDocument( db )
   
   Dim currsession As NotesSession
   Set currsession = New NotesSession
   Dim currdoc As NotesDocument
   Set currdoc = session.DocumentContext   
   
   doc.Form = "Memo"
   doc.SendTo = currdoc.FeldIndemDieMailAdresseSteht (0)
   doc.Subject = "Hier der Betreff"
   doc.Body = currdoc.FeldIndemDasStehtWasInDenBodySoll (0)
   doc.Principal="Ich werde der Beste Notes Script Programmierer <info@scriptprofi.de@meinenotesdomain.org>"
   Call doc.Send( False )   
End Sub



Wo werden die hier die gewünschten Dokumente selektiert?
Habe ich irgendetwas auf den Augen?

[Felix Ziegler]

Über das Auwahlkriterium des Agenten.

[DAU-in]

Wo stellt man an dem Auswahlkriterium des Agenten ein, dass er die Dokumente mit Status 'Warten' nimmt?

Wenn das bei dir geht - ich kann das nicht einstellen

[Felix Ziegler]

Auf der linken Seite ist in der Gliederung der Punkt "Dokumentenauswahl". Dort ist vermutlich eine Bedinung hinterlegt.

Unten drunter steht "Options", "Declarations", "Initialize" ... usw.

[TRO]

Nein, ich start den Agenten zeitgesteuert, zum Testen steht dieser auf 5 Minuten. Und er selektiert schön brav die zwei Dokumente die im entsprechenden Feld den gesuchten Wert haben.

Hallo coma,

definiere bitte den Begriff "selektiert" !
Meinst Du damit
a) in der (FrontEnd-) Ansicht ist ein Häkchen davor

oder

b) der Agent verwendet Werte aus diesen Docs (und nur aus diesen Docs)




Thomas