Affichage Image dans signature Outlook

Bonjour,

Tu ajoutes ton logo directement dans outlook et tu n'a plus qu'à la concaténé dans ton code.

 Set LeMail = CreateObject("Outlook.Application")

With LeMail.CreateItem(0)
    .BodyFormat = olFormatHTML
    .To = "***@***"
    .Subject = "Sujet du mail"
    .HTMLBody = .Body
& "<p>" & texte1 & "</p><br>"
    .Display ' Permet de valider avant envoi
End With
        

Bonsoir,

Merci de votre réponse.

Je regarde dans outlook mais je ne vois pas où enregistrer une image. Je peux en ajouter une à un mail, mais ce n'est pas automatique.

En fonction des destinataires, je peux avoir différentes signatures, avec une image spécifique.

Pourriez-vous être plus précis et avoir la gentillesse de m'indiquer la marche à suivre ? Idem pour la partie code.

D'avance, merci.

bonjour,

1. dans l'extrait de code que tu partages, que contient la variable "signature"?
2. le message "nous ne pouvons pas afficher l'image" est affiché quand et par quoi?
3. que contient le body html à la réceprion du message?

Bonsoir,

Cela fonctionne très bien, sauf si j'ajoute une image à la signature. J'ai alors le message "nous ne pouvons pas afficher l'image".

Effectivement, le souci est que lorsque vous récupérez le lien permettant l'accès à la signature, l'adresse de l'image n'est que relative et ne permet donc pas son affichage. Il vous faut utiliser une fonction de ce type, convertissant l'adresse relative de l'image en adresse absolue :

Function Signature(nom_signature As String, Optional nom_compte As String) As String
    Dim FSO As Object, TextStream As Object
    Dim nom_fichier As String, id_signature As String, id_signature_Pct20 As String
     
    On Error Resume Next
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    If nom_compte <> Empty Then id_signature = nom_signature & " (" & nom_compte & ")" _
    Else id_signature = nom_signature
    
    nom_fichier = Environ("APPDATA") & "\Microsoft\Signatures\" & id_signature & ".htm"
    Set TextStream = FSO.OpenTextFile(nom_fichier)
    If Err.Num = 0 Then
        Signature = TextStream.ReadAll
        id_signature_Pct20 = Replace(id_signature, " ", "%20")
        Signature = Replace(Signature, id_signature_Pct20, id_signature)
        'remplacement adresse relative images par adresse absolue
        Signature = Replace(Signature, id_signature & "_fichiers/", Environ("APPDATA") & "\Microsoft\Signatures\" & id_signature & "_fichiers/")
    End If
End Function

Bonjour,

Merci de votre réponse.

Faut-il que les signatures soit dans le dossier Environ("APPDATA") & "\Microsoft\Signatures\" ? Si oui, voilà ce que me donne mon ordi : "C:\Users\Ordi1\AppData\Roaming" ? Si non, cela voudrait dire que les signatures peuvent être dans un dossier quelconque, ce qui m'arrangerait...

Je ne comprends pas "mon compte". S'agit-il de l'adresse courriel ou d'un mot de passe ?

Merci par avance de vos précisions.

Bonjour,

Je vous conseille d'afficher le contenu du répertoire :

C:\Users\Ordi1\AppData\Roaming\Microsoft\Signatures

pour voir comment sont stockées vos signatures : <nom_signature>.htm. Elle peuvent l'être avec le compte de messagerie associé ou non.

Le dossier C:\Users\Ordi1\AppData\Roaming\Microsoft\Signatures est vide.

Jusqu'à présent, mes signatures sont stockées dans un dossier que j'ai créé, au format htm.

Dois-je obligatoirement utiliser Environ("APPDATA") ou puis-je conserver mes signatures dans mon dossier actuel ?

J'ai testé et cela fonctionne très bien. Super. Merci beaucoup.

J'ai gardé mes signatures dans leur dossier actuel, mais je les sauvegarde au format "page web, filtré".

Maintenant, j'ai pas mal de boulot pour mettre à jour mon VBA !

Bonne journée,

Tony