Finding the users default email address from VB

[dillyoh]

Sending a report to who ever is using the spreadsheet and need to find their own default email address for outlook.

Dim objEmail As ObjectSet objEmail = objOutlook.CreateItem(olMailItem)


Dim DefaultReportEmail As Range
Set DefaultReportEmail = Range("ReportsEmail")


With objEmail
.To = {insert the persons default email here}
.Subject = "Bulk Report Confirmation: " & ListBox1 & " / " & ListBox2
.HTMLBody = "report contents go here"
              
' .Display
.Send
End With

Email sends find, if I display it the user can enter their email address manually but it would be better if it automatically emailed them in the background.