Détérminer contenu d'un textbox sous forme d' e-mail

Question

Salut ....je veux un code vb 2005 qui me permet de déterminer le contenu d un textbox et de lui rendre sous forme d 'email...
ça veut dire  le contenu doit obligatoirement être:     [mailto:.text1@text2point.text3 text1@text2point.text3]  ...je ne sais pas dans quel evenement j vais utilisé le code..... je pense dans un boutton c est mieux........et dans le cas où le contenu ne sera psa un e-mail il doit afficher un error soit provider ou msgbox...


et merci pour vous......

cs_andres06 · Answer

Pardon cest pas le bon emplacement pour ce théme..mais je ne ais pas comment supprimer le théme....encore dsl

ptit_tof57 · Answer

Salut voici un extrait du webcast d'Adeline Vantroy sur la prise en main de VB2005 concernant un repertoire de contacts.

Cette procédure utilise les expressions régulières ça pourra peut être te mettre sur la piste.

Private Sub MailTextBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MailTextBox.LostFocus

        Dim regExpMail As System.Text.RegularExpressions.Regex = _
         New System.Text.RegularExpressions.Regex("\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*")

        If Not regExpMail.IsMatch(MailTextBox.Text) Then
            ErrorProvider1.SetError(MailTextBox, "Format de mail incorrect")
        Else
            ErrorProvider1.Clear()
        End If

    End Sub, ----
(Coloration syntaxique automatique par Kenji)

jmfmarques · Answer

Bonjour,
l'opérateur Like existe en VB.Net (je suis allé le vérifier sur le Web) comme en VB6 et sa puissance est très largement indiquée pour faire de tels comparaisons "d'harmonie".
Utilise donc tout simplement cet opérateur...
Ainsi

  Dim est_ce_bon As Boolean
  titi = "[mailto:marques@coucou.fr marques@coucou.fr]" 'affichera True
  est_ce_bon = titi Like "*@*.*"
  MsgBox est_ce_bon
  titi = "[mailto:marques@coucoufr marques@coucoufr]" ' manque le . et affichera False
  est_ce_bon = titi Like "*@*.*"
  MsgBox est_ce_bon
  titi = "marquescoucou.fr" ' manque @ et affichera False
  est_ce_bon = titi Like "*@*.*"
  MsgBox est_ce_bon

Et c'est ainsi très simple.
Si tu es astucieux, va plus loin encore en combinant avec l'utilisation de IIf (existe également sous VB.Net)

jmfmarques · Answer

Ah oui (VB.Net)

En remplaçant donc les msgox est_ce_bon
par
MessageBox.Show
(est_ce_bon
)

sacré VB.Net (je vais finir par le connaître bien que je n'ai absolument pas la moindre intention de l'utiliser un jour ...)

Détérminer contenu d'un textbox sous forme d' e-mail

4 réponses

Votre réponse

Discussions similaires