title image


Smiley Mach das am besten in einer Do...Loop-Schleife ...
.. entweder drückt der Anwender auf Abbrechen, dann wird der Code beendet (If StrPtr(varEmailEingabe) = 0 Then Exit Sub), oder er muss auf jeden Fall eine geprüfte eMail-Addy eingeben.









  Dim varEmailEingabe As String

  Dim eMailOK As Boolean



  Do

    varEmailEingabe = InputBox("eMail eingeben", "eMail-Empfänger", "mailan@gmx.de")

    If StrPtr(varEmailEingabe) = 0 Then Exit Sub 'es wurde abbrechen angeklickt

    If varEmailEingabe = "" Then

      eMailOK = False 'Leere Eingabe kann keine eMail sein

    Else

      eMailOK = IsValidEMail(varEmailEingabe)

    End If

    If Not eMailOK Then

      MsgBox "Bitte wiederholen Sie Ihre Eingabe.", vbInformation, "Ungültige eMail-Addy"

    End If

  Loop Until eMailOK



  MsgBox "Die Adresse" & vbCrLf & varEmailEingabe & vbCrLf & "ist ok."

  ' ... weiter mit Deinem Code ...





Code eingefügt mit Syntaxhighlighter 4.0




scotty

I´m an admin. If you see me laughing, you should better have a backup.
Einen Fehler machen und ihn nicht korrigieren - das erst heisst wirklich einen Fehler machen.
Konfuzius


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: