-1

Некоторые сообщения экспортируются из папки Outlook на лист Excel, поэтому я получаю в Excel список EntryIDs, ConversationIDs, Subjects и т.д. Из этого списка мне нужны только конкретные идентификаторы. В макрос Outlook можно передать только те идентификаторы, которые мне нужны? Я нашел код для пересылки сообщений в Outlook, но я не знаю, как реализовать список Excel (под) в качестве условия. Спасибо

Sub Forward_Emails()

Dim objOL As outlook.Application
Dim objFolder As outlook.MAPIFolder
Dim objItems As outlook.Items
Dim obj As Object
Dim olItem As outlook.MailItem


Set objOL = outlook.Application
Dim olNs As outlook.NameSpace
Set olNs = objOL.GetNamespace("MAPI")
Set objFolder = olNs.GetDefaultFolder(olFolderInbox).Folders("elena")
Set objItems = objFolder.Items

For Each obj In objItems
Set olItem = obj '.Forward

If InStr(1, UCase(olItem.Subject), UCase("solutions")) > 0 Then

'olItem.Subject = "fwer: " & olItem.Subject
'olItem.Recipients.Add "ddd.bbb@rrrr.com"
'olItem.Send

MsgBox olItem.Subject

End If

Next
End Sub
|источник

0