Question

我想在行中选择一个单元格后，用一行单元格中的信息填充Outlook电子邮件。每行的信息如下：

A栏：电子邮件
B栏：姓名
C栏：留言

首先在A列中选择电子邮件地址后，如何引用B列和C列中的单元格。

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

Answer 1

如果所选单元格位于A列（我假设您的宏依赖于Set myAddress = Selection），则可以使用Offset属性轻松引用其他列。

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

因此，您可以使用以下内容为您的电子邮件正文创建一个字符串：

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

如何从行中选定的单元格和相邻单元格中检索信息？

1 个答案: