[VB.Net]envois de email SMTP

Version imprimable

Bonjour à tous,

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

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:

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:yaisse2:
et sur ce...bonjour :yaisse2:

16/05/2008, 08h35
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
16/05/2008, 09h23
tomlev

Citation:

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...

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 ....)

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
Citation:

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 :ccool:

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

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

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