Utilisation d'Outlook 2010/13 VBA Je souhaite insérer une image liée dans le corps d'un nouvel e-mail

Question

Utilisation d'Outlook 2010/13 VBA Je souhaite insérer une image liée dans le corps d'un nouvel e-mail que je compose. Je veux l'insérer où le curseur est ou après le dernier caractère du corps de l'email. Le code ci-dessous fonctionne bien, sauf qu'il insère l'image dans une nouvelle ligne après la fin du corps. Pouvez-vous suggérer une solution comment modifier mon code pour faire ce qui précède. Notez que je peux insérer manuellement cette image à n'importe quel endroit dans le corps de l'email quand j'utilise la fonction de perspectives "Insérer et lier l'image" en utilisant son GUI.

Sub test_add_image() 
    Dim NewMail As Outlook.MailItem 
    Set NewMail = Application.ActiveInspector.currentItem 
    NewMail.HTMLBody = NewMail.HTMLBody & "<img src=http://www.example.com/image.html>" 
End Sub 

Answer 1

Vous devez analyser le corps du message et trouver l'endroit où vous voulez insérer l'image. Donc, au moins, vous devez obtenir un balisage HTML bien formé. La balise img doit se trouver à l'intérieur de l'élément body.

Answer 2

Si vous souhaitez insérer un fichier local comme une image à la position actuelle du curseur, utilisez Application.ActiveInspector.WordEditor.Application.Selection.InlineShapes.AddPicture - voir https://msdn.microsoft.com/en-us/library/office/Ff822636.aspx