Sub test()
Dim oNs As Outlook.NameSpace
Dim oF As Outlook.MAPIFolder
Dim oM As Outlook.MailItem
Set oNs = ThisOutlookSession.GetNamespace("MAPI")
Set oF = oNs.GetDefaultFolder(olFolderInbox)
Set oM = oF.Items(1)
oM.Display
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 47