Choisir entre 2 signatures outlook depuis VBA Excel

Bonjour à tous,

Je dois envoyer des mails depuis une macro vba excel.

Tout marche bien avec le code suivant ci-dessous, par contre il me sélectionne la signature outlook la plus ancienne, or j'ai 2 signatures outlook et j'aimerais pouvoir choisir l'une ou l'autre (pour mon collègue et pour moi-même)... Est-ce possible ? Comment faire ?

Merci beaucoup !

        With OutMail
            .Display
            .To = AAA
            .Subject = AAA
            .htmlbody = "AAA" & .htmlbody
            .Attachments.Add AAA
            .Display
        End With

Bonjour,

Il suffit d'utiliser la fonction ci-jointe:

Sub envoi()

    With OutMail
        .To = AAA
        .Subject = AAA
        .HTMLBody = "AAA" & .HTMLBody
        .HTMLBody = .HTMLBody & "<br/>" & "<br>" & Signature("signature_choisie")
        .Attachments.Add AAA
        .Display
    End With

End Sub

Function Signature(nom_signature As String) As String
    Dim FSO As Object, TextStream As Object
    Dim nom_fichier As String

    Signature = Empty
    On Error Resume Next
    Set FSO = CreateObject("Scripting.FileSystemObject")
    nom_fichier = Environ("APPDATA") & "\Microsoft\Signatures\" & nom_signature & ".htm"
    Set TextStream = FSO.OpenTextFile(nom_fichier)
    If Err.Num = 0 Then
        Signature = TextStream.ReadAll
        'remplacement adresse relative images par adresse absolue
        Signature = Replace(Signature, nom_signature & "_fichiers/", Environ("APPDATA") & "\Microsoft\Signatures\" & nom_signature & "_files/")
    End If
End Function

C'est magique :)

Merci beaucoup!!