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