title: Send Email from different email accounts
body: <p>When I send emails they go out from my personal inbox at work, but I need them to go out from another mailbox that I have access to. I have both mailboxes in my outlook.</p>
  
  <p>Can I send emails from a specific mailbox?</p>
  
  <p>Here is the code I am using. It does not find the 2nd item in my account.   </p>
  
  <pre><code> Sub Mail_small_Text_Change_Account()
  
      Dim cel As Range
      Dim OutApp As Outlook.Application
      Dim OutMail As Outlook.MailItem
      Dim strbody As String
  
      Set OutApp = CreateObject("Outlook.Application")
      Set OutMail = OutApp.CreateItem(olMailItem)
  
      strbody = "Hi there" &amp; vbNewLine &amp; vbNewLine &amp; _
            "This is line 1" &amp; vbNewLine &amp; _
            "This is line 2" &amp; vbNewLine &amp; _
            "This is line 3" &amp; vbNewLine &amp; _
            "This is line 4"
  
      On Error Resume Next
  
      For Each cel In Range(("C2"), Range("C2").End(xlDown))
          With OutMail
              .To = cel.Value
              '.CC = cel.Offset(0, 3).Value
              .Subject = "Benefits Refund"
              .Body = strbody
              .SendUsingAccount = OutApp.Session.Accounts.Item(2)
              .Send   'or use .Display
          End With
  
      Next
  
      On Error GoTo 0
  
      Set OutMail = Nothing
      Set OutApp = Nothing
  End Sub
  </code></pre>