VBA用行信息填充电子邮件

Question

我有点卡住这个VBA程序来填充选定单元格的Outlook电子邮件。每行的信息是以下各项：

• 柱A：电子邮件
• B栏：名称
• C栏：消息

我无法选择后参考小区B和C列A中的电子邮件并启动宏。我当前的VBA代码如下所示：

Sub populateEmail() 
Dim outApp, myItem, myAddress, bodyString, location 
Set myAddress = Selection 
Set outApp = CreateObject("Outlook.Application") 
Set myItem = outApp.CreateItem(0) 


'populate bodyString with information on selected row 


With myItem 
    .Subject = "subject" 
    .To = myAddress 
    .Body = bodyString 
    .Display 
End With 

End Sub 

如何从所选单元格引用相邻单元格？这看起来像使用activatecell.Address可能是正确的方式，但我一直试图设置它。

感谢您的帮助

Answer 1

如果所选单元格在列A（我假设你的宏是基于依靠你Set myAddress = Selection），那么其他列可以使用Offset财产很容易引用。

因此，列B可以使用Selection.Offset(0, 1)来引用，列C可以使用Selection.Offset(0, 2)来引用。

你可以因此创建使用类似电子邮件的正文的字符串：

bodyString = "Dear " & Selection.Offset(0, 1).Value & "," & vbCrLf & _ 
      Selection.Offset(0, 2).Value