Confirmation mail [Résolu]

Signaler
Messages postés
65
Date d'inscription
lundi 21 mai 2007
Statut
Membre
Dernière intervention
7 juillet 2009
-
Messages postés
65
Date d'inscription
lundi 21 mai 2007
Statut
Membre
Dernière intervention
7 juillet 2009
-
bonjour
j'ai un bout de code qui me permet d'envoyer automatiquement un mail juste en saissisant l'email d'origine et de destination.
J'aimerai juste avoir une confirmation lorsque le mail a été envoyé.
Voici le code et merci

<

script
runat="server">

Sub BT_Send_Click(
ByVal sender
As
Object,
ByVal e
As EventArgs)

Dim sAdOrigine
As
String = TextBox1.Text

Dim sAdDestination
As
String = TextBox2.Text

Dim sSmtp
As
String =
"192.168.0.201"

If sAdOrigine <> System.String.Empty
And sAdDestination <> System.String.Empty
And sSmtp <> System.String.Empty
Then

Dim oMessage
As
New System.Net.Mail.MailMessage(sAdOrigine, sAdDestination)
' Dim oEncodage As System.Text.Encoding System.Text.Encoding.GetEncoding("iso-8859-1")oMessage.BodyEncoding System.Text.Encoding.GetEncoding(

"ISO-8859-1")oMessage.SubjectEncoding = System.Text.Encoding.GetEncoding(
"ISO-8859-1")oMessage.Body "resultat"oMessage.Subject

"rejet "

Dim oSmtpMail
As
New System.Net.Mail.SmtpClient(sSmtp)

 oSmtpMail.Send(oMessage)

Return

End
If

End
Sub

4 réponses

Messages postés
1642
Date d'inscription
samedi 6 novembre 2004
Statut
Modérateur
Dernière intervention
28 avril 2011
3
Dans ce cas, un Try Catch fontionnera :

<hr />
Dim MailEnvoye As Boolean = True
Try
' l'envoie ...
Catch
MailEnvoye = False
End Try

If MailEnvoye Then
Label1.Text = "Mail envoyé"
Else
Label1.Text = "Erreur lors de l'envoie du mail"
End If
<hr />
A++

<hr width="100%" size="2" />Nurgle (Antoine) - MSP
Messages postés
1642
Date d'inscription
samedi 6 novembre 2004
Statut
Modérateur
Dernière intervention
28 avril 2011
3
Salut,

Si j'ai bien compris ta fonction fonctionne et ce que tu veux c'est avoir une confirmation dans ta page indiquant que ça a marché ?
Dans ce cas ajoute un simple Label à ta page, et une fois le message envoyé, tu écris dedans, genre :
Label1.Text = "Le message a bien été envoyé."

Ou alors, j'ai pas compris la question ...

<hr width="100%" size="2" />Nurgle (Antoine) - MSP
Messages postés
65
Date d'inscription
lundi 21 mai 2007
Statut
Membre
Dernière intervention
7 juillet 2009

bonjour ,

le problème avec le label c'est qu'il s'affiche tout simplement sans avoir vérifier si le mail a été correctement envoyé.Et impossible de faire un oSmtpMail.Send(oMessage)=true puisqu'il ne prend pas de valeur de retour et avec un try/catch  je me perd un peu pour afficher un message de confirmation
Messages postés
65
Date d'inscription
lundi 21 mai 2007
Statut
Membre
Dernière intervention
7 juillet 2009

merci Nurgle

A++