Script: @Command([Compose]; @MailDbName; "Memo" mit Script

[TMC]

Hi,

folgender Code soll in einem Button einer Maske ausgeführt werden:

FIELD EnterSendTo := EnterSendTo;
@Command([Compose]; @MailDbName; "Memo");
@SetField("EnterSendTo"; EMail)

Was will ich:
- neues Mail erstellen
- die Email-Adresse, die im Feld EMail steht, soll in das Empfänger-Feld des neuen Mails kopiert werden


Was passiert:
Notes macht ein neues Memo auf, aber kopiert nix in das Empfängerfeld.
Eigentlich logisch, weil Notes hier wohl auf das bestehende Dokument das @Setfield machen will.

Wie könnte man sowas in Script machen? Es soll auch auch das entsprechende Letterhead-Logo erscheinen im neuen Mail.....

TMC

[TMC]

Hat sich erledigt.

Das Logo hol ich über

Dim profil As NotesDocument
Set profil = maildb.GetProfileDocument("CalendarProfile")
maildoc.Logo = profil.DefaultLogo(0)

Und der Rest ist eh simpel.....

TMC

P.S.
Sehr intuitiv ist ja das R5-Mailfile nicht, also dass die Mailoptionen im 'CalenderProfile' stehen.....

[AC]

Abend TMC
fein, freut mich für dich. letzteres habe ich nicht gewusst.

bye, Holcomb

[TMC]

Hier noch der Vollständigkeit halber der komplette Code:

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim uiws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument   
   Dim maildb As NotesDatabase
   Dim maildoc As NotesDocument
   Dim profil As NotesDocument
   
   Set uidoc = uiws.CurrentDocument 'ui
   Dim thisdoc As NotesDocument
   Set thisdoc = uidoc.Document 'ui
   
   CreateMailMemo = 0
   
   Set maildb = New NotesDatabase("","")
   maildb.OpenMail
   Set profil = maildb.GetProfileDocument("CalendarProfile")
   
   Set maildoc = New NotesDocument(maildb)
   maildoc.Form = "Memo"
   maildoc.Logo = profil.DefaultLogo(0)
   maildoc.Principal = profil.Owner(0)
   maildoc.SendTo =  thisdoc.EMail(0)
   
   Call uiws.EditDocument(True, maildoc)
   Set uidoc = uiws.CurrentDocument 'ui
   Call uidoc.GotoField("Subject")   
End Sub

TMC