使用 VBA 在 Outlook 中嵌入图像

Question

The below code isn't working.下面的代码不起作用。 It embeds the photo but doesn't display because "The file may have been moved, renamed, or deleted. Verify that the link points to the correct file and location."它嵌入了照片但不显示，因为“文件可能已被移动、重命名或删除。请确认链接指向正确的文件和位置。”

I know the file path is correct since I've tripled check.我知道文件路径是正确的，因为我已经检查了三倍。 A fresh set of eyes could help.一双新鲜的眼睛可能会有所帮助。

Sub mail()

Dim Sig As String

Set myOlApp = CreateObject("Outlook.Application")

LR400 = Columns(1).Find("*", SearchDirection:=xlPrevious).Row

sPath = Environ("appdata") & "\Microsoft\Signatures\Amir Higgs.txt"

For x = 2 To LR400


    If Cells(x, 2) <> "no email" Then

     emails = Cells(x, 1)
    'TheBody1 = "The Parallon Workforce Team" & vbCrLf & vbCrLf & vbCrLf & _
    "Amir Higgs" & vbCrLf & _
    "Accounts Payable Clerk" & vbCrLf & _
    "Parallon Workforce Solutions" & vbCrLf & _
    "1000 Sawgrass Corporate Pkwy, 6th Floor" & vbCrLf & _
    "Sunrise, FL 33323" & vbCrLf & _
    "P:  954-514-1656" & vbCrLf & _
    "www.parallon.com"


    Set myitem = myOlApp.CreateItem(olMailItem)

    With myitem
    .SentOnBehalfOfName = "PARA.WFAdjustments@Parallon.com"
    .To = Cells(x, 2)
    .Subject = Cells(x, 3)
    .Body = TheBody1
    '.CC = ""
    .Attachments.Add emails
    .Attachments.Add "C:\Users\JoeSchmo\Pictures\WF Communications.jpg", olByValue, 0
    .HTMLBody = "<BODY><IMG src=""cid:WF Communications.jpg"" width=200> </BODY>"

    .display

    End With

End If

Next x

Set OutMail = Nothing
Set OutApp = Nothing

End Sub

Answer 1

Change your JPG file name to one word Example WF_Communications.jpg or WFCommunications.jpg将您的JPG文件名更改为一个单词示例WF_Communications.jpg或WFCommunications.jpg

.Attachments.Add "C:\Users\JoeSchmo\Pictures\WF_Communications.jpg", olByValue, 0
.HTMLBody = "<BODY><IMG src=""cid:WF_Communications.jpg"" width=200> </BODY>"

使用 VBA 在 Outlook 中嵌入图像

问题描述

1 个解决方案

解决方案1
3 2016-08-11 21:51:47

使用 VBA 在 Outlook 中嵌入图像

问题描述

1 个解决方案

解决方案1 3 2016-08-11 21:51:47

解决方案1
3 2016-08-11 21:51:47