Discussion :

[planeurbret]

Bonjour, je suis en train de créer une appli VB, et je souhaiterais sur une des fenetres envoyer un mail à l'adresse saisie.... Cependant, j'ai un problème, d'ou mon post. Je récupère les informations (le mail en l'occurence) afin de l'entrer dans le champ to. MAis la, soucis >>>> Impossible que le camps to soit vide .... Alors qu'il contient une adresse .... Quelqu'un a t il une idée ?
Voici mon code pour le mail.

Code :

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

1
2
3
4
5
6
 
Dim message As String = "MESSAGE"
Dim email As New MailMessage("webmasterbzh@sfr.fr", F_ajoutadh.T_mail.Text, [CVO] - Inscription sur l'espace membre", message)
        Dim postier As New SmtpClient
        postier.Host = "smtp.sfr.fr"
        postier.Send(email)

[hunteshiva]

Bonsoir,

peut tu être plus explicite dans ton exemple

Impossible que le champ to soit vide

c'est ton erreur?

sur cette ligne?

Code :

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

Dim email As New MailMessage("webmasterbzh@sfr.fr", F_ajoutadh.T_mail.Text, [CVO] - Inscription sur l'espace membre", message)

j'ai pas regardé de source sur internet pour ton mail,
mais la syntaxe me parait étrange. *surtout la*

[CVO] - Inscription sur l'espace membre"

[planeurbret]

Je m'excuse, j'ai oublié une " ...

Voila le vrai code :

Code :

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

1
2
3
4
5
6
 
Dim message As String = "MESSAGE"
Dim email As New MailMessage("webmasterbzh@sfr.fr", F_ajoutadh.T_mail.Text, "[CVO] - Inscription sur l'espace membre", message)
        Dim postier As New SmtpClient
        postier.Host = "smtp.sfr.fr"
        postier.Send(email)

Désolé de l'avoir très mal exprimé. Je vais essayé de l'exprimé un peu mieux. C'est donc sur cette ligne ci :

Code :

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

Dim email As New MailMessage("webmasterbzh@sfr.fr", F_ajoutadh.T_mail.Text, "[CVO] - Inscription sur l'espace membre", message)

Et plus précisément dans le champ "TO". Car quand je lance l'application (et que je valide l'envoie de mail), un message d'erreur apparait, et m'indique que ce champ ne peut être vide. Or ce champ n'est pas vide puisqu'il est rempli par l'email précédemment saisie (un formulaire d'inscription).
Je ne comprends pas trop mon erreur.
Avec toutes mes excuses pour mon francais négligé !
Cordialement !

[planeurbret]

En fait, j'ai réfléchi toute la nuit a la question et ce matin, création de :

Code :

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

1
2
3
 
Dim mail As String
mail = t_mail.text

Pour ensuite insérer comme ceci ...

Code :

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

Dim email As New MailMessage("webmasterbzh@sfr.fr", mail, "[CVO] - Inscription sur l'espace membre", message)

Merci pour vos réponse quand meme !!

[planeurbret]

en fait, j'ai voulu alléger visuellement mes pages, et cela ne fonctionne plus. J'ai en fait créé une focntion, mais cela ne fonctionne pas ... VOici mon code de la fonction :

Code :

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

1
2
3
4
5
6
7
 
Sub envoimail(ByVal mail As String, ByVal sujet As String, ByVal message As String)
        Dim email As New MailMessage("webmasterbzh@sfr.fr", mail, sujet, message)
        Dim postier As New SmtpClient
        postier.Host = "smtp.sfr.fr"
        postier.Send(email)
    End Sub

l'appel de la fonction :

Code :

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

1
2
3
4
5
 
email = "emailtest@test.fr"
sujet = "Sujet test"
            message = "message test"
            envoimail(email, message, sujet)

[jolona]

salut, voici mon code pour envoyer un mail via FTP

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Imports System.Net.Mail
 
Public Class Form1
 
    Private Sub test_mail()
        MailSend("EXPEDITEUR@free.fr", "DESTINATAIRE@free.fr", "SUJET", "CONTENU", "PIECE JOINTE")
    End Sub
 
 
    Private Sub MailSend(ByVal Exp As String, ByVal Dest As String, ByVal Sujet As String, ByVal Contenu As String,
                            ByVal Attachement As String)
 
        Dim Email As New System.Net.Mail.MailMessage(Exp, Dest)
 
        Email.Subject = Sujet
        Email.Body = Contenu
 
        If Attachement <> "" Then
            Dim data = New Net.Mail.Attachment(Attachement)
            Email.Attachments.Add(data)
        End If
 
        Dim bccAdresse = New System.Net.Mail.MailAddress("bcc.adresse@free.fr")
        Email.Bcc.Add(bccAdresse)
 
 
        Email.Priority = MailPriority.Normal
 
        Email.IsBodyHtml = True
 
        Dim mailClient As New System.Net.Mail.SmtpClient
 
        Dim basicAuthentificateurInfo As New System.Net.NetworkCredential("user", "mot de passe") 'mettre votre Nom d'utilisateur et mt de passe
 
        mailClient.Host = "smtp.free.fr" 'mettre votre serveur SMTP
        mailClient.UseDefaultCredentials = False
        mailClient.Credentials = basicAuthentificateurInfo
        mailClient.Send(Email)
    End Sub
 
 
End Class