ATNEL tech-forum

Re: Outlook i reguły wiadomości.

2017-03-02T07:49:19+01:00

No po prostu rewelacja. Instrukcja super. Zrobiłem sobie i wszystko szybciutko hula jak u.... lala....

Statystyki: Napisane przez lobowilk — 2 mar 2017, o 07:49

Re: Outlook i reguły wiadomości.

2017-02-27T10:50:36+01:00

Dodaję krótki poradnik, jak to szybko uruchomić i przetestować:

1.Na początek w Outlooku musimy włączyć jeśli jeszcze nie mamy, domyślnie wyłączoną kartę Deweloper.
Plik -> Opcje -> Dostosowywanie Wstążki -> Karty główne -> zaznacz pole wyboru Deweloper.

2.Następnie na nowo dołączonej karcie wybieramy ikonkę "VISUAL BASIC , lub skrót ALT+F11

3. W nowo otwartym oknie, które jest środowiskiem do programowania w VBA , mamy już widoczny PROJECT1 do którego, klikając na nim prawym przyciskiem myszy, dodajemy moduł (domyślna nazwa MODULE1)
w oknie modułu wklejamy kod, który nas interesuje. Zapisujemy i przechodzimy do tworzenia reguły

4. W definicji reguły musimy zaznaczyć opcje URUCHOM SKRYPT i wskazać nazwę naszego skryptu. Oczywiście można dodać inne warunki dla tej reguły

W takiej formie już to powinno działać. To mocno uproszczona procedura, ale wystarczająca jeśli ktoś nie potrzebuje zagłębiać tajników programowania w VBA. Kwestie nazewnictwa modułu, skryptu(makra) itp. są oczywiście dowolne.
Tą samą drogą możemy dodać kolejny skrypt lub rozbudować istniejący, który np. zapisze dany załącznik w określonej lokalizacji sieciowej

Statystyki: Napisane przez Darektci — 27 lut 2017, o 10:50

Re: Outlook i reguły wiadomości.

2017-02-26T14:53:32+01:00

Jak sprawdzę to dam znać. Ciekawe czy sobie poradzę z tym VB.

Statystyki: Napisane przez lobowilk — 26 lut 2017, o 14:53

Re: Outlook i reguły wiadomości.

2017-02-21T11:10:25+01:00

Musisz utworzyć skrypt w VBA, który wskazujesz do wykonania przy przetwarzaniu danej reguły.
Jeśli w nazwie choć jednego załącznika w odebranej wiadomości znajdzie się określona treść, to zostanie on przeniesiony do wskazanego folderu.
Mam coś takiego zrobione i działa bez problemu.
Nie jest to kod idealny, można dodać jeszcze chociażby obsługę błędów, czy inne warunki.
Póki co działa ,więc go nie udoskonalam

[syntax=vb]Sub move_by_attach(item As MailItem)

'Załącznik
Dim attach As Attachment

Dim oFolder As MAPIFolder
Dim oLs As Outlook.NameSpace
Set oNs = Application.GetNamespace("MAPI")

'Folder TEST do którego ma być przeniesona wiadomość. Folder znajduje się w skrzynce odbiorczej
Set oFolder = oNs.GetDefaultFolder(olFolderInbox).Folders("TEST")

'Jeśli true to przenieś do wybranego folderu
Dim move As Boolean
move = False

'Sprawdzenie czy wśród załączników jest choć jeden załącznik który ma w treści słowo "test" jeśli jest to move = true
If item.Attachments.Count > 0 Then
For Each attach In item.Attachments
If InStr(1, LCase(attach.FileName), LCase("test")) > 0 Then move = True
Next
End If

'Jeżeli znaleziono określony załącznik to przenieś do folderu
If move = True Then
item.move oFolder
End If

'Porządki
Set oFolder = Nothing
Set oNs = Nothing

End Sub[/syntax]

Statystyki: Napisane przez Darektci — 21 lut 2017, o 11:10

Outlook i reguły wiadomości.

2017-02-17T12:13:18+01:00

Witam.

Mam taki mały problem, może ktoś zna jakieś rozwiązanie.

Próbowałem napisać regułę która po nazwie załącznika do maila przenosiła by go do innego folderu, lecz niestety nie znalazłem takiej opcji.
Da się ułożyć regułe z warunkiem jeśli posiada załącznika, ale nie da po nazwie tego załącznika.
Używam Microsoft outlooka 2010.

Czy macie może jakichś pomysł jak to rozwiązać?

Statystyki: Napisane przez lobowilk — 17 lut 2017, o 12:13