Logo dans signature non reconnu vba access

Résolu/Fermé
AstraLife Messages postés 98 Date d'inscription lundi 2 octobre 2017 Statut Membre Dernière intervention 1 juillet 2019 - Modifié le 24 oct. 2017 à 08:38
AstraLife Messages postés 98 Date d'inscription lundi 2 octobre 2017 Statut Membre Dernière intervention 1 juillet 2019 - 25 oct. 2017 à 10:03
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 :

' 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
A voir également:

1 réponse

yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471
24 oct. 2017 à 10:48
bonjour, peux-tu examiner le contenu de Signature("Signature"), et vérifier si cela te donne le logo correctement affiché?
1
AstraLife Messages postés 98 Date d'inscription lundi 2 octobre 2017 Statut Membre Dernière intervention 1 juillet 2019
24 oct. 2017 à 13:05
Bonjour yg_be,
Oui le logo s'affiche bien.
Même en ajoutant la signature manuellement avec le bouton "Ajout signature d'Outlook", le logo est reconnu, c'est uniquement avec le code qu'il met une croix rouge à la place du logo.
0
yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471 > AstraLife Messages postés 98 Date d'inscription lundi 2 octobre 2017 Statut Membre Dernière intervention 1 juillet 2019
24 oct. 2017 à 14:06
as-tu fait debug.print ou msgbox de
Signature("Signature")
?
0
AstraLife Messages postés 98 Date d'inscription lundi 2 octobre 2017 Statut Membre Dernière intervention 1 juillet 2019 > yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024
Modifié le 24 oct. 2017 à 16:59
Je l'ai fait et ça me donne des lignes de codes très longue dans le message box

il y a une ligne ou c'est mentionné :
<0:AllowPNG/>
0
yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471 > AstraLife Messages postés 98 Date d'inscription lundi 2 octobre 2017 Statut Membre Dernière intervention 1 juillet 2019
24 oct. 2017 à 17:09
vois-tu le fichier où se trouve le logo?
0
AstraLife Messages postés 98 Date d'inscription lundi 2 octobre 2017 Statut Membre Dernière intervention 1 juillet 2019 > yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024
Modifié le 24 oct. 2017 à 17:58
Il y à beaucoup de lignes

<o:OfficeDocumentSettings>
<o:AllowPNG/>
</o:OfficeDocumentSettings>
</xml><![endif]-->
<link rel=themeData href= "Signature_fichiers/themdata.thmx">
<link rel=colorSchemeMapping href="Signa
0