Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: TMC am 11.10.03 - 17:38:23

Titel: Script: @Command([Compose]; @MailDbName; "Memo" mit Script
Beitrag von: TMC am 11.10.03 - 17:38:23

Hi,

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

Zitat

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

Titel: Re:Script: @Command([Compose]; @MailDbName; "Memo" mit Script
Beitrag von: TMC am 11.10.03 - 18:11:20

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.....

Titel: Re:Script: @Command([Compose]; @MailDbName; "Memo" mit Script
Beitrag von: AC am 11.10.03 - 18:17:13

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

bye, Holcomb

Titel: Re:Script: @Command([Compose]; @MailDbName; "Memo" mit Script
Beitrag von: TMC am 11.10.03 - 19:11:04

Hier noch der Vollständigkeit halber der komplette Code:

Zitat

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