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

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.jpgWFCommunications.jpg

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

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

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

基础教程推荐