Discussion :

[Attila54]

Bonjour,
J'essaye d'envoyer, via mon appli, un email dont l'adresse du destinataire serait le contenu d'une textbox (adresse email destinataire recupérée lors du traitement)

Pour le moment, j'ai fait un petit code tout simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Imports System.Net
Imports System.Net.Mail
Public Class Form1
    Private Sub send()
        Dim client As New System.Net.Mail.SmtpClient
        Dim message As New System.Net.Mail.MailMessage
        client.Credentials = New System.Net.NetworkCredential("mon_adresse_email", "mon_mot_de_passe")
        Try
            client.Port = 25 'définition du port 
            client.Host = "smtp.live.com" 'définition du serveur smtp
            client.EnableSsl = True
            message.From = New System.Net.Mail.MailAddress("mon_adresse_email")
            message.To.Add("email_destinataire")
 
            message.Subject = "traitement"
            message.Body = "ceci est un test"
 
            client.Send(message) 'envoi du mail
        Catch ex As Exception
            End Try
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        send()
    End Sub
End Class

bon, ca fonctionne avec une adresse email destinateire fixe mais j'essaye sans trop de succés a paramètrer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

message.To.Add("email_destinataire")

de manière a ce que email_destinataire = contenu_de_textboxemail

pourrais je avoir une piste ?

Merci beaucoup

[BenoitM]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Imports System.Net
Imports System.Net.Mail
Public Class Form1
    Private Sub send(destinataire As String)
        Dim client As New System.Net.Mail.SmtpClient
        Dim message As New System.Net.Mail.MailMessage
        client.Credentials = New System.Net.NetworkCredential("mon_adresse_email", "mon_mot_de_passe")
        Try
            client.Port = 25 'définition du port 
            client.Host = "smtp.live.com" 'définition du serveur smtp
            client.EnableSsl = True
            message.From = New System.Net.Mail.MailAddress("mon_adresse_email")
            message.To.Add(New MailAdress(destinataire))
 
            message.Subject = "traitement"
            message.Body = "ceci est un test"
 
            client.Send(message) 'envoi du mail
        Catch ex As Exception
            End Try
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        send(tbDestinaraire.Text)
    End Sub
End Class

[BenoitM]

tu peux aussi remplacer message.To.Add(New MailAdress(destinataire)) par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each dest in destinataire.Split(";")
 message.To.Add(dest)
Next

[Attila54]

ptdrrr du premier coup ca marche .....
je m'améliore et toi tu persiste dans la haute voltige
merci bien pour l'aide

[BenoitM]

C'était mon heure de bonté la prochaine fois, je te fait chercher

[Attila54]

merci pur l'heure de bonté, j'ai toutefois cherché avant de poster, tu remarqueras dailleurs qu'à chaque fois, j'essae de faire quelque chose avant de poser la question qui tue ..... c'est un mimimum ......
Par exemple la, je charche maintenant a incorporer le contenu d'un textbox dans le message.body, alors je cherche la bonne syntaxe ....

[BenoitM]

je dirai que c'est la même que pour le destinataire :p

Part contre il faudra surement mettre ta TextBox en Multiline (propriété dans le designer)

[Attila54]

c'est trouvé et fait et ca fonctionne parfaitement. Je n'ai pas ce problème d'adressage pour la destination du mail car je recupère l'email via un formulaire web rempli par le destinataire lui même et contre vérifié par l'envoi du formulaire d'inscription

la textbox est effectivement en multiline