Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
Przesunięty przez: Zbiniek
18-04-2019, 07:46
Wyszukiwanie w outlooku
Autor Wiadomość
vorkosigan 
Exceloholic


Pomógł: 84 razy
Posty: 184
Wysłany: 12-04-2019, 09:59   Wyszukiwanie w outlooku

Witam

Kod:

Sub SzukajWOutlooku()
Dim olApp As Object
   
    If Selection.Count = 1 And Not IsEmpty(Selection.Value) Then
   
        On Error Resume Next
        Set olApp = GetObject(, "Outlook.Application")
        On Error GoTo 0
       
        If Not (olApp Is Nothing) Then
           
            coSzukac = """" + CStr(Selection.Value) + """"
            Set olApp.ActiveExplorer.CurrentFolder = olApp.Session.GetDefaultFolder(6)
             
            With olApp.ActiveExplorer
                .ClearSearch 'Remove the current search
                .Search coSzukac, 1 'olSearchScopeAllFolders 'Setup the new search
                .Activate 'Run the search

            End With
        Else
            MsgBox "Uruchom Outlook", vbExclamation, "Szlak"
        End If

    End If

Set olApp = Nothing

End Sub



Wszytko śmiga ale mały szczegół mnie irytuje -> załącznik
Po uruchomieniu makra, wyświetla się outlook z oknem podpowiedzi co mi akurat nie pasuje :-/

Jakieś pomysły?

Pozdrawiam
vorkosigan

out.png
okno podpowiedzi pod paskiem wyszukiwania
Plik ściągnięto 18 raz(y) 28.67 KB

ID posta: 365926 Skopiuj do schowka
 
 
OShon 
Excel Expert



Zaproszone osoby: 383
Wersja: Win Office 365
Pomógł: 1625 razy
Posty: 8284
Wysłany: 12-04-2019, 23:57   

Generalnie szukajka nie jest dobrym rozwiązaniem. Jest wdrożona do Outlook i jakoś działa, ale więcej z nią problemów bo często pada, a i nie wyszukuje dokładnie. Opiera się ona na systemowym mechanizmie, a nie wbudowanym w Outlooku. Ty odwołujesz sie zresztą do ActiveExplorer wiec nie dziwne że widzisz skutek tego szukania (czyli prace pola szukajki). Lepiej jest używać metody folderów wyszukania które opierają sie na SQLu a i wynik przypiszesz do zmiennej lub kolekcji.
Więcej info masz na tej stronie https://www.outlook.pl/Tw...parametrow/497/

Bez tworzenia folderu możesz zrobić np tak, że wynik przypisujesz do kolekcji odfiltrowanych mailitemów:
Kod:
Dim OlFilter As Object ' Outlook.Items
Dim x%
Set OlFilter = objFolder.Items.Restrict(Zapytanie)
ReDim tbl(1 To OlFilter.Count)
    For x = 1 To OlFilter.Count
      debug.print OlFilter(x).Subject
    Next

Połącz te dwa kody rozmyślnie a będziesz miał swoje rozwiązanie.
_________________
Oskar Shon - MVP Office System/Development 11/19r, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Sprawdź promocje na polskie dodatki do MS Office w VBATools.pl
ID posta: 365973 Skopiuj do schowka
 
 
vorkosigan 
Exceloholic


Pomógł: 84 razy
Posty: 184
Wysłany: 17-04-2019, 14:15   

Witam

Dzięki za odpowiedź ale chyba nie do końca napisałem co mi przeszkadza ;)
To, że się pojawia outlook i widać proces wyszukiwania -> efekt zamierzony :mrgreen: . To co mi przeszkadza, to okienko podpowiedzi które nie znika podczas szukania trzeba kliknąć myszką aby znikło.

Odnośnie Restrict jak ustawić przeszukiwanie wszystkiego tak jak tu
Kod:

.Search coSzukac, 1 'olSearchScopeAllFolders


Pozdrawiam
vorkosigan
ID posta: 366219 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe