Domino 9 und frühere Versionen > ND9: Entwicklung

Lotus Script If bei einer Messagebox

(1/4) > >>

Haku:
Hallo Community,

ich habe einen Button der mit LS programmiert wurde.

Wenn man auf den Button drück kommt ein Promt Feld mit Ok Abbrechen. Wenn man jetzt Ok drückt soll eine Mail verschickt werden. (Das Funktioniert auch)

Wenn ich auf Abbrechen drücke, wird die Mail auch verschickt.

Einfach gesagt, was für einen Code/Syntax muss ich verwenden, das es die Mail nur verschickt wenn ich bei dem Promt Feld auf Ok geklickt habe?

Danke

Tode:
Falscher Ansatz: Zeig uns Deinen Code, und wir sagen Dir, was falsch daran ist.... Dann kann nämlich de rnächste, der hier drüber stolpert auch noch was aus dem Thread lernen.

Ausserdem: Falsches Unterforum, das gehört in die Entwicklung, nicht in die Administration...

Glombi:
Wenn Du die LS Prompt Funktion mit PROMPT_YESNO verwendet hast, kannst Du das Ergebnis abfragen:

PROMPT_YESNO, returns 1 if you select Yes. If you select No, returns 0.

Bspw so
dim ret as integer
...
ret = ws.Prompt(PROMPT_YESNO ,...)
if ret = 0 then
exit sub
end if


oder

if ret = 1 then
'mach was, bspw. Mail senden
end if
...und weiter im Code

Andreas

Haku:
Das ist der Code:

      Messagebox "...", 1, "Unterschrift"
      
      TmpMA = "Name"
      
      Dim TmpEditor As New NotesName(WSession.UserName)
      TmpUnterschrift = TmpEditor.common + " - " + Cstr(Date+Time)
      
      TmpMailBetreff = "..."
      macro$=|@explode("|+TmpMA+|";",")|
      TmpSendTo = Evaluate (macro$)
      Set WDocument2=New NotesDocument(WDatabase)   
      Set Wrtitem=New NotesRichTextItem(WDocument2, "Body")
      Call Wrtitem.AppendText( "...," )
      Call Wrtitem.Appendtext( "..." )
      WDocument2.Subject = TmpMailBetreff
      WDocument2.SendTo= TmpSendTo
      Call WDocument2.Send(False)
         
      ' Sysdoc => neue Nr. schreiben
      WSysDoc.Sys_PB_Nr=Cstr(TmpNeueNr)
      success =  WSysDoc.ComputeWithForm( False, False )
      Call  WSysDoc.Save( True, True )         
      
      ' UI-Doc
      WUiDoc.Save
      WUiDoc.Close
      
      Messagebox  "...", 64, "Info"
      
      Else
      End If

ascabg:
Hallo,

Die Meessagebox liefert Dir ja auch ein "Ergebnis" zurueck.

Siehe hierzu auch die Datei "lsconst.lss" im Programmverzeichnis von Notes (wo sich die Notes.exe befindet)


--- Code: ---If Messageboc("Text", 32, "Titel") = IDYES Then

    ' Anwender hat mit OK geantwortet
    ' mach was

End If

--- Ende Code ---


Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite