title: Set .SentOnBehalfofName on every email sent
body: <p>I am trying to set the .SentOnBehalfOfName on every email I send through Outlook 2016. That is, whenever I hit New Mail, Reply, Reply All, or Forward.</p>
  
  <p>I tried this:</p>
  
  <pre><code>Public WithEvents myItem As Outlook.MailItem
  
  Private Sub Application_ItemLoad(ByVal Item As Object)
      If (TypeOf Item Is MailItem) Then
          Set myItem = Item
      End If
  End Sub
  
  
  Private Sub FromField()
  
  With myItem
      .SentOnBehalfOfName = "example@aol.com"
      .Display
  End With
  
  End Sub
  
  
  Private Sub myItem_Open(Cancel As Boolean)
  
      FromField
  
  End Sub
  </code></pre>