1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Public Sub CreateMessageWithAttachment(ByVal server As String, ByVal file As String, ByVal [From] As String, ByVal [To] As String, ByVal Texte As String, Optional ByVal CC As String = "", Optional ByVal Sujet As String = "")
Try
Dim message As New MailMessage([From], [To], Sujet, Texte)
Dim data As New Attachment(file, Net.Mime.MediaTypeNames.Application.Octet)
Dim disposition As Net.Mime.ContentDisposition = data.ContentDisposition
With disposition
.CreationDate = System.IO.File.GetCreationTime(file)
.ModificationDate = System.IO.File.GetLastWriteTime(file)
.ReadDate = System.IO.File.GetLastAccessTime(file)
End With
message.Attachments.Add(data)
Dim client As New SmtpClient(server)
client.Credentials = Net.CredentialCache.DefaultNetworkCredentials
client.Send(message)
'MessageBox.Show("Merci de votre participation. Email envoyé", "Informations", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As SmtpException
MsgBox(ex.Message)
End Try
End Sub |
Partager