devquestion.ru

Dim oOutlook As Object Dim oMailFolder ' папка в Outlook в которой нужно искать сообщение по теме Dim subj As String 'тема письма Dim olkMsg Set oOutlook = GetObject(, "Outlook.Application") If oOutlook Is Nothing Then Exit Function msgBox "Откройте Outlook" End If On Error Resum...