Bonjour le forum,
J'ai un programme qui permet à l'utilisateur de générer automatiquement un mail via outlook après avoir saisie une valeur en C19 & D19 de la feuil "tools".
La construction du mail fonctionne très bien chez moi. Pour des raisons de lisibilité j'ai intégré au code du html afin de travailler la mise en forme du mail.
Ma problématique est la suivante :
Plusieurs personnes utilisent ce fichier et j'aimerai dans la construction du mail pouvoir automatiquement intégrer leurs signatures personnelle outlook. A noter que dans la signature de ces différents utilisateurs comme souvent, il y a des logos en plus du texte.
Après quelques lectures à ce sujet, j'ai noté que c'était possible, notamment avec du html. Mon seul problème est que tout les codes que j'ai pu récupérer ne fonctionnent pas lorsque je les intègre au mien.
J'ai testé le code "GetBoiler" sans succès
ce code ci également
sans résultat.
Mon dernier test quant à lui intègre la fonction suivante insérée en fin de code :
La partie du code pour la construction du mail est la suivante, j'y insère le code "Signature replace" à la fin du balisage html mais ça ne fonctionne pas.
Lorsque j'essaye d'insérer la partie "signature replace" à la syntaxe html cela ne fonctionne toujours pas.
Le fichier est en PJ. Le module Mail_AC correspond au code que j'utilise. Le module banque_deCode_Signature correspond comme son nom l'indique à une banque de code que j'ai testé sans succès.
Si quelqu'un a une solution je suis preneur. Merci d'avance et bonne journée le forum.
J'ai un programme qui permet à l'utilisateur de générer automatiquement un mail via outlook après avoir saisie une valeur en C19 & D19 de la feuil "tools".
La construction du mail fonctionne très bien chez moi. Pour des raisons de lisibilité j'ai intégré au code du html afin de travailler la mise en forme du mail.
Ma problématique est la suivante :
Plusieurs personnes utilisent ce fichier et j'aimerai dans la construction du mail pouvoir automatiquement intégrer leurs signatures personnelle outlook. A noter que dans la signature de ces différents utilisateurs comme souvent, il y a des logos en plus du texte.
Après quelques lectures à ce sujet, j'ai noté que c'était possible, notamment avec du html. Mon seul problème est que tout les codes que j'ai pu récupérer ne fonctionnent pas lorsque je les intègre au mien.
J'ai testé le code "GetBoiler" sans succès
ce code ci également
VB:
.GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute
Mon dernier test quant à lui intègre la fonction suivante insérée en fin de code :
Code:
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 & "_fichiers/", Environ("APPDATA") & "\Microsoft\Signatures\" & nom_signature & "_fichiers/")
End If
End Function
La partie du code pour la construction du mail est la suivante, j'y insère le code "Signature replace" à la fin du balisage html mais ça ne fonctionne pas.
Lorsque j'essaye d'insérer la partie "signature replace" à la syntaxe html cela ne fonctionne toujours pas.
Code:
et OutApp = CreateObject("outlook.application")
Set Outmail = OutApp.CreateItem(0)
With Outmail
.to = Dest
.CC = ""
.Subject = "#HELP I'm lost ! => " & Besoin
.BodyFormat = 2
'.GetInspector.CommandBars.Item("Insert").Controls("Signature").Controls(1).Execute
.htmlbody = "<HTML><body>Bonjour cher admin <p>" _
& "Vous trouverez ci-dessous une nouvelle demande : <p>" _
& "Elle concerne la catégorie suivante : <b>" & Sheets("Tools").Range("C19").Value & " </b> <p>" _
& "<u> Détail de la demande : </u> <b>" & Sheets("Tools").Range("D19").Value & " </b> <p>" _
& "Bonne journée </body><HTML>"
Signature Replace(Signature, NA & "_fichiers/", Environ("APPDATA") & "\Microsoft\Signatures\" & NA & "_fichiers/")
.display
.Importance = 2 ' Niveau d'importance du mail
End With
Le fichier est en PJ. Le module Mail_AC correspond au code que j'utilise. Le module banque_deCode_Signature correspond comme son nom l'indique à une banque de code que j'ai testé sans succès.
Si quelqu'un a une solution je suis preneur. Merci d'avance et bonne journée le forum.