我正在尝试使用 Internet Explorer 通过 GMAIL 使用 VBA 发送电子邮件。我在 Range("A1:AL4") 中有数据,我想将此数据放入 gmail 的撰写正文中。如果我尝试在 A1 上使用单个范围,我的代码可以工作,但不适用于多个单元格。
'Insert Email content
IE.document.querySelector("div[class*= LW-avf]").innerText = Sheets("Sheet1").Range("A1:AL4").Value
我想要电子邮件正文中从 A1 到 AL4 的全部数据。
你可以尝试这样的事情:
Dim cell As Range
Dim sht As Worksheet
Dim emailBody As String
emailBody = ""
Set sht = ThisWorkbook.Worksheets("Sheet1")
For Each cell In sht.Range("A1:AL4").cells
emailBody = emailBody & cell.Value
Next cell
因此,基本上您连接范围内的所有字符串并形成一个大字符串,然后您可以将其分配给您的电子邮件正文。
当然,如果您需要在每个单元格的内容之间使用空格或换行符,您可以这样做:
emailBody = emailBody & " " & cell.Value
或者
emailBody = emailBody & vbNewLine & cell.Value
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句