Logo dans signature non reconnu vba access
Résolu
AstraLife
Messages postés
99
Statut
Membre
-
AstraLife Messages postés 99 Statut Membre -
AstraLife Messages postés 99 Statut Membre -
Bonjour,
J'ai un code VBA qui gère l'envoi d'un mail avec pièce jointe.
Lors de la récupération de la signature à la fin du code vba, le logo apparaît avec une croix.
En ajoutant la signature manuellement via le bouton signature d'Outlook le logo apparaît bien mais avec le vba non.
Mon morceau de code :
J'ai un code VBA qui gère l'envoi d'un mail avec pièce jointe.
Lors de la récupération de la signature à la fin du code vba, le logo apparaît avec une croix.
En ajoutant la signature manuellement via le bouton signature d'Outlook le logo apparaît bien mais avec le vba non.
Mon morceau de code :
' Ajout de la signature
MonMessage.HTMLBody = MonMessage.HTMLBody & "<br/>" & "<br>" & Signature("Signature")
' Ajout des pièces jointes
MonMessage.Attachments.Add cheminfichier
MonMessage.Attachments.Add cheminfichier2
MonMessage.Attachments.Add cheminfichier3
MonMessage.display vbSystemModal
' supprimer le fichier pdf après envoi du message
Kill (cheminfichier)
Kill (cheminfichier2)
Kill (cheminfichier3)
Case vbNo
' procédure si click sur Non
End Select
End Sub
Private 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 & "_files/", Environ("APPDATA") & "\Microsoft\Signatures\" & nom_signature & "_files/")
End If
End Function
1 réponse
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour, peux-tu examiner le contenu de Signature("Signature"), et vérifier si cela te donne le logo correctement affiché?
