How to add image into email?

[kyameizero]

Hi,

How do I add an image to my email? I don't want the picture to be an attachment. It's like a company email, with the company logo shown in the email.
Is it possible to do that?

Please help!!

Set xOutMail = xOutApp.CreateItem(0)
            xMailBody = "Dear " & xRgNameVal & " (EP number: " & xRgEPNoVal & "), " & vbNewLine & vbNewLine & _
                   "Your " & xRgQualVal & " licence is expiring on " & xRgDateVal & ". " & vbNewLine & vbNewLine & _
                   "To continue performing your " & xRgQualVal & " duties after the expiration date, " & _
                   "please renew your licence by completing the " & xRgQualVal & " re-certification course." & _
                   " You may approach your Training Coordinator to register for the course. " & vbNewLine & vbNewLine & _
                   "Thank you."
            xMailSubject = "Your " & xRgQualVal & " licence is expiring soon!"
              
        On Error Resume Next
            With xOutMail
                .To = xRgSendVal
                .CC = ""
                .BCC = ""
                .Subject = xMailSubject
                .Body = xMailBody
                .Display
            End With
        On Error GoTo 0
        Set xOutMail = Nothing
        Set xOutApp = Nothing

 

[kennypete]

You can achieve this by using .HTMLBody rather than .Body

            With xOutMail
                .To = xRgSendVal
                .CC = ""
                .BCC = ""
                .Subject = xMailSubject
                .Attachments.Add Source:="{path and filename}"
                .HTMLBody = xMailBody &  _
                "<img src='{filename}'" _
                & "width={width in px} height={height in px}>"
                .Display
            End With

You will also need to change xMailBody to HTML, so using <p>Text</p> or perhaps <br/> depending on the layout you're after.

 

[kyameizero]

You can achieve this by using .HTMLBody rather than .Body

            With xOutMail
                .To = xRgSendVal
                .CC = ""
                .BCC = ""
                .Subject = xMailSubject
                .Attachments.Add Source:="{path and filename}"
                .HTMLBody = xMailBody &  _
                "<img src='{filename}'" _
                & "width={width in px} height={height in px}>"
                .Display
            End With

You will also need to change xMailBody to HTML, so using <p>Text</p> or perhaps <br/> depending on the layout you're after.

Thanks for trying to help me!!

I first tried to change my xMailBody to HTML. However, I was given a Syntax Error. May I know what did I do wrong? I feel like the '=' sign is wrong.

xMailBody = <p>Dear </p> & xRgNameVal & <p> (EP number: </p> & xRgEPNoVal & <p>), </p> & <br/> & <br/> & _
                   <p> Your </p> & xRgQualVal & <p> licence is expiring on </p> & xRgDateVal & <p>. </p> & <br/> & <br/> & _
                   <p>To continue performing your </p> & xRgQualVal & <p> duties after the expiration date, </p> & _
                   <p>please renew your licence by completing the </p> & xRgQualVal & <p> re-certification course.</p> & _
                   <p> You may approach your Training Coordinator to register for the course. </p> & <br/> & <br/> & _
                   <p>Thank you.</p>

 

[kyameizero]

Thanks for trying to help me!!

I first tried to change my xMailBody to HTML. However, I was given a Syntax Error. May I know what did I do wrong? I feel like the '=' sign is wrong.

xMailBody = <p>Dear </p> & xRgNameVal & <p> (EP number: </p> & xRgEPNoVal & <p>), </p> & <br/> & <br/> & _
                   <p> Your </p> & xRgQualVal & <p> licence is expiring on </p> & xRgDateVal & <p>. </p> & <br/> & <br/> & _
                   <p>To continue performing your </p> & xRgQualVal & <p> duties after the expiration date, </p> & _
                   <p>please renew your licence by completing the </p> & xRgQualVal & <p> re-certification course.</p> & _
                   <p> You may approach your Training Coordinator to register for the course. </p> & <br/> & <br/> & _
                   <p>Thank you.</p>

Please ignore my replied comment. I solved the problem. It is simply the <p> and <br> that I used lol.

 

[kyameizero]

You can achieve this by using .HTMLBody rather than .Body

            With xOutMail
                .To = xRgSendVal
                .CC = ""
                .BCC = ""
                .Subject = xMailSubject
                .Attachments.Add Source:="{path and filename}"
                .HTMLBody = xMailBody &  _
                "<img src='{filename}'" _
                & "width={width in px} height={height in px}>"
                .Display
            End With

You will also need to change xMailBody to HTML, so using <p>Text</p> or perhaps <br/> depending on the layout you're after.

I have converted my email body to HTML as intended. I tried using your example. However, the email shows "Error. Filename not specified." I named my file as "logo" and placed it in my c drive first for testing purposes. Please help.

 On Error Resume Next
            With xOutMail
                .To = xRgSendVal
                .CC = ""
                .BCC = ""
                .Subject = xMailSubject
                .Attachments.Add Source:="C:/logo"
                .HTMLBody = xMailBody & _
                "<img src=""logo" _
                & "width=750  height=520>"
                .Display
            End With

 

[kennypete]

C:/logo will not work. Your file, even if named without an extension (not recommended) must be logo. (i.e. with the dot). Your file will normally be a common file type, so .jpg, .gif, etc. Further, you have typed double quotes around logo, when it should be single. I expect, presuming it is a .jpg, this will work:
.Attachments.Add Source:="C:/logo.jpg"
.HTMLBody = xMailBody & _
"<img src='logo.jpg'" _
& "width=750 height=520>"

 

[kyameizero]

Ah I seee. Yes its in jpg, thank you very much. I've corrected my error :D

However, the email did not show my logo. Although, when I click the part the image supposed to come out, it is selected. This means that the image is there, but not shown. Is this the image's problem? i tried using other jpg images but it is the same. and also, does png work?

 

[kennypete]

I suspect its the c:/ which should be c:\

 

[kennypete]

And, yes, .png should be fine (I tried with one myself just now)

 

[kyameizero]

Oh yeah we didnt realized the / is wrong LOL. However, I changed it and it still didn't work. I even tried to shift the image to another folder.
sadface

On Error Resume Next
            With xOutMail
                .To = xRgSendVal
                .CC = ""
                .BCC = ""
                .Subject = xMailSubject
                .Attachments.Add Source:="C:\Users\17047382\Pictures\logo.png"
                .HTMLBody = xMailBody & _
                "<img src='logo.png'" _
                & "width=230 height=130>"
                .Display
            End With
        On Error GoTo 0
        Set xOutMail = Nothing
        Set xOutApp = Nothing