bonjour a tous et mes meilleurs voeux pour 2017

j'ai un petit soucis, j'aimerais
soit inclure la signature outlook dans le mail à envoyé
soit créer manuellement dans le code la signature

voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
 
Private Sub facture_Click()
Dim mon_fichier As String
'DoCmd.Close acReport, "Facture_2"
'MsgBox Me.lienfacture
Call mail_pdf_facture(lienfacture) 
End Sub
 
 
    Sub mail_pdf_facture(fichier$)
    Dim OutApp As Object
    Dim OutMail As Object
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = Me.email.Value
'        .CC = "Vous@mail.com"
'        .BCC = "unautre@mail.fr"
        .Subject = "Document Facture de Locastand"
        .Body = "Bonjour" & vbCrLf & vbCrLf & "Voici votre " & Texte149
        .Attachments.Add fichier 'le fichier a envoyé en PDF est mis dans la parenthèse lors de l'appel de la fonction
        .Send
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
 
    Select Case MsgBox("Votre mail Facture est envoyé ", vbOKCancel, "Envoi de la facture ")
    Case vbOK
        Me.dateenvoifacture.Value = Now
    Case vbCancel
        'procédure si click sur Annuler
End Select
End Sub
quel est la meilleur solution et comment faire pour chacune des possibilités ?
pouvez-vous m'aider....
en vous remerciant
marcmarc