How to add image to the email body with vba code outlook?

Asked Apr 26 '22 at 16:20

Active Apr 26 '22 at 16:34

Viewed 44 times

Currently I have this code to send an email with Excel attached and with a picture in body of email:

 Sub emails()


 '''''''''''''''''create an email'''''''''''''''''''''''''''''''''

  Set objeto_outlook = CreateObject("Outlook.application")
  Set Email = objeto_outlook.createitem(0)
  Dim strTime As String
  Dim scorpo As String

  'current time
  strTime = Date

  Email.Display


  Email.To = "example@outlook.com"
  Email.CC = ""
  Email.CC = ""


  Email.Subject = "Orders" & " " & strTime
  Email.Body = "Good morning," & Chr(10) & Chr(10) & "Orders" & " " & strTime & Chr(10) & Chr(10) & img = "G:\top.jpg'><br><br>" & Chr(10) & Chr(10) & "Best regards"



   Email.Attachments.Add ("G:\EXPORT.XLSX")

   Email.Send

   End Sub

However, at email body the code isn't correct... because i don't know what i need to change to add a picture between of the text.I even have the image already generated from excel and saved in the folder. I would like to get the image from the folder and not directly from excel

edited Apr 26 '22 at 16:27

asked Apr 26 '22 at 16:20

Silva

You need to use `.HTMLBody`, create valid HTML, and embed the image as described in the linked thread. – BigBen Apr 26 '22 at 16:22
where I include this code? – Silva Apr 26 '22 at 16:29
@BigBen - it is better to set the attachment content-id and use it in the `src` attribute rather than rely on the attachment file name. See https://stackoverflow.com/a/71228069/332059 – Dmitry Streblechenko Apr 26 '22 at 16:31
1

@DmitryStreblechenko - thanks, added to the list of dupes. – BigBen Apr 26 '22 at 16:34
What I need to change in code? can someone make that change to the code I have? – Silva Apr 28 '22 at 13:26

How to add image to the email body with vba code outlook?

0 Answers0