title: Get Email address from sender account
body: <p>Is there a way to "read" the user E-Mail Address from Outlook Account which is logged in and send an E-Mail when I activate this Macro?</p>
  
  <pre><code>Sub MailSenden()
  
  Dim olApp     As Object
  Dim olOldBody As String
  
  Rem Email erstellen
  Set olApp = CreateObject("Outlook.Application")
  
  With olApp.CreateItem(0)
      .GetInspector.Display
      olOldBody = .htmlBody
      .To = "carsten.asdf@xxx.yy"
      .Subject = "Testformular"
      .Body = "Das ist eine e-Mail" &amp; Chr(13) &amp; _
              "Viele Grüße..." &amp; Chr(13) &amp; Chr(13)
      .Attachments.Add "C:\Users\" &amp; Environ$("USERNAME") &amp; "\Desktop\" &amp; "CSV-Export.csv"
      .Attachments.Add ActiveWorkbook.FullName
      .Send
  
  End With
  
  Kill "C:\Users\" &amp; Environ$("USERNAME") &amp; "\Desktop\" &amp; "CSV-Export.csv"
  
  
  End Sub
  </code></pre>
  
  <p>I need to get the "from" E-Mail address.</p>
  
  <p>EDIT1: Solution for smtp</p>
  
  <pre><code>Msgbox        
  CreateObject("Outlook.Application").GetNamespace("MAPI").Session.CurrentUser. _
  AddressEntry.GetExchangeUser.PrimarySmtpAddress
  </code></pre>