Domino 9 und frühere Versionen > ND8: Entwicklung

Beim Speichern eines neuen Dokuments E-Mail versenden

<< < (2/2)

Klafu:

--- Zitat von: SlyFox am 22.03.11 - 14:03:07 ---Hallo Chris,

und wie rufe ich im Script @MailSend auf?

Christoph

--- Ende Zitat ---

Im Scirpt wirds mit @ etwas kompliziert.
Ich glaub das einfachste wäre es, den Speicher Button anzupassen. und da mit @isNewDoc dann das @MailSend oder einen Mail Agent aufzurufen.
Mit der Feld-Wert prüfung hab ichs eben gemacht wie beschrieben. klappt super.

Chris

ascabg:

--- Zitat von: SlyFox am 22.03.11 - 14:03:46 ---Hallo Andreas,

dann müsste ich das Dokument noch einmal speichern, richtig?

Christoph

--- Ende Zitat ---
Warum?

Wenn Dein Code weiterhin im QuerySave laeuft, dann musst Du doch nur nach dem Senden der Mail das Feld (den Wert im Feld) entsprechend umschreiben.


Andreas

Axel:

--- Zitat von: SlyFox am 22.03.11 - 14:03:07 ---Hallo Chris,

und wie rufe ich im Script @MailSend auf?

Christoph

--- Ende Zitat ---

Da gibt's mehrere Möglichkeiten.

Die Methode Send aus der Klasse NotesDocument oder NotesUIDocument. Damit wird aber das eigentliche Dokument versendet.

Wenn ich das richtig verstehe, soll nur eine Benachrichtigung gesendet werden. Dann wäre das folgende Codefragment ein Weg:


--- Code: ---...                
Set maildb = New NotesDatabase("","")
maildb.OpenMail
If Not maildb.IsOpen Then
MsgBox "Mail-DB kann nicht geöffnet werden."
End If  'If Not maildb.IsOpen Then

Set maildoc = New NotesDocument(maildb)
Set profile = maildb.GetProfileDocument("CalendarProfile")
maildoc.Form = "Memo"
maildoc.Logo = profile.DefaultLogo(0)
maildoc.Principal = profile.Owner(0)
maildoc.Subject = "Das ist der Mailbetreff"
maildoc.SendTo = "Adresse des Empfängers"

'Anlegen des Richtextfeldes
Set rtitem = maildoc.CreateRichTextItem("Body" )
Call rtitem.AppendText("Das ist eine Nachricht")
Call rtitem.AddNewLine(2)
Call rtitem.AppendText("Das ist die zweite Zeile dieser Nachricht")
Call maildoc.Send
...


--- Ende Code ---

Oder du kannst auch die Evaluate-Anweisung verwenden und damit wieder @MailSend verwenden.

Axel
  

Navigation

[0] Themen-Index

[*] Vorherige Sete