セルの値を使用してメールの埋め込み画像の幅と高さを変更する方法

Question

こんにちは私は画像を埋め込んだメールを送信できるマクロを作成しようとしていますが、画像サイズをカスタマイズしたいので、幅と高さをセルで指定し、メールを送信する前にサイズを変更します。

ウェブリンクが2つ追加されているので、ユーザーが各リンクをクリックするとそれぞれのページに移動します。しかし、同じコードを取得することはできません。助けてください。

私のコードでは、引用が犯人である

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 = .HTMLBody & "<img src = 'image1.jpg' " 
& "width= Cells(I, 8).Value height=Cells(I, 9).Value ><br>" 

.Attachments.Add Cells(I, 10).Value 


On Error GoTo 0 

.Display 
.Send 

End With 

Next 

Set olMail = Nothing 
Set olApp = Nothing 

MsgBox "Mails Sent Successfully" 


End Sub` 

Answer 1

以下の通りです。私は二重引用符で囲みます：

.HTMLBody = .HTMLBody & "<img src = 'image1.jpg' width=""" & Cells(I, 8).Value & """ height=""" & Cells(I, 9).Value & """ ><br>"