Faire en sorte qu'une image soit collée et non en pièce jointe

**basto** · 01/10/2018, 12h02

Bonjour

J'ai une procédure qui ajoute des pièces jointes à un mail au format HTML

Je souhaiterais que les pièces jointes soient collées dans le mail et non apparaissent comme pièces jointes dans la forme du mail.

Existe t'il une astuce pour réaliser cela ?

D'avance merci

**Oliv-** · 01/10/2018, 13h56

Bonjour,

il y a en gros 2 méthodes

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub new_mail_with_embedded()
 
    Set ObjMail = application.CreateItem(olMailItem)
    ObjMail.Attachments.add "C:\Users\oliv\Pictures\merci.png"
 
    ObjMail.HTMLBody = "<html><p>This is a picture.</p>" & _
                       "<img src='cid:merci.png' >"
    ObjMail.Display
End Sub

ou sinon utiliser wordeditor avec des instructions VBA "WORD"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Insert_image_wordeditor()
 
    Dim outlookwordeditor
    Dim appOutlook As Outlook.Application
    Dim oMail As Outlook.MailItem
 
    ' Set appOutlook = CreateObject("Outlook.Application")
    Set appOutlook = Application
    Set oMail = appOutlook.ActiveInspector.CurrentItem
    Set outlookwordeditor = oMail.GetInspector.WordEditor
 
    'ICI on utilise les intructions WORD précédée de outlookwordeditor.
    Set wordSelection = outlookwordeditor.Application.Selection
 
        wordSelection.InlineShapes.AddPicture FileName:= _
        "C:\Users\oliv\Pictures\Merci.png", LinkToFile:=False, SaveWithDocument:= _
        True
 
 
End Sub

**basto** · 01/10/2018, 15h28

Merci pour ces pistes.

En définitive, j'ai trouvé un trucs sur le forum :

Code :

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

1
2
3
4
5
 
 
  Const PR_ATTACH_CONTENT_ID = "http://schemas.microsoft.com/mapi/proptag/0x3712001E"
 
  MaRéponse.Attachments.Item(Lnbr + 1).PropertyAccessor.SetProperty PR_ATTACH_CONTENT_ID, ""

Pour l'instant ça résout mon besoin.

A+

Faire en sorte qu'une image soit collée et non en pièce jointe [OL-2013]

VBA Outlook

Discussions similaires

Partager

Partager