Discussion :

[GuiJenn34]

Bonjour,

Je voudrais récupérer dans un USF (ou connaître l'adresse) une image pour l'insérer dans une feuille Excel (ou l'insérer ailleurs).
Détail : Dans un USF j'ai une image nommé "Image1" que je voudrais copier dans un corps d'un mail que j'ai créer par MACRO.

Code :

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

1
2
3
4
5
6
7
8
9
10
 With objMail.CreateItem(0)
        .From = ""
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "Test"
        .HTMLBody = "<img src=" &l'adresse de l'image de l'USF
        .Display
    End With
End Sub

Pouvez-vous m'aider SVP ?

Bien Cdt

[patricktoulon]

Bonjour
quand tu met une image dans un control image ou userform c'est un bitmap de l'image et non le lien
il te faut la sauvegarder ou memoriser le lien quand tu la met dynamiquement
d'autant plus que dans le html tu ne peut pas mettre le lien de ton disque dur dans le src dans le body

Code :

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

1
2
3
4
5
'si l'image est dans le userform directement 
'SavePicture Me.Picture, Environ("userprofile") & "\DeskTop\" & "imgtemp.jpg"
 
'si l'image est dans un controls image du userform
SavePicture Me.Image1.Picture, Environ("userprofile") & "\DeskTop\" & "imgtemp.jpg"

il ne te reste plaus qu'a envoiyer la photo en piece jointe et dans le src de l'"<img>" tu met le lien de la piece jointe
tu a divers exemple sur le forum complet et fonctionnels pour outlook ou CDO

Code :

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

1
2
3
4
5
6
7
8
With objMail.CreateItem(0)
        .From = ""
        .To = ""
        .CC = ""
        .BCC = ""        .Subject = "Test"        .HTMLBody = "<img src=" & lien de la photo en piece jointe et non !!!!!!  celle du disque dur ou elle se trouve 
        .Display
    End With
End Sub