沃梦达 / 编程问答 / 前端问题 / 正文

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

沃梦达教程前端问题

2022-01-01

Embedding image in email with VBA(使用VBA在电子邮件中嵌入图像)

本文介绍了使用VBA在电子邮件中嵌入图像的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述

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

文件可能已被移动、重命名或删除(&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="ImNpZDpXRl9Db21tdW5pY2F0aW9ucy5qcGc="" width=200> </BODY>"

这篇关于使用VBA在电子邮件中嵌入图像的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持编程学习网！

沃梦达教程

本文标题为：使用VBA在电子邮件中嵌入图像