Insere un photo

- - Dernière réponse : f894009
Messages postés
14797
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2019
- 27 sept. 2019 à 17:34
Bonjour,
Je fais une macro pour faire un lien entre excel et Outlook.
Jusque la j'ai la création du corp du texte mais a la fin j'aimerais insérer une photo.

Public Function recuptxt(chemin As String)
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(chemin).OpenAstextStream(1, -2)
recuptxt = ts.readall
ts.Close
End Function

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E1:E" & Cells(Rows.Count, Target.Column).End(xlUp).Row)) Is Nothing Then
Application.StatusBar = "pr?paration du mail"
Set ol = CreateObject("Outlook.Application")
Set mail = ol.CreateItem(0)
With mail
.Display
.To = ""
.CC = ""
.Subject = "Situation de votre compte client"
.body = "Madame, Monsieur," & vbCrLf & "Nous vous informons que votre compte client pr?sente ? ce jour un solde de " & Target.Text & " constitu? de la facture suivante:" & vbCrLf & "" & vbCrLf & " - N? " & Format(Target.Offset(, -1), "") & " ? ?ch?ance au " & Format(Target.Offset(, 9), "dd/mm/yyyy.") & vbCrLf & "" & vbCrLf & "Ces factures arrivent ? ?ch?ance et nous vous remercions d'avance de votre prochain r?glement." & vbCrLf & "Restant ? votre disposition, " & vbCrLf & "Nous vous adressons nos meilleures salutations," & vbCrLf & "" & vbCrLf & "Le service comptabilit?." & vbCrLf & "" & recuptxt("C:\Users\Accueil\AppData\Roaming\Microsoft\Signatures\standard.txt")

End With
Application.StatusBar = ""
End If
End Sub

c'est après la signature que j'aimerais cela .

merci d'avance a celui qui arriveras a me débloquer

Cordialement
Afficher la suite 

3 réponses

Messages postés
14797
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2019
1177
Commenter la réponse de f894009
0
Merci
Cela ne fonctionne pas
f894009
Messages postés
14797
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2019
1177 -
Re,
Fonctionne pas veux rien dire.
Expliquez
Bonjour,
le lien que vous m'avez fourni ne m'aide pas car le texte de celui-ci est en HTMLbody or le mien est seulement en body
f894009
Messages postés
14797
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2019
1177 -
Bonjour,

Ben oui, mais il semblerait qu'il faille en passer par la. C'est le seul lien que j'ai trouve pour vous, maintenant vous pouvez en faire de meme……...
oui mais cela change toute la forme de mon corp de message
f894009
Messages postés
14797
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2019
1177 -
Re,
toute la forme de mon corp
Cote code ou cote corps de @Mail
Commenter la réponse de stanly59
Messages postés
6286
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 octobre 2019
400
0
Merci
Bonjour à vous 2,

voir ceci:

https://www.rondebruin.nl/win/s1/outlook/signature.htm
f894009
Messages postés
14797
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2019
1177 -
Bonjour cs_LePivert,

Merci pour lui. Par contre c'est uniquement pour la signature.
Le gars veut une image avant et apres le corps du message et avec le lien que j'ai trouve ca doit aller. Il aurait un probleme d'empilage dans son @Mail
f894009
Messages postés
14797
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2019
1177 -
Re,

Avec le lien que j'ai mis:


Avec une petite modif du code (image car le HTLM est interprete dans un post):

Commenter la réponse de cs_Le Pivert