Подскажите пожайлуста как мне програмно из входящего письма вытащить адресс отправителя? Я использую данный подход:

Set objNameSpace = objOutLook.GetNamespace("MAPI")

novoe_pismo:
Set objOrdersFolder = objNameSpace.Folders("Ëè÷íûå ïàïêè").Folders("Âõîäÿùèå")

lngKol_Message = objOrdersFolder.Items.Count

If lngKol_Message > 0 Then
Set objItem = objOrdersFolder.Items(1)

Set objAtts = objItem.Attachments

Set objItem1 = objItem.Reply
Set objAtts1 = objItem1.Attachments
objAtts1.Add strBufAdr & "\Report.txt", olByValue, 1, "Report"
objItem1.Display
objItem1.Send