Domino 9 und frühere Versionen > ND9: Entwicklung

Lotus Script If bei einer Messagebox

<< < (2/4) > >>

Haku:
Ich habe jetzt diesen Code:

If Messagebox("...", 32, "...") = IDYES Then
     
      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"
     
      End If

End Sub

Wenn ich speichern will kommt jetzt die Meldung: Unexpected Sub | Expected If

Was muss ich jetzt machen?

Ach und "ascabg", bei deinem Code hast Du "Messageboc" geschrieben.(:

ascabg:
Hallo,

Ist das der ganze Code?


Andreas

P.S.:

--- Zitat ---Ach und "ascabg", bei deinem Code hast Du "Messageboc" geschrieben.(:
--- Ende Zitat ---
Eine Goldwaage steht aber nicht auf Deinem Tisch?  ;D

thkn777:
@Haku
Wenn das der ganze Code ist, dann fehlt sowas wie


--- Code: ---Sub MeineTolleProzedur (parameter as String)
--- Ende Code ---

vor dem ersten IF  ;)

Zu Deiner eigentlichen Frage:
In der Lotus Notes Hilfe unter "MessageBox function and statement" ist das ziemlich genau beschrieben. Falls Du die Developer-Hilfe gerade nicht als Notes-DB zur Hand hast, kannst Du auch hier gucken: http://www-12.lotus.com/ldd/doc/domino_notes/rnext/help6_designer.nsf/f4b82fbb75e942a6852566ac0037f284/427aacc7d5a2bf6385256c54004c612f?OpenDocument

Wenn Du also an das %INCLUDE denkst oder bei Deiner IF Messagebox... Abfrage statt IDYES die passende Zahl zur Abfrage verwendest, bist Du wieder einen Schritt weiter.

Viel Erfolg,
Th.

Haku:
Nein, der ganze Code hat 250 Zeilen, und ich dachte es reicht erstmal den Teil zu schreiben der nicht funktioniert.

Peter Klett:

--- Zitat von: Haku am 15.04.14 - 11:33:33 ---Wenn ich speichern will kommt jetzt die Meldung: Unexpected Sub | Expected If

Was muss ich jetzt machen?

--- Ende Zitat ---
Du zählst die Ifs und End Ifs durch, da fehlt Dir wenigstens ein End If

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete