Skrypty w regułach - outlook

[manhattan0]

Witam,

W edytorze rejestru dodałam klucz zgodnie z artykułem "Reguły - Uruchomienie skryptów i aplikacji" - załącznik
Niestety wciąż przy tworzeniu nowej reguły nie ma możliwości uruchomienia skryptu...
Gdzie może leżeć przyczyna?
Jest to office365.
Bardzo proszę o pomoc.

[OShon]

A dlaczego stworzyłeś dodatkowy łańcuch i to po polsku?
https://www.outlook.pl/Reguly-8211-Uruchomienie-skryptow-i-aplikacji/518/

[manhattan0]

Dziękuję, teraz działa.

Pozwoliłam sobie użyć kodu :

Kod: Zaznacz cały

Sub SaveMyMsg(MyMail As MailItem)
'MVP OShon from VBATools.pl
 Dim fso As Object 'FileSystemObject
 Dim strID$, strFolderPath$, strSaveName$
 Dim olNS As Outlook.NameSpace
 Dim oMail As Outlook.MailItem

 strID = MyMail.EntryID
 Set olNS = Application.GetNamespace("MAPI")
 Set oMail = olNS.GetItemFromID(S10)
 strFolderPath = MakeWholePath("C:\Nowy folder")
 strSaveName = "Zapasy" & Format(Now, "YYYY-MM-DD_HH-MM") & ".txt"
 Set fso = CreateObject("Scripting.FileSystemObject")

 If fso.FileExists(strFolderPath & strSaveName) Then
    fso.DeleteFile strFolderPath & strSaveName
 End If

 oMail.SaveAs strFolderPath & strSaveName, olTXT

 Set oMail = Nothing
 Set olNS = Nothing
 Set fso = Nothing
End Sub

Private Function FileExists(FilePath As String) As Boolean
On Error GoTo blad
 FileExists = Len(Dir(FilePath, vbDirectory Or vbHidden Or vbSystem)) > 0
Exit Function
blad:
FileExists = False
End Function

Private Sub MakeWholePath(FileWithPath As String)
Dim x&, PathToMake$
For x = LBound(Split(FileWithPath, "\")) To UBound(Split(FileWithPath, "\")) - 1
 PathToMake = PathToMake & "\" & Split(FileWithPath, "\")(x)
 If Right$(PathToMake, 1) <> ":" Then
 If FileExists(Mid(PathToMake, 2, Len(PathToMake))) = False Then _
 MkDir Mid(PathToMake, 2, Len(PathToMake))
 End If
Next
End Sub


Niestety nie działa mi. Czy dobrze określiłam folder do którego wpadają wiadomości? Nie jest to główna skrzynka a właśnie folder o nazwie "S10"

[OShon]

A na zdrowie, faktycznie moja.
Generalnie widzę że pierwsze kroki i od razu na głęboką wodę..
S10 jak jest nazwą to powinien być stringiem czyli w zajączkach "S10" ale to i tak będzie źle bo to złe miejsce na wpisanie nazwy.
Kopiujesz procedure z parametrem i jej zmienna wejściowa określa jaki mail ma być przerobiony. Procedury nie interesuje skąd ten mail pochodzi bo przekazujesz go regułą.
Zatem w regule należy dobrze określić warunki.

Poza tym zanim mail trafi do pod folderu np "S10" to będzie i tak w odbiorczej, a potem zostaje przeniesiony....
Zastanów się zatem co zrobić, jaką kolejność, jakie warunki, a psucie procedurki to sobie podaruj, bo nie bardzo wiesz co wyciąłeś.
Na forum wpisz nazwę procedury i zobacz jak ludzie walczyli i jakie są moje podpowiedzi w temacie.

VBATools_Automatyzacja_24.png (25.64 KiB) Przeglądane 1232 razy

[manhattan0]

Faktycznie nie pomyślałam logicznie - trochę wstyd.

No więc wprowadziłam kod do modułu projektu, następnie utworzyłam regułę, do której podpięłam SaveMyMsg i wciąż coś nie działa
Poprawiłam też w kodzie to co nabroiłam.

[OShon]

No to tak, dodaj sobie Breaking point albo stop i po odebraniu właściwej wiadomości przechodź krokowo [F8] po liniach i sprawdź co jest nie tak.

XL_VBA_Breaking_point.png (7.38 KiB) Przeglądane 1229 razy

Ja tam widzę na pierwszy rzut oka problem ze ścieżka do pliku.
Tworzysz moją procedurką katalog, ale nie dajesz potem w nazwie pliku "\" wiec zapis tego pliku w tym katalogu się nie odbywa.
Poza tym powinien ci się kod wywalić bo nie ma obsługi błędu.

[manhattan0]

Dodałam STOP oraz poprawiłam ścieżkę

I nic się nie dzieje, nie ma żadnych błędów.
Gdzie jeszcze ewentualnie może leżeć problem?

[manhattan0]

Po włączeniu makr i uruchomieniu outlooka ponownie dostałam taki błąd jak w zał.

Co może być przyczyną?
________________________________________________________________________________________________________

[OShon]

Aaa no bo użyłeś procedury, a nie funkcji. Procedura nic nie zwraca. Po prostu ją wywołujesz, względnie możesz coś wynieść poza procedure do zmiennych globalnych. No ale nie wychodźmy tak daleko.
napisz zamiast tej linijki tak:

Kod: Zaznacz cały

strFolderPath = "C:\Nowy folder\"
call MakeWholePath(strFolderPath)

[manhattan0]

Dziękujeee!!!! Działa pięknie

[OShon]

Patrzę do historii i ja popełniłem błąd przed laty (9lat temu) sugerując tak właśnie.
Widać nikt mnie nie poprawił
ech... i po jakiego grzyba.