How to copy the senders address in Outlook

[lord of horses]

I would like to have a script that takes the email address ex. "Fake_Name@example.com" & sets the attachment to "Fake_Name" then saves that file to a set folder. I am struggling with capturing the email address. Is this possible?


Public Sub saveAttachtoDisk(itm As Outlook.MailItem)

Dim objAtt As Outlook.Attachment
Dim saveFolder As String

saveFolder = "C:\"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Set objAtt = Nothing
Next

End Sub

 

[AlphaFrog]

This will get the sender's email address and return the portion before the @ character.

[color=darkblue]Dim[/color] strSender [color=darkblue]As[/color] [color=darkblue]String[/color]


strSender = Split(itm.SenderEmailAddress, "@")(0)

 

[Domenic]

Or, for the display name...

Dim strSender As String

strSender = itm.SenderName

 

[AlphaFrog]

Or, for the display name...

Dim strSender As String

strSender = itm.SenderName

That may or may not be an email address that may have to be split as well

 

[Domenic]

@AlphFrog

Ah yes, very true. In that case, your method can be used here too, if the OP wants to use the sender's name.

Thanks!