Access/Outlook

[danitrin]

I'm trying to find the code to pull the sender's name from an email sent via access. Each time an email is sent, it is logged into access, indicating who it went to and when. I need to also be able to log who the email was sent from. can anyone get me started on this? everything i have found so far involves incoming emails and not outgoing. thks!

[flavo]

Hey danitrin!

Try this.. prints username to the immediate window (Ctrl + g to open this in VBA mode)

Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Set objApp = New Outlook.Application
Set objNS = objApp.GetNamespace("MAPI")
Debug.Print objNS.CurrentUser

'clean up
Set objApp = Nothing
Set objNS = Nothing

Dave :-)

[danitrin]

That worked perfect.....thank you so much!

[flavo]

glad to help mate!