Sélectionner signature Outlook via macro

Bonjour

Je n'ai rien trouvé à ce sujet, peut être pourrez vous m'aider :

J'ai Outlook et Excel 2007.

Dans Outlook j'ai plusieurs signatures.

Est ce possible de faire une macro depuis Excel qui modifierai la signature par défaut de Outlook (nouveau message et réponse /transfert)?

Merci d'avance pour votre aidi

Salut,

j'ai trouvé ce code qui peut te servir.

il faut que t'adaptes quelques lignes en fonction de comment tu veux l'utiliser.

tu dois remplacer le "REMPLACER" par le nom de ta signature qui se trouve :

Vista and Windows 7/8:

C:\Users\<UserName>\AppData\Roaming\Microsoft\Signatures

Windows XP :

C:\Documents and Settings\<UserName>\Application Data\Microsoft\Signatures

Sub Mail_Outlook_With_Signature_Html_2()
' Working in Office 2000-2016
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim SigString As String
    Dim Signature As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    strbody = "<H3><B>Dear Customer Ron de Bruin</B></H3>" & _
              "Please visit this website to download the new version.<br>" & _
              "Let me know if you have problems.<br>" & _
              "<A HREF=""http://www.rondebruin.nl/tips.htm"">Ron's Excel Page</A>" & _
              "<br><br><B>Thank you</B>"

    'change Seulement REMPLACER pour la signature
    SigString = Environ("appdata") & _
                "\Microsoft\Signatures\REMPLACER.htm"

    If Dir(SigString) <> "" Then
        Signature = GetBoiler(SigString)
    Else
        Signature = ""
    End If

    On Error Resume Next

    With OutMail
        .To = "ici@adressemail.com" 'adresse mail du destinataire
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .HTMLBody = strbody & "<br>" & Signature
        .Send    'ou .Display pour l'afficher
    End With

    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Function GetBoiler(ByVal sFile As String) As String
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
End Function

Bonjour merci pour la réponse mais cela ne fonctionne pas

Ça me met bien la signature choisi dans le mail mais ça ne garde pas la signature dans les paramètres par défaut.

Ce que je souhaite c'est que quand j'exécute cette macro ça modifie la signature par défaut dans les paramètres Outlook afin d'éviter de devoir le faire manuellement.

J'espère être compréhensible.

insertion automatique de signature et tu veux définir la signature par défaut ?

C'est une autre macro qui insère les signatures ?

Je ne comprends pas trop..

En fait je veux à l'ouverture d'un fichier Excel X, qu'une macro aille changer la signature par défaut dans Outlook (signature existante bien sur que l'on appellera Sign) dans le menu Outlook OUTILS- OPTIONS- FORMAT DU COURRIER- SIGNATURE