Reguła DW

[dzajo89]

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.

[OShon]

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

Podejrzewam że taki warunek należało by oprogramować.
Pytanie co chcesz zrobić jeśli warunek będzie spełniony?

[dzajo89]

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ć.

[OShon]

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ć.

[dzajo89]

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

[OShon]

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?