VBA用行信息填充电子邮件
问题描述:
我有点卡住这个VBA程序来填充选定单元格的Outlook电子邮件。每行的信息是以下各项:VBA用行信息填充电子邮件
- 柱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可能是正确的方式,但我一直试图设置它。
感谢您的帮助
答
如果所选单元格在列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
正是我一直在寻找,谢谢 – mag776