fichier à un emplacement particulier par mail

Private Sub EmissionMailOutlook()
' déclaration des variables
Dim appOutlook As Outlook.Application
Dim message As Outlook.MailItem
Dim myRecipient As Object
Dim email As String

'Crée une session Microsoft Outlook
Set appOutlook = CreateObject("outlook.application")

'Crée un nouveau message
Set message = appOutlook.CreateItem(olMailItem)

' initialisation de variables
email = "xx.xxxxx@xxx.com"

'Titre, texte, destinataires, etc ... et envoi.
With message
.Subject = "Sujet du message"
.Body = "Bonjour," & vbCr & vbCr & _
"Bla Bla Bla ....... " & vbCr & vbCr & _
"Cordialement," & vbCr & vbCr & _
"Signature."
.Recipients.Add (email)
.Attachments.Add "C:\Documents and Settings\Nicolas BERTIN\Mes documents\camion porcelanosa.pdf "
.Send
End With
End Sub