VBA Envoyer mail avec Pièces Jointes

Bonsoir, j'ai créé mon petit logiciel sous Visual Basic pour envoyer un E-Mail.

Voici mon code :

--------------------------------------------------------------------------------------------------------------------

Imports System.Web
Imports System.IO
Imports System.Net.Mail
Public Class Form1


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
smtpServer.Port = 587
smtpServer.Host = ComboBox1.SelectedItem
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(TextBox1.Text)
mail.To.Add(TextBox3.Text)
mail.Subject = TextBox4.Text
mail.Body = TextBox5.Text
smtpServer.Send(mail)
End Sub
End Class

--------------------------------------------------------------------------------------------------------------------

Je voudrais juste rajouter une fonction pour pouvoir envoyer des pieces jointes (et pourquoi pas enregistrer des contacts).

Merci beaucoup à ceux qui répondront.