Moderator: Moderatorzy
Public Sub odpal_regule(item As MailItem)
'MVP OShon VBATools.pl
Dim olRules As Rules, olRule As Rule
Set olRules = Application.Session.Stores.item("nazwa konta").GetRules
olRules.item("nawa reguły").Execute 'True 'pokazywanie postepu
End Sub
Sub Nazwy_kont()
Dim s As store
For Each s In Application.Session.Stores
Debug.Print s.DisplayName
Next
End Sub
OShon napisał(a):Do nast linki wklejasz swoją nazwę reguły która ci nie działa, albo kopiujesz ją i wpisujesz jeden pod drugim z nazwami twoich 2ch reguł dla każdej z osobna.
Zobacz czy tak zadziała i napisz czy na jedną czy na wszystkie z 5ciu identycznych.
OShon napisał(a):Sub Nazwy_kont()
Dim s As store
For Each s In Application.Session.Stores
Debug.Print s.DisplayName
Next
End Sub
Sub Nazwy_kont()
Dim s As store
For Each s In Application.Session.Stores
Debug.Print s.DisplayName
Next
End Sub
Powrót do Microsoft Outlook 2007 / 2010 / 2013 / 2016
Użytkownicy przeglądający ten dział: Google [Bot] i 6 gości