Ufdjrw

How to read the value of this capacitor?

Did Ender ever learn that he killed Stilson and/or Bonzo?

How to use deus ex machina safely?

What approach do we need to follow for projects without a test environment?

Min function accepting varying number of arguments in C++17

Awsome yet unlucky path traversal

Bach's Toccata and Fugue in D minor breaks the "no parallel octaves" rule?

How to explain that I do not want to visit a country due to personal safety concern?

What has been your most complicated TikZ drawing?

Is it possible to upcast ritual spells?

A sequence that has integer values for prime indexes only:

Do I need life insurance if I can cover my own funeral costs?

Unexpected result from ArcLength

Time travel from stationary position?

Brexit - No Deal Rejection

How to deal with taxi scam when on vacation?

Should we release the security issues we found in our product as CVE or we can just update those on weekly release notes?

Can someone explain to me where this proof goes wrong? (Twin Prime Conjecture)

How to write cleanly even if my character uses expletive language?

The difference between「N分で」and「後N分で」

Recruiter wants very extensive technical details about all of my previous work

Look at your watch and tell me what time is it. vs Look at your watch and tell me what time it is

How Could an Airship Be Repaired Mid-Flight

My adviser wants to be the first author

Embedded image still shows as attachment in html email VBA

0

I'm trying to automate emails that include an image. I'm using the simple code below, however I've noticed the image is still showing as an attachment unless I use .Display and then send manually. If I use .Send, the email receives with the attachment icon, and mobile apps still show the item as an attachment.

I've tried using both .Display and .Send which works except you can still quickly see the email pop-up and send. Using Application.ScreenUpdating = False doesn't help with that.

How can I edit this code so that when the email is received, there's no attachment icon and the image is only showing in the email body?

Sub test()

Dim OlApp As Outlook.Application
Dim myItem As Outlook.MailItem

Set OlApp = CreateObject("Outlook.Application")
Set myItem = OlApp.CreateItem(olMailItem)

'Actual code includes proper filepath, filename and email address
myItem.Attachments.Add "filepath&filename.jpg", olByValue, 0
myItem.To = "test email"
myItem.Subject = "Test"
myItem.HTMLBody = "This is a test" & "<img src='filename.jpg' width='176' height='36'>"
myItem.Send

End Sub

vba

share|improve this question

asked Mar 6 at 19:48

cfidcfid

11

add a comment | 

0

I'm trying to automate emails that include an image. I'm using the simple code below, however I've noticed the image is still showing as an attachment unless I use .Display and then send manually. If I use .Send, the email receives with the attachment icon, and mobile apps still show the item as an attachment.

I've tried using both .Display and .Send which works except you can still quickly see the email pop-up and send. Using Application.ScreenUpdating = False doesn't help with that.

How can I edit this code so that when the email is received, there's no attachment icon and the image is only showing in the email body?

Sub test()

Dim OlApp As Outlook.Application
Dim myItem As Outlook.MailItem

Set OlApp = CreateObject("Outlook.Application")
Set myItem = OlApp.CreateItem(olMailItem)

'Actual code includes proper filepath, filename and email address
myItem.Attachments.Add "filepath&filename.jpg", olByValue, 0
myItem.To = "test email"
myItem.Subject = "Test"
myItem.HTMLBody = "This is a test" & "<img src='filename.jpg' width='176' height='36'>"
myItem.Send

End Sub

vba

share|improve this question

asked Mar 6 at 19:48

cfidcfid

11

add a comment | 

I'm trying to automate emails that include an image. I'm using the simple code below, however I've noticed the image is still showing as an attachment unless I use .Display and then send manually. If I use .Send, the email receives with the attachment icon, and mobile apps still show the item as an attachment.

I've tried using both .Display and .Send which works except you can still quickly see the email pop-up and send. Using Application.ScreenUpdating = False doesn't help with that.

How can I edit this code so that when the email is received, there's no attachment icon and the image is only showing in the email body?

Sub test()

Dim OlApp As Outlook.Application
Dim myItem As Outlook.MailItem

Set OlApp = CreateObject("Outlook.Application")
Set myItem = OlApp.CreateItem(olMailItem)

'Actual code includes proper filepath, filename and email address
myItem.Attachments.Add "filepath&filename.jpg", olByValue, 0
myItem.To = "test email"
myItem.Subject = "Test"
myItem.HTMLBody = "This is a test" & "<img src='filename.jpg' width='176' height='36'>"
myItem.Send

End Sub

vba

share|improve this question

asked Mar 6 at 19:48

cfidcfid

11

Sub test()

Dim OlApp As Outlook.Application
Dim myItem As Outlook.MailItem

Set OlApp = CreateObject("Outlook.Application")
Set myItem = OlApp.CreateItem(olMailItem)

'Actual code includes proper filepath, filename and email address
myItem.Attachments.Add "filepath&filename.jpg", olByValue, 0
myItem.To = "test email"
myItem.Subject = "Test"
myItem.HTMLBody = "This is a test" & "<img src='filename.jpg' width='176' height='36'>"
myItem.Send

End Sub

share|improve this question

asked Mar 6 at 19:48

cfidcfid

11

share|improve this question

asked Mar 6 at 19:48

cfidcfid

11

asked Mar 6 at 19:48

cfidcfid

11

asked Mar 6 at 19:48

cfidcfid

11