Reguła DW

Pytania, problemy, uwagi związane ze starszymi wersjami Microsoft Outlook 2003, 2002 (XP), 2000, 98

Moderator: Moderatorzy

Reguła DW

Postprzez dzajo89 » Cz 29.11.2018 10:43

Heya,
mam pytanie czy da się zrobić regułę do wiadomości przychodzących uwzględniając tylko DW. Próbowałem stworzyć taką regułę za pomocą Krok 1: wysłanej do XXX Krok 2: przenieś ją do folderu ABC. Ale po wpisaniu reguły oraz jej zastosowaniu uwzględnia mi również wiadomości przychodzące od DO a nie tylko DW. Mam pytanie czy ma może ktoś jakiś pomysł na taką regułę oraz czy w ogóle da się taką wykonać, z góry dziękuje za odp.
dzajo89
 
Posty: 4
Dołączył(a): Śr 21.11.2018 20:05

Re: Reguła DW

Postprzez OShon » Cz 29.11.2018 13:29

J a nie odszukałem aby kreator miał DW jako parametr. Raczej tylko czy mój adres jest w DW (j.n).

OL_Reguła_DW.png

Podejrzewam że taki warunek należało by oprogramować.
Pytanie co chcesz zrobić jeśli warunek będzie spełniony?
Obrazek
Oskar Shon - MVP Office System/Development 11/19, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 9677
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Projekt autorski VBATools.pl

Re: Reguła DW

Postprzez dzajo89 » Cz 29.11.2018 14:49

Chodzi mi o to że dostaje dużo wiadomości około (500) i chciałbym aby reguła działała mi tylko do DW ponieważ jak dostaję wiadomości i one mają DO (różni odbiorcy) oraz zawsze te same DW (około 100) do tych wyjątkowych wiadomości. Po prostu chciałbym aby reguła działała tylko do DW (po przyjściu wiadomości od np. XXX) została przesłana do Folderu np. Inne. Mam pytanie do oprogramowania danej reguły jak to zrobić.
dzajo89
 
Posty: 4
Dołączył(a): Śr 21.11.2018 20:05

Re: Reguła DW

Postprzez OShon » Cz 29.11.2018 20:13

Nie wiem czy dobrym rozwiązaniem dla ciebie nie byłoby zrobienie folderu wyszukiwania z konkretnymi założeniami filtracji dla pola DW.
Niemniej jednak jak chcesz rozpoznać temat programowania (choć raczej wyczuwam, że jesteś w tym przypadku szczypiorek), to polecam na start ten artykuł: Reguły - Uruchomienie skryptów i aplikacji. Jest tam jeden link o regułach i skryptach, ale zacznij od treści tego właśnie bo opcję ich uruchamiania należy wpierw włączyć.
Obrazek
Oskar Shon - MVP Office System/Development 11/19, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 9677
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Projekt autorski VBATools.pl

Re: Reguła DW

Postprzez dzajo89 » Cz 06.12.2018 15:33

Ja dalej w sprawie tego DW znalazłem w Internecie takie Makra i chciałem spróbować czy działają, mam pytanie w jaki sposób oprogramować tą regułę aby była w polach kreatora miał jako parametr.

Kod: Zaznacz cały
Sub MoveMail(Item As Outlook.MailItem)
    Dim strID As String
    Dim objMail As Outlook.MailItem
   
    strID = Item.EntryID
    Set objMail = Application.Session.GetItemFromID(strID)

   If objMail.CC = "dl or alias name" Then
      objMail.Move Session.GetDefaultFolder(olFolderInbox).Folders("subfolder-name")
   End If

Set objMail = Nothing

End Sub


-------------------------

Option Explicit

Private WithEvents olInboxItems As Items

Private Sub Application_Startup()
  Dim objNS As NameSpace
  Set objNS = Application.Session
  ' instantiate objects declared WithEvents
  Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
  Set objNS = Nothing
End Sub

Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
  On Error Resume Next
  Dim strID As String
    Dim objMail As Outlook.MailItem
   
    strID = Item.EntryID
    Set objMail = Application.Session.GetItemFromID(strID)

   If objMail.CC = "alias" Then
      objMail.Move Session.GetDefaultFolder(olFolderInbox).Folders("folder-name")
   End If

Set objMail = Nothing

End Sub
dzajo89
 
Posty: 4
Dołączył(a): Śr 21.11.2018 20:05

Re: Reguła DW

Postprzez OShon » Pt 07.12.2018 14:04

Skoro nie chcesz sam napisać tylko podpierasz się znalezionymi kodami to podłącz je do klasy ThisOutlookSession, zmień dane na adres jaki Cię interesuje i testuj.
Do czego ci jestem potrzebny?
Obrazek
Oskar Shon - MVP Office System/Development 11/19, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 9677
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Projekt autorski VBATools.pl


Powrót do Microsoft Outlook

Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników i 5 gości