Bouts de codes de Landry SAÏZONOU - Webmaster

DotNet 2.0 Une classe pour l'envoi de mail (vb.net)

Une class contenant une fonction de validation d'adresse mail, et trois classes d'envoi de mail avec ou sans pièce jointe).

1. Public Class MAIL
2.         ''' <summary>
3.         ''' Vérifie la validité de l'adresse mail
4.         ''' </summary>
5.         ''' <param name="str_mail">adresse email à valider </param>
6.         ''' <returns>true si valide </returns>
8.         Public Shared Function IsValideMail(ByVal str_mail As String) As Boolean
9.             If (str_mail <> "") Then
10.                 Dim RegexpEmail As New Regex("\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*")
11.                 Dim bEmailValid As Boolean = RegexpEmail.IsMatch(str_mail)
12.                 Return bEmailValid
13.             Else
14.                 Return False
15.             End If
16.         End Function
17.  
18.         ''' <summary>
19.         ''' Envoi un mail sans fichier joint
20.         ''' </summary>
21.         ''' <param name="destinataire">destinataire</param>
22.         ''' <param name="Expediteur">Expéditeur</param>
23.         ''' <param name="sujet">Sujet</param>
24.         ''' <param name="body">Corp du message</param>
25.         ''' <returns>OK si tout va bien</returns>
26.         ''' <remarks></remarks>
27.         Public Overloads Shared Function EnvoiMail(ByVal destinataire As String, ByVal Expediteur As String, ByVal sujet As String, ByVal body As String) As String
28.             Dim resultat As String = "OK"
29.             Try
30.                 Dim MessageMail As New Net.Mail.MailMessage
31.  
32.                 Dim mailAddressEXP As New Net.Mail.MailAddress(Expediteur)
33.                 Dim mailAddressDEST As New Net.Mail.MailAddress(destinataire)
34.  
35.                 Dim SMPTserver_name As String = "ServerSMTP"
36.                 MessageMail.From = mailAddressEXP
37.                 MessageMail.To.Insert(0, mailAddressDEST)
39.                 MessageMail.Subject = sujet
40.                 MessageMail.Body = body
42.                 Dim smtpClient1 As New Net.Mail.SmtpClient(SMPTserver_name)
43.                 smtpClient1.Send(MessageMail)
44.             Catch ex As Exception
45.                 resultat = ex.Message
46.             End Try
47.             Return resultat
48.         End Function
49.         ''' <summary>
50.         ''' Envoi un mail avec fichier (stream) joint
51.         ''' </summary>
52.         ''' <remarks>Aucune remarque</remarks>
53.         Public Overloads Shared Function EnvoiMail(ByVal destinataire As String, ByVal Expediteur As String, ByVal sujet As String, ByVal body As String, ByVal fichier As Stream, ByVal fichierNom As String) As String
54.             Dim resultat As String = "OK"
55.             Dim SMPTserver_name As String = "ServerSMTP"
56.             Try
57.                 Dim MessageMail As New Net.Mail.MailMessage
58.  
59.                 Dim mailAddressEXP As New Net.Mail.MailAddress(Expediteur)
60.                 Dim mailAddressDEST As New Net.Mail.MailAddress(destinataire)
61.  
62.                 MessageMail.From = mailAddressEXP
63.                 MessageMail.To.Insert(0, mailAddressDEST)
64.                 MessageMail.Subject = sujet
65.                 MessageMail.Body = body
66.  
67.  
68.  
69.                 Dim File1 As New Net.Mail.Attachment(fichier, fichierNom)
70.  
71.  
72.                 MessageMail.Attachments.Add(File1)
73.                 Dim smtpClient1 As New Net.Mail.SmtpClient(SMPTserver_name)
74.                 smtpClient1.Send(MessageMail)
75.             Catch ex As Exception
76.                 resultat = ex.Message
77.             End Try
78.             Return resultat
79.         End Function
80.         ''' <summary>
81.         ''' Envoi un mail avec fichier (chemin serveur) joint
82.         ''' </summary>
83.         ''' <remarks>Aucune remarque</remarks>
84.         Public Overloads Shared Function EnvoiMail(ByVal destinataire As String, ByVal Expediteur As String, ByVal sujet As String, ByVal body As String, ByVal fichier As String) As String
85.             Dim resultat As String = "OK"
86.             Dim SMPTserver_name As String = "ServerSMTP"
87.             Dim MessageMail As New Net.Mail.MailMessage
88.  
89.             Dim mailAddressEXP As New Net.Mail.MailAddress(Expediteur)
90.             Dim mailAddressDEST As New Net.Mail.MailAddress(destinataire)
91.  
92.             MessageMail.From = mailAddressEXP
93.             MessageMail.To.Insert(0, mailAddressDEST)
94.             MessageMail.Subject = sujet
95.             MessageMail.Body = body
96.  
97.             Dim File1 As New Net.Mail.Attachment(fichier)
98.  
99.             MessageMail.Attachments.Add(File1)
100.  
101.             Try
102.                 Dim smtpClient1 As New Net.Mail.SmtpClient(SMPTserver_name)
103.                 smtpClient1.Send(MessageMail)
104.             Catch ex As Exception
105.                 resultat = ex.Message
106.             End Try
107.             Return resultat
108.         End Function
109.     End Class