insertion image dans un corps de message

Bonjour,
Voici une macro réalisée par Isabelle Prawitz qui peux te donner une piste
pour réaliser ton projet
Oliv'

' Macro qui bascule les PJ JPG et GIF dans le message
Sub ImagesDansMessage()
Dim leMess As MailItem
Dim LItem As Object
Dim LeDoss As MAPIFolder
Dim lesItems As Items
Dim laPJ As Attachment
Dim nbAtt As Integer
Dim i As Integer

Set LeDoss = Session.GetDefaultFolder(olFolderInbox)
Set lesItems = LeDoss.Items
For Each LItem In lesItems
If TypeName(LItem) = "MailItem" Then
Set leMess = LItem
If leMess.BodyFormat = olFormatHTML Then
nbAtt = leMess.Attachments.Count
For Each laPJ In leMess.Attachments
If Right(LCase(laPJ.FileName), 4) = ".jpg" Or _
Right(LCase(laPJ.FileName), 4) = "jpeg" Or _
Right(LCase(laPJ.FileName), 4) = ".gif" Then
laPJ.SaveAsFile "c:Pieces jointes" & laPJ.DisplayName ' ***
attention dossier
leMess.HTMLBody = "<IMG alt='' hspace=0 src='" & "c:Pieces
jointes" & laPJ.DisplayName & _
"' alignºseline border=0><br>" & leMess.HTMLBody ' ***
attention dossier
End If
Next
For i = leMess.Attachments.Count To 1 Step -1
Set laPJ = leMess.Attachments.Item(i)
If Right(LCase(laPJ.DisplayName), 4) = ".jpg" Or _
Right(LCase(laPJ.DisplayName), 4) = "jpeg" Or _
Right(LCase(laPJ.DisplayName), 4) = ".gif" Then
laPJ.Delete
End If
Next
leMess.Save
End If
End If
Next

End Sub
'Fin de macro

"Christophe B." <ChristopheB@discussions.microsoft.com> a écrit dans le
message de news: 7892FDB5-AFC3-4AC8-91F3-65E3175EDB02@microsoft.com...
Bonjour,

Je cherche à savoir si l'on peut envoyer dans un corps de message un
fichier c:moi.jpg (afficher ce fichier dans le corps du message) à l'aide
de
macros.

Merci!

Christophe.B