title: Sending e-mail with addresses in worksheet column
body: <p>I have a sheet called &quot;Test&quot; where column A is a list of e-mail addresses.<br />
  I want to send an e-mail to all addresses.</p>
  <pre class="lang-vb prettyprint-override"><code>Sub EmailSend()
      
      Dim objOutlook As Object
      Dim objMail As Object
      Dim i As Integer
      
      Set objOutlook = CreateObject(&quot;Outlook.Application&quot;)
      Set objMail = objOutlook.CreateItem(0)
      
      For i = 1 To 10
          With objMail
             .to = Sheets(&quot;Test&quot;).Range(&quot;A&quot; &amp; i).Value
             .Subject = &quot;hi&quot;
             .body = _ 
                &quot;Hi &quot; &amp; Sheets(&quot;Test&quot;).Range(&quot;B&quot; &amp; i) &amp; Sheets(&quot;links&quot;).Range(&quot;G&quot; &amp; 1)
             .send
          End With
      Next i
      
  End Sub
  </code></pre>
  <p>The macro sends an e-mail to the address in A1 and then an error</p>
  <blockquote>
  <p>element was moved or deleted.</p>
  </blockquote>
  <p>appears in the line</p>
  <pre><code>.to = Sheets(&quot;Test&quot;).Range(&quot;A&quot; &amp; i).Value
  </code></pre>