Envoi de mail

Version imprimable

Envoi de mail

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:

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)

09/12/2011, 23h37
hunteshiva

Bonsoir,

peut tu être plus explicite dans ton exemple

Citation:

Impossible que le champ to soit vide

c'est ton erreur?

sur cette ligne?

Code:

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*

Citation:

[CVO] - Inscription sur l'espace membre"

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

Voila le vrai code :
Code:

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:

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 !

10/12/2011, 11h20
planeurbret
En fait, j'ai réfléchi toute la nuit a la question et ce matin, création de :
Code:

1 2 3 Dim mail As String mail = t_mail.text
Pour ensuite insérer comme ceci ...

Code:

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

Merci pour vos réponse quand meme !!

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:

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:

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

salut, voici mon code pour envoyer un mail via FTP

Code:

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

23/01/2012, 13h29
planeurbret

Et cela fonctionne bien par cette méthode ? Avec tous les hébergeurs ?

Oui, y pas de raisons.
Tu utilise le protocole smtp, peut importe le FAI.

Je te laisse un exemple du code que j'utilise.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
    ' Creation du mail
    Dim Expediteur As String = "Expediteur@gmail.com"
    Dim Body As String = "Ici le Corps du message"
 
    ' Envoi du mail
    Try
        Dim email As New MailMessage(Expediteur, "Destinataire@gmail.com", "Intitulé du mail", Body)
        Dim smtpMail As New System.Net.Mail.SmtpClient(smtp.wanadoo.fr, 25) 'vérifier avec "telnet smtp.wanadoo.fr 25" dans cmd.exe
        smtpMail.Send(email)
    Catch ex As Exception
        MsgBox("erreur lors de l'envoie de l'email au destinataire", MsgBoxStyle.Critical)
    End Try

Citation:
Envoyé par hunteshiva
Oui, y pas de raisons.
Tu utilise le protocole smtp, peut importe le FAI.

Je te laisse un exemple du code que j'utilise.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 ' Creation du mail Dim Expediteur As String = "Expediteur@gmail.com" Dim Body As String = "Ici le Corps du message" ' Envoi du mail Try Dim email As New MailMessage(Expediteur, "Destinataire@gmail.com", "Intitulé du mail", Body) Dim smtpMail As New System.Net.Mail.SmtpClient(smtp.wanadoo.fr, 25) 'vérifier avec "telnet smtp.wanadoo.fr 25" dans cmd.exe smtpMail.Send(email) Catch ex As Exception MsgBox("erreur lors de l'envoie de l'email au destinataire", MsgBoxStyle.Critical) End Try
Cela ne fonctionne pas, en fait je met cela dans une fonction parce que j'envoie des mails sur plusieurs pages. Mais en fait, il rentre bien dans la fonction, mais il me marque a chaque fois une erreur ...
Je ne vois pas pourquoi, j'ai paramétré comme vous, sauf que j'ai changé en fonction de mon smtp (sfr donc avec le port 587, celui que j'utilise pour mes mails aussi ...
Avez vous une solution ???

24/01/2012, 16h08
hunteshiva

as tu vérifié ton serveur smtp ??
il y a une ligne dans le code que je t'ai donné qui en parlé

Code:

'vérifier avec "telnet smtp.wanadoo.fr 25" dans cmd.exe
24/01/2012, 16h32
planeurbret

en fait je l'ai testé, mais le soucis, c'est que le réseau la ou je travaille, bloque les ports, donc cela n'a pas marché, alors je pense que c'est du a sa, mais quand j'ai essayé chez moi (sans faire le telnet dans le cmd.exe) il prenais tout de suite l'erreur ...
24/01/2012, 16h49
hunteshiva

Assure toi chez toi que ton serveur smtp fonctionne,
après tu pourra essayer d'envoyer des mails.

Pas de serveur, pas de mails. :mrgreen:

Petit oubli,
il faut importer la librairie

Code:

Imports System.Net.Mail
24/01/2012, 17h03
planeurbret

je vais essayer ce soir, et je rapporte une réponse au plus vite

EDIT : la commande TELNET ne fonctionne pas sous W7. Alors, du coup, je ne peux pas tester ....