在Outlook中使用VBAembedded图像
下面的代码不起作用。 它embedded照片，但不显示，因为“文件可能已被移动，重命名或删除。确认链接指向正确的文件和位置。
我知道文件path是正确的，因为我已经检查了三倍。 一个新的眼睛可以帮助。
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 将您的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>"