Excel VBA将单个图像embedded到电子邮件联系人列表中
我已被派去发送圣诞节问候，已定制给特定的客户。 然而，这些问候是在100年代，这样做会自动节省我的时间 – 而这些问候是每年都做！
在Excel中，列A中列出了客户名称，列B中列出了单个电子邮件，列C中个别自定义问候语文件的path。
我目前发现的是一个VBA代码，它使我可以select通过它们的path附加（但不embedded）这些文件到各个电子邮件。
可能有人向我解释和/或演示如何embedded通过列Cfind的附加文件？
非常感谢你！
我现在拥有的是：
Sub Send_Files() 'Working in Excel 2000-2016 'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm Dim OutApp As Object Dim OutMail As Object Dim sh As Worksheet Dim cell As Range Dim FileCell As Range Dim rng As Range With Application .EnableEvents = False .ScreenUpdating = False End With Set sh = Sheets("Sheet1") Set OutApp = CreateObject("Outlook.Application") For Each cell In sh.Columns("B").Cells.SpecialCells(xlCellTypeConstants) 'Enter the path/file names in the C:Z column in each row Set rng = sh.Cells(cell.Row, 1).Range("C1:Z1") If cell.Value Like "?*@?*.?*" And _ Application.WorksheetFunction.CountA(rng) > 0 Then Set OutMail = OutApp.CreateItem(0) With OutMail .to = cell.Value .Subject = "Merry Christmas!" .Body = "Merry Christmas!" For Each FileCell In rng.SpecialCells(xlCellTypeConstants) If Trim(FileCell) <> "" Then If Dir(FileCell.Value) <> "" Then .Attachments.Add FileCell.Value, olByValue, 0 End If End If Next FileCell .Send 'Or use .Display End With Set OutMail = Nothing End If Next cell Set OutApp = Nothing With Application .EnableEvents = True .ScreenUpdating = True End With End Sub 你可以使用HTML电子邮件，像
Set o = Application.CreateItem(olMailItem) o.BodyFormat = olFormatHTML o.HTMLBody = "<img src='C:\Users\Pictures\a1.png'>" o.Display