邮件中使用不同url的多个embedded式图像（Excel VBA）
嗨，我想创build一个可以发送多个embedded式图像的邮件的macros。 我想在每个图像中添加不同的url，并将其作为单个图像embedded到表格中。 一旦用户点击单一图片的这些不同部分，就应该将他引导至相应的网站。 请帮助我与vbamacros代码。
我想要的代码作为我的代码在下面给出的问题或代码粘贴在这里的扩展。
如何使用单元格值更改邮件中embedded图像的宽度和高度
提前致谢。
Sub SendMail() Dim olApp As Object Dim olMail As Object For I = 2 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row With ws Set olApp = CreateObject("Outlook.Application") Set olMail = olApp.CreateItem(olMailItem) End With With olMail .To = Cells(I, 2).Value .cc = Cells(I, 3).Value .bcc = Cells(I, 4).Value .Subject = Cells(I, 5).Value .Body = Cells(I, 6).Value On Error Resume Next .Attachments.Add Cells(I, 7).Value .HTMLBody ="<HTML><center> <img src ="""&Cells(I,10).Value&"""width="""&Cells(I, 8).Value&""" height=""" & Cells(I, 9).Value & """ ><br>" On Error GoTo 0 .Display .Send End With Next Set olMail = Nothing Set olApp = Nothing MsgBox "Mails Sent Successfully" End Sub