Tipp 0022 E-Mail-Adresse prüfen und E-Mail anzeigen
Autor/Einsender:
Datum:
  Michael Werner
29.10.2003
Entwicklungsumgebung:   VB.Net 2002
Framework:   1.0
Eine E-Mail-Adresse wird mit Hilfe der sogenannten RegularExpressions über die Klasse Regex im Namespace System.Text.RegularExpressions auf das richtige Format geprüft und dann im Standard-E-Mail-Programm angezeigt. Im E-Mail-Text werden die Umbruchzeichen durch "%0A" ersetzt, damit diese auch im E-Mail-Programm richtig angezeigt werden.
Dieser Tipp entspricht der Kombination der beiden VB-Tipps E-Mail-Adressen auf Gültigkeit prüfen und E-Mail im Standard-Mail-Programm anzeigen.
 
Imports System.Text.RegularExpressions
Public Class Form1
  Inherits System.Windows.Forms.Form
Vom Windows Form Designer generierter Code
  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click

    Dim sLine As String
    Dim i As Integer

    If CheckEMail(TextBox1.Text) = False Then
      MsgBox("Bitte eine gültige EMail-Adresse eingeben!", _
            MsgBoxStyle.Exclamation)
      Exit Sub
    End If

    sLine = Replace(TextBox3.Text, vbNewLine, "%0A")

    Process.Start("mailto:" & TextBox1.Text & _
                "?subject=" & TextBox2.Text & _
                "&body=" & sLine)
  End Sub

  Private Function CheckEMail(ByVal mail As String) As Boolean
    Dim myRegex As Regex = New Regex( _
          "^[\w\.\-]+@([\w\-]+\.)*[\w\-]{2,63}\.[a-zA-Z]{2,4}$")

    If Not myRegex.IsMatch(TextBox1.Text) Then
      Return False
    Else
      Return True
    End If
  End Function

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
  End Sub
End Class
 
Links zum Thema
HTML-Tags filtern

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (6,2 kB) Downloads bisher: [ 1041 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 15. Januar 2012