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:
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
Hallo,
Da ich keine Alternative zu Formelsprache @mailsend im Script weiß
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