Script til at oprette nye memo med forudfyldt modtageradresse

Den database, man nu står i ???~|

Du mener vel, at feltet skal tages fra det dokument, som nu er valgt !·)


men via script (jeg går ud fra, at dokumentet er valgt i et view, og at det ikke er noget krav, at afsenderens maildatabase bruges):

Sub Click(Source As Button)
dim ws as new NotesUIWorkspace
dim s as new NotesSession
dim db as NotesDatabase
dim v as NotesView
dim doc as NotesDocument
dim maildoc as NotesDocument
dim user as NotesName

set db = s.CurentDatabase
set v = ws.CurrentView.View
set doc = db.UnprocessedDocuments.GetFirstDocument
set user = new NotesName(s.username)

set maildoc = db.CreateDocument
maildoc.Form = \"Memo\"
maildoc.SaveOptions=\"0\"
maildoc.SendTo = doc.mailadresse(0)
maildoc.Principal = user.abbreviated
maildoc.ReplyTo = user.abbreviated

call ws.EditDocument(true, maildoc)
end sub

Scriptet kræver desuden, at du har en Memo-form i din database, som man kan skrive i.

Hvis du vil mre, så spørg !-]

hth
jes

PS. Hvis det er meget mere (f.eks. brugerens maildatabase) må du gerne hoste op med lidt flere points ;·}

Og det var selvfølgelig et forsøg på et svar

Jamen det her er ca. hvad jeg havde forestillet mig. Når det bliver mere besværligt skal jeg da nok hoste op med nogle flere points.
Thanks !