Signaler

Logo dans signature non reconnu vba access [Résolu]

Posez votre question AstraLife 55Messages postés lundi 2 octobre 2017Date d'inscription 16 novembre 2017 Dernière intervention - Dernière réponse le 25 oct. 2017 à 10:03 par AstraLife
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
Utile
+0
plus moins
bonjour, peux-tu examiner le contenu de Signature("Signature"), et vérifier si cela te donne le logo correctement affiché?
AstraLife 55Messages postés lundi 2 octobre 2017Date d'inscription 16 novembre 2017 Dernière intervention - 24 oct. 2017 à 16:56
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/>
Répondre
yg_be 3834Messages postés lundi 9 juin 2008Date d'inscription ContributeurStatut 20 novembre 2017 Dernière intervention - 24 oct. 2017 à 17:09
vois-tu le fichier où se trouve le logo?
Répondre
AstraLife 55Messages postés lundi 2 octobre 2017Date d'inscription 16 novembre 2017 Dernière intervention - 24 oct. 2017 à 17:55
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
Répondre
yg_be 3834Messages postés lundi 9 juin 2008Date d'inscription ContributeurStatut 20 novembre 2017 Dernière intervention - 25 oct. 2017 à 08:52
je suggère d'ajouter ceci
Signature = Replace(Signature, nom_signature & "_fichiers/", Environ("APPDATA") & "\Microsoft\Signatures\" & nom_signature & "_fichiers/")

après cela
Signature = Replace(Signature, nom_signature & "_files/", Environ("APPDATA") & "\Microsoft\Signatures\" & nom_signature & "_files/")
Répondre
AstraLife 55Messages postés lundi 2 octobre 2017Date d'inscription 16 novembre 2017 Dernière intervention - 25 oct. 2017 à 10:03
J'ai ajouté, énorme ! ça fonctionne, Top !
Merci beaucoup yg_be
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !