Mail aus Dialogbox

[iukhdh]

Hallo Forum, ich wäre für eine kurze Hilfe dankbar:

Ich öffne aus einer Maske heraus eine Dialogbox. Nach ausfüllen der Felder und drücken der OK Taste, soll eine Mail erstellt werden, die an die in der Dialogbox erfasste Person geht, und einige der erfassten Daten übermittelt.

Nun hapert es grad an folgendem:

Da ich keine Alternative zu Formelsprache @mailsend im Script weiß, habe ich im Queryclose der Dialogbox folgenden Code hinterlegt:

Code

Dim session As New notessession
	Dim db As NotesDatabase
	Dim agent As notesagent
	Set db = session.CurrentDatabase
	Set agent = db.GetAgent("MailanAnwender")
	
	If Not Source.DialogBoxCanceled Then
		Call agent.run
	End If

und rufe damit einen Agenten auf, in dem ich mein @mailsend ausführe. Leider funktioniert das rein garnicht, da m.E. die benötigten Felder aus der Dialogbox nicht übergeben werden.

Mein nächster Gedanke war, dann pack doch den Formelsprachencode einfach ins Queryclose, aber dann fehlt mir wieder das Pendant zum DialogBoxCanceled :-( da das Mail ja beim Abbrechen nicht versendet werden soll. Gibts da was ähnliches?

Nächster Gedanke: Packs halt ins Querysave der Dialogboxmaske ... aber das wird anscheinend garnicht aufgerufen (?)

Hat einer eine Idee bzw. kann mir auf die Sprünge helfen?

Danke

[ascabg]

Hallo,

Da ich keine Alternative zu Formelsprache @mailsend im Script weiß

Code

set doc = New NotesDocument(db)
With doc
  .Form = "Memo"
  .SendTo = "Adressen"
  .Subject = "Hier Dein Subject der Mail"
  .Body = "Hier der Mailtext"
End With

Call doc.Send(False)

Sollte im Body noch mehr enthalöten sein (Anhaenge, DocLinks, ...)
muss man noch ein RichTextItem mit zurate ziehen.


Andreas

[iukhdh]

Oha ... ist das einfach ?

Jaaaa, das ist einfach !!! 

Ich seh schon, ich denk einfach noch nicht genug scriptisch