[VB.Net]envois de email SMTP

[Ouija33]

Bonjour à tous,

Non pas de question aujourd'hui mais des réponse, je cherchais à envoyer un message simple via vb.net et voila

Prenez note que ca ne fonctionne pas avec .net CF mais bien avec le .net normal (alors coté mobile on oubli ca...tk pour le 2.0).

il faut avant tout le Imports System.Net.Mail

Code vb :

1
2
3
4
5
Dim message As String = "message a envoyer par mail"
Dim email As New MailMessage("mailde@blabla.ca","maila@blabla.ca" , "titre", message)
            Dim postier As New SmtpClient
            postier.Host = "serveur a qui envoyer (serveur.domaine.local.ca oubien ip)"
            postier.Send(email)

Comme vous pouvez le voir...simple comme bonjour
et sur ce...bonjour

[Louis-Guillaume Morand]

http://faqvbnet.developpez.com/?page=netw#netw_sendmail

bon on a déjà un article complet qui parle de l'envoi de mail en 2.0 mais c'est vrai que la QR n'a pas été mise à jour.

merci

[tomlev]

Envoyé par FAQ

Il faut ajouter à son projet la référence System.Web.Mail (qui aurait dû s'appeler System.Net.Mail à mon avis).

Il aurait tellement dû s'appeler comme ça que c'est maintenant le cas
D'ailleurs le namespace System.Web.Mail est obsolète d'après la doc...

[planeurbret]

J'a essayé la fonction qu'il y a en FAQ, mais cela ne fonctionne pas. L'appli reste bloquée sur la page d'envoi de mail... La page dans laquelle j'appelle ma focntion mail.

Voila ce que j'ai noté :

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

Je récupère ensuite cette fonction dans les pages qui en ont besoin, mais cela ne marche pas (alors que j'ai bien rentré en paramètre toutes les options ....)

[hunteshiva]

Bonjour,
j'ai également galéré pour faire un envoi de mail. *ce matin*
Les sources sont erronées à mon gout

je te laisse le code qui va bien chez moi

Code :

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 Form1
 
    Private Sub btEnvoyer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btEnvoyer_V1.Click
        'Dim email As New System.Web
 
        Dim email As New MailMessage("toto@toto.net", "Adresse_Mail_Valide", "Sujet", "Body")
        Dim smtpMail As New System.Net.Mail.SmtpClient("smtp.wanadoo.fr", 25) 'vérifier avec "telnet smtp.wanadoo.fr 25" dans cmd.exe
 
        Try
            smtpMail.Send(email)
        Catch ex As Exception
            MsgBox("erreur lors de l'envoie du mail")
            MsgBox(ex.ToString)
        End Try
    End Sub
 
End Class

System.Web.Mail est obsolète d'après la doc...

Entièrement d'accord, j'ai cherché de ce coté aussi.
J'ai pas réussi à faire un mail avec System.Web.Mail *sous VS2010*
A vrai dire elle existe pas dans VS2010, je suis passé par System.Net.Mail

[jacko842]

Ok ici j'ai réussi a envoyer un mail via ce code a partir d'un serveur de mail en interne .

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
 
 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim objMessage As System.Net.Mail.MailMessage
        Dim objAdrExp As System.Net.Mail.MailAddress
        Dim objAdrRec As System.Net.Mail.MailAddress
        Dim objSMTPClient As System.Net.Mail.SmtpClient
 
 
        Try
            objMessage = New System.Net.Mail.MailMessage()
 
            objAdrExp = New System.Net.Mail.MailAddress("Adresse mail")
 
            objAdrRec = New System.Net.Mail.MailAddress("Adresse mail")
 
            ' ADRESSE MAIL DE L EXPEDITEUR
            objMessage.From = objAdrExp
 
            ' ADRESSE MAIL DU DESTINATAIRE
            objMessage.To.Add(objAdrRec)
 
            objMessage.Subject = "test christophe"
            objMessage.IsBodyHtml = False
 
            objSMTPClient = New System.Net.Mail.SmtpClient("mailsrv2.local", 25)
            objSMTPClient.EnableSsl = False
            objSMTPClient.Credentials = New NetworkCredential("Adresse mail", "******")
            objSMTPClient.Send(objMessage)
            MsgBox("Ok")
 
        Catch ex As Exception
            MsgBox("Exception : " & ex.Message)
        End Try
    End Sub

[jacko842]

Je rencontre toujours des problèmes quand je veux envoyer un mail avec un fichier attaché

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
44
45
46
 
 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim objMessage As System.Net.Mail.MailMessage
        Dim objAdrExp As System.Net.Mail.MailAddress
        Dim objAdrRec As System.Net.Mail.MailAddress
        Dim objSMTPClient As System.Net.Mail.SmtpClient
 
        Dim file As String = "C:\test.txt"
        ' Create  the file attachment for this e-mail message.
        Dim data As New Attachment(file, MediaTypeNames.Application.Octet)
 
        Try
            objMessage = New System.Net.Mail.MailMessage()
 
            objAdrExp = New System.Net.Mail.MailAddress("adresse mail")
 
            objAdrRec = New System.Net.Mail.MailAddress("adresse mail")
 
            ' ADRESSE MAIL DE L EXPEDITEUR
            objMessage.From = objAdrExp
 
            ' ADRESSE MAIL DU DESTINATAIRE
            objMessage.To.Add(objAdrRec)
 
            objMessage.Subject = "test christophe"
            objMessage.IsBodyHtml = False
            '*******************************************************************************************
            ' Add time stamp information for the file.
            Dim disposition As ContentDisposition = data.ContentDisposition
            disposition.CreationDate = IO.File.GetCreationTime(file)
            disposition.ModificationDate = IO.File.GetLastWriteTime(file)
            disposition.ReadDate = IO.File.GetLastAccessTime(file)
            ' Add the file attachment to this e-mail message.
            objMessage.Attachments.Add(data)
            '*********************************************************************************************
            objSMTPClient = New System.Net.Mail.SmtpClient("mailsrv2.local", 25)
            objSMTPClient.EnableSsl = False
            objSMTPClient.Credentials = New NetworkCredential("adresse mail", "****")
            objSMTPClient.Send(objMessage)
            MsgBox("Ok")
 
        Catch ex As Exception
            MsgBox("Exception : " & ex.Message)
        End Try
    End Sub

D'avance merci

[jacko842]

Voila ça fonctionne:

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
 
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim objMessage As System.Net.Mail.MailMessage
        Dim objAdrExp As System.Net.Mail.MailAddress
        Dim objAdrRec As System.Net.Mail.MailAddress
        Dim objSMTPClient As System.Net.Mail.SmtpClient
 
        Dim file As String = "C:\test.txt"
 
 
        Try
            objMessage = New System.Net.Mail.MailMessage()
 
            objAdrExp = New System.Net.Mail.MailAddress("adresse_mail")
 
            objAdrRec = New System.Net.Mail.MailAddress("adresse_mail")
 
            ' ADRESSE MAIL DE L EXPEDITEUR
            objMessage.From = objAdrExp
 
            ' ADRESSE MAIL DU DESTINATAIRE
            objMessage.To.Add(objAdrRec)
 
            objMessage.Subject = "test christophe"
            objMessage.IsBodyHtml = True
            objMessage.Body = "test"
 
            '*******************************************************************************************
            objMessage.Attachments.Add(New Mail.Attachment(file))
            '*********************************************************************************************
            objSMTPClient = New System.Net.Mail.SmtpClient("mailsrv1.local", 25)
            objSMTPClient.EnableSsl = False
            objSMTPClient.Credentials = New NetworkCredential("adresse_mail", "*****")
            objSMTPClient.Send(objMessage)
            MsgBox("Ok")
 
        Catch ex As Exception
            MsgBox("Exception : " & ex.Message)
        End Try
    End Sub