cs_alicia26
Messages postés65Date d'inscriptionlundi 21 mai 2007StatutMembreDernière intervention 7 juillet 2009
-
4 juin 2007 à 12:15
cs_alicia26
Messages postés65Date d'inscriptionlundi 21 mai 2007StatutMembreDernière intervention 7 juillet 2009
-
5 juin 2007 à 12:30
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(
cs_Nurgle
Messages postés1642Date d'inscriptionsamedi 6 novembre 2004StatutMembreDernière intervention28 avril 20114 4 juin 2007 à 22:33
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é."
cs_alicia26
Messages postés65Date d'inscriptionlundi 21 mai 2007StatutMembreDernière intervention 7 juillet 2009 5 juin 2007 à 09:48
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