Хочу определить адресс отправителя активного письма. Это - то получилось, вот только как избавиться от окна-предупреждения????? Кому нибудь удалось его обойти???

Sub АдрессОтправителя()

Dim objCDO As MAPI.Session
Dim objMSG As MAPI.message
Dim objSender As MAPI.AddressEntry
Dim oMsg As Outlook.MailItem
Dim strMsg As String

On Error Resume Next

'Set myFolder = Application.GetNamespace("MAPI").GetDefaultFolder(6)
Set oMsg = Application.ActiveExplorer.Selection.Item(1)
Set objCDO = CreateObject("MAPI.Session")
objCDO.Logon "", "", False, False
Set objMSG = objCDO.getmessage(oMsg.EntryID)
Set objSender = objMSG.sender
strMsg = objSender.Address
End Sub

Неужели на сайте одни любители собрались??? Разочаровываете гопода :(!