title: Get current user - signed to exchange server - manager email address
body: <p>How can I retrieve the current user manager email address?
  I'm only able to get my e-mail address by calling the</p>
  
  <blockquote>
    <p>Application.Session.CurrentUser.AddressEntry.GetExchangeUser</p>
  </blockquote>
  
  <p>while using </p>
  
  <blockquote>
    <p>Application.Session.CurrentUser.AddressEntry.GetExchangeUser.Manager</p>
  </blockquote>
  
  <p>returns nothing...
  What i'm trying to achieve is to send an email to my manager right from excel sheet and automate it on other users computers (because they've other managers)</p>
  
  <pre><code>Sub Mail_workbook_Outlook_1()
      Dim OutApp As Object
      Dim OutMail As Object
  
      Set OutApp = CreateObject("Outlook.Application")
      Set OutMail = OutApp.CreateItem(0)
  
      If IsEmpty(Range("A21").Value) = True Then ' check if cell is empty
        MsgBox "Cell is empty!", vbCritical, "It would be better to not left it empty..." ' if so, show user a message
      Else
  
      On Error Resume Next
      With OutMail ' outlook message details
          .To = "xyz@xyz.net"
          .Subject = "Sales report - " &amp; Format(Date, "dd-mm-yyyy")
          .Body = "Here comes the full sales report from " &amp; Format(Date, "dd-mm-yyyy") &amp; Application.Session.CurrentUser.AddressEntry.GetExchangeUser
          .Attachments.Add ActiveWorkbook.FullName ' add current file as an attachment to the outlook message
          .Send
      End With
      On Error GoTo 0
      MsgBox "File sent ", vbInformation, "You can now safely close the report" ' show confirmation message
  
      Set OutMail = Nothing
      Set OutApp = Nothing
      End If
  End Sub
  </code></pre>
  
  <p><img src="https://i.stack.imgur.com/ZSZY2.jpg" alt="Outlook contact with manager"></p>