Discussion :

[warubi]

Bonjour a tous ! Je suis debutant en vb (2005) et je souhaiterais envoyer
un mail tres simplement mais le probleme c'est que je ne sais pas comment faire
Pouvez-vous me montrer un exemple S.V.P. ?

[TheBlackReverand]

http://faqvbnet.developpez.com/index...hercher=e+mail

[warubi]

Lorsque je compile, j'ai les messages d'erreurs suivants
Erreur 1 Type 'MailMessage' non défini.
Erreur 2 Type 'MailAttachment' non défini.
Erreur 3 Le nom 'SmtpMail' n'est pas déclaré.
Erreur 4 Le nom 'SmtpMail' n'est pas déclaré.
Desole mon message va peut etre vous paraitre bete mais j'ai commencé hier
a etudier ce langage

[Kiboumz]

Salut,

Il te manque des "imports" de namespace.

Sois tu fais en haut complètement : imports Net.Mail

ou quand tu déclares par exemple une adresse e-mail tu fais :
Dim email As Net.Mail.MailMessage

Voilà!

a+

[warubi]

Ca ne marche pas lorsque je fais ce que tu m'a dit avec Imports Net.Mail
j'ai toujours les memes messages d'erreurs et un avertissent :
Avertissement 1 L'espace de noms ou le type spécifié dans les Imports 'Net.Mail' ne contient aucun membre public ou est introuvable. Vérifiez que l'espace de noms ou le type est défini et qu'il contient au moins un membre public. Vérifiez que le nom de l'élément importé n'utilise pas d'autres alias.
Pouvez vous m'aider ?

[Kiboumz]

Salut,

En fait, ce serait plutôt comme ceci :

imports System.Net.Mail

a+

[warubi]

Je sais que je vous embete mais meme avec vos reponses j'ai toujours les messages d'erreurs plus :
Erreur 1 Une valeur de type 'String' ne peut pas être convertie en 'System.Net.Mail.MailAddress'.
Erreur 2 La propriété 'To' est 'ReadOnly'.
Erreur 3 La propriété 'CC' est 'ReadOnly'.
Erreur 4 Type 'MailAttachment' non défini.
Erreur 5 Le nom 'SmtpMail' n'est pas déclaré.
Erreur 6 Le nom 'SmtpMail' n'est pas déclaré.

[Kiboumz]

Salut,

En fait, ce serait beaucoup mieux si tu montrais également le code problématique avec les erreurs, sinon on peut pas vraiment aider!

a+

[warubi]

Voici le code en question

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
 
Imports System.Net.Mail
Public Class EnvoyerEmail
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim msg As MailMessage = New MailMessage
msg.From = "expediteur@free.f"
msg.To = "atoi@free.fr;alui@free.fr"
msg.CC = "encoreatoi@free.fr"
msg.Body = "Bonjour" & Convert.ToChar(10) & "" + "Ceci est le contenu du mail" & Convert.ToChar(10) & "" + "A bientôt"
msg.Attachments.Add(New MailAttachment("c:\fichierjoint.txt", MailEncoding.UUEncode))
SmtpMail.SmtpServer = "smtp.nerim.fr"
SmtpMail.Send(msg)
    End Sub
End Class

[Kiboumz]

Salut,

En gros, ça devrait être quelquechose qui ressemble à ceci :

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
 
Imports System.Net.Mail
 
Public Class EnvoyerEmail
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim msg As MailMessage = New MailMessage
        Dim smtp As SmtpClient = New SmtpClient
        msg.From = New MailAddress("expediteur@free.f")
 
        msg.To.Add("atoi@free.fr;alui@free.fr")
        msg.CC.Add("encoreatoi@free.fr")
        msg.Body = "Bonjour" & Convert.ToChar(10) & "" + "Ceci est le contenu du mail" & Convert.ToChar(10) & "" + "A bientôt"
        msg.Attachments.Add(New Net.Mail.Attachment("c:\fichierjoint.txt"))
 
        smtp.Host = "smtp.nerim.fr"
        smtp.Send(msg)
    End Sub
End Class

a+

[warubi]

Ca marche mais maintenant j'aimerais savoir comment peut-on verifier qu'une adresse e-mail est valide. Pouvez-vous m'aider ?