VBAは情報の列を電子メールに取り込みます

Question

私は選択されたセルからのOutlookの電子メールを読み込むために、このVBAプログラムにちょっと固執しています。

• カラムA：メール
• 列B：メッセージ

私が選択した後、セルBとCを参照するトラブルを抱えています：

列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