VBA Integracja Excela z Outlookiem

Cześć,

Potrzebuję waszej porady.
Chciałbym zautomatyzować proces, który polega na wyszukiwaniu w skrzynce [Outlook] meila o określonym subject i body. Chciałbym to robić z poziomu excela jako, że w wygenerowanym raporcie mam numer ref po których chcę aby meile były wyszukiwane.

W skrócie chcę zastąpić poniższy schemat jednym kliknięciem.

1. copy ref number [excel]
2. paste do serchboxa odpowiedniej skrzynki [outlook]
3. otworzenie meila [outlook]
   (4. ewentualnie chciałbym jeszcze dodać automatyczne zapisywanie w określonym folderze) [disc]

Chyba, że macie inny sposób na zoptymalizowanie tego procesu.

Nie robiłęm tego od strony Excela, ale wydaje mi się, że ze względu na zabezpieczenia będziesz miał problemy, by to zrobic w pełni automatycznie...
Wydaje mi się , że lepiej będzie to zrobić od ... (Outlooka) strony. Tzn akcje na NewItem. Wtedy sprawdzasz, czy mail spełnia warunki i ew. zapisujesz całą treść lub tylko załącznik w określone miejsce z określoną nazwą. Potem juz z górki.

lookniecie na mój code

Dim o As Outlook.Application
Set o = New Outlook.Application

Dim ons As Outlook.Folder
Set ons = o.GetNamespace("mapi")

Dim myfol As Outlook.Folder
Set myfol = ons.getdefaulfolder(olFolderDrafts)

Dim omail As Outlook.MailItem
Set omail = o.CreateItem(oimailItem)

Dim r As Long
r = 2

For Each omail In myflo.Items

If omail.Body = "specific text" Then
omail.Display

Cells(r, 1).Value = omail.Body

r = r + 1

End If



Next omail

Chce aby po pewnej frazie kod zapisywal mi body meila w excelu [dziala] i wyswietlil meila [cos nie tak]

Czy funkcja IF jest dobrym rozwiazaniem w tym przypadku?

Ta linia Set omail = o.CreateItem(oimailItem) jest zupełnie niepotrzebna.Jeśli dojdzie ci do For Eacha,to znaczy, że wszystko jest OK. IF jest prawidłowy. Tylko po zakończeniu działania raz, że nie czyścisz zmiennych, a dwa bedziesz mial mnostwo maili otwarych...

To, ze meile beda otwarte to akurat nie problem.

Problem mam w tym, ze
If omail.Body = "specific text" Then omail.Display

nie filtruje mi wiadomosci. Jak dobrze rozumiem jezeli wpisze jedno slowo w "specific text" po ktorym chce wyszukac to powinno wyswietlic mi konkretnego meila zawierajacego te fraze ?

Generalnie sciaga mi sie cala skrzynka- wiadomosci nie sa filtrowane