(Design) Knapper i popbox

Hvis du bruger @-funktioner, kender jeg ikke nogen måde at gøre det, men du kan ret nemt lave det i LotusScript:

Sub Initialize
dim ws as new NotesUIWorkspace

dim ret as variant

ret = ws.DialogBox(\'formNavn\',true,true,false,false,false,false)

if ret = 0 then exit sub

\'...resten af din aktion

end Sub

Det hører med, at du ikke kan checke inde fra din popup-form, du er nødt til at gøre det fra det sted, hvor du åbner.

hth
jes

Øhhh, nu er jeg ikke nogen ørn til script. Men det su siger er at jeg skal indsætte dette script på den formular hvori knappen til at frembringe popup-form er på? Og hvor skal jeg sætte scriptet ind påden form og hvad er script koden til at sende mails?? (pyyh, der er meget jeg ikke ander mht. script :o)

Sub Initialize
dim ws as new NotesUIWorkspace

dim ret as variant

dim tmpdoc as new NotesDocument(ws.CurrentDatabase.Database)
ret = ws.DialogBox(\'formNavn\',true,true,false,false,false,false,\"Vælg mail-adresse\",tmpdoc)

if ret = 0 then exit sub

emailAdresse = tmpdoc.email(0)

dim db as new NotesDatabase(\"\",\"\")
dim maildoc as NotesDocument

call db.OpenMail

set maildoc = new NotesDocument(db)
with maildoc
.SendTo=emailAdresse \'Den har du vel på en eller anden måde, måske fra pop-upen
.Subject=\"Din overskrift\"
.Body=\"Tekssten i mailen\"
\'Hertil er minimum for en mail
call .save(true, false)
call .send(false)
end with

end Sub

hth
jes

Ps. Hvis du vil noget mere avanceret (sende doc-links o.l.) så er det ikke så svært vha. et NotesRichTextItem -- feel free to ask !·]

Kanon, Jes! Men hvor sætter jeg alt dette ind??? I den action jeg bruger til at åbne popup-formen eller..??
Og jo tak, så vil jeg meget gerne have et doclink med til mit \"udgangs-dokument\".
På forhånd tak,
Michael.

Ja, du sætter det ind (Uden øverste og nederste linje -- sub/end sub) i din action (Sub Click, så vidt jeg husker!-)
Du åbner pop-uppen fra et dokument?

Så er det ret simpelt:

dim ws as new NotesUIWorkspace
dim s as new NotesSession

dim ret as variant

dim tmpdoc as new NotesDocument(s.CurrentDatabase)
ret = ws.DialogBox(\'formNavn\',true,true,false,false,false,false,\"Vælg mail-adresse\",tmpdoc)

if ret = 0 then exit sub

emailAdresse = tmpdoc.email(0)

dim db as new NotesDatabase(\"\",\"\")
dim maildoc as NotesDocument

call db.OpenMail

set maildoc = new NotesDocument(db)
dim body as new NotesRichTextItem(maildoc, \"Body\")

with body
call .AppendText(\"Hermed et link om XXXXXXX\")
call .AddNewline(2)
call .AppendText(\"Klik på linket for at åbne dokumentet -->\")
call .AppendDocLink(ws.CurrentDocument.Document, \"Klik her!\")
call .AddNewline(2)
call .AppendText(\"Med venlig hilsen\")
call .AddNewline(2)
call .AppendText(s.username)
end with

with maildoc
.SendTo=emailAdresse \'Den har du vel på en eller anden måde, måske fra pop-upen
.Subject=\"Din overskrift\"
\'Hertil er minimum for en mail
call .save(true, false)
call .send(false)
end with

jes

Jes, jeg får en fejl i denne linie : ret = ws.DialogBox(\'formNavn\',true,true,false,false,false,false,\"Vælg mail-adresse\",tmpdoc) også efter jeg har tilpasset den.
Og hvor henne styrer jeg hvilken af de 4 popupboxe, jeg har til den form, som denne skal komme frem når jeg trykker på denne action?

formNavn

er navnet (alias, hvis den har det) på din popup-boks

Kig forøvrigt også resten af koden igennem for almindelig tekst, som skal tilpasses !!

Nu er alt rettet til. Men den linie er stadig rød!

Undskyld, men vi får jo tygget noget Javascript herinde, det skal være:

ret = ws.DialogBox(\"formNavn\",true,true,false,false,false,false,\"Vælg mail-adresse\",tmpdoc)

;-|

Jeg får denne fejl nu. Boxen kommer frem men når jeg trykker OK så kommer denne meddelelse : \"Couldnt get deafult view ID for database\". Og der kommer ingen mail!

Det lyder som om det handler om åbningen af din maildatabase, har du adgang til den hvor du er, og er den angivet i location-dokumentet?

Det skulle jeg have. Jeg tester det fra min egen pc hvor min klient med min mailbox er. Desuden er jeg også administrator på både mailbox og DB´en, så det burde ikke være et rettighedsproblem. Men jeg har ikke noget defaultview i min DB. Kan det være det som er problemet? Jeg kører hele DB i to frameset, så jeg bruger egentlig ikke nogle views. Kun som Embedded!

Det er da værd at prøve -- og nemt !~}

Endnu en fejl \"Notes error : No names found to send mail to\". Jeg bruger en combobox til at vælge modtager fra en @dbcolumn, som jeg bruger atndet steds også til at sende mails med. Der fungerer det fint, men det er med alm. @mailsend. De data som hentes fra viewet består af kaldenavn og Notesnavn som alias (Michael Roed | Michael Roed/OF/KBH) og det plejer jo at virke!

Svarer linjen:
emailAdresse = tmpdoc.email(0)

til dit feltnavn på popup-boxen?

Hov. Nu fungerer det sgu!
Du skal have tusind tak for din store hjælp, Jes.