使用VBA在电子邮件中嵌入图像

2022-02-22 00:00:00 vba excel outlook html

以下代码嵌入照片，但未显示，原因是

文件可能已被移动、重命名或删除(&Q；)。验证链接是否指向正确的文件和位置。"；

我知道文件路径正确。

Sub mail()

Dim Sig As String

Set myOlApp = CreateObject("Outlook.Application")

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

sPath = Environ("appdata") & "MicrosoftSignaturesAmir 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:UsersJoeSchmoPicturesWF 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

解决方案

将JPG文件名更改为一个单词示例WF_Communications.jpg或WFCommunications.jpg

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

相关文章