Discussion :

[eltof]

bjr,

j'ai créer un bouton en excel pour pouvoir envoyer un mail,
dans ce mail il y a une image, celle-ci apparait bien dans le mail mais je n'arrive pas a lu donner la dimension voulue
une fois que je lui impose une taille , l'image est vide mais la dimension de celle et bonne !
j'ai essayé width height avec ou sans " ou ' mais rien ne focntionne .

ce code fonctionne mais pas si j'impose des dimensions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
 
With OutMail
    .Display
    .Subject = "maj : " & Me.TextBox27
    .HTMLBody = "<img src=C:\Users\toto\AppData\test.jpg>" _
        & "<br>Merci, <br>"
End With

un peu d'aide serait la bienvenue

merci

[eltof]

désolé du dérangement mais je viens de trouver il faut 3 "

width = """ & 80 & """

et ça cela fonctionne merci

[Invité]

Bonjour,

J'ai abandonné cette méthode au profit de l'import des fichiers :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
     Set objmail = outlookApp.CreateItem(olMailItem)
 
        With objmail
 
            Set Pj1 = .Attachments.Add(CheminGraphe1)       'Jpg
            Set Pj2 = .Attachments.Add(CheminGraphe2)       'Jpg
            Set Pj3 = .Attachments.Add(NomCompletFichier)  'pdf
            '....

Lorsque le destinataire ouvre son mail, il clique sur les images dans la partie fichiers joints et il peut dérouler les images comme dans un diaporama.

[Thumb down]

Bonjour,
https://excel-macro.tutorialhorizon....k-using-excel/