Lea rašė:
......pvz pavadinimu "laiskas ORDER". Dabar darau tai rankiniu būdu, bet pamaniau, kad galima pritaikyti Rules. Tik iš visų galimybių, pateikiamų Rules radau vienintelį galima - sukurti "custom action", kurį pasirenki taisyklės sąlygoje ir taisyklė tą sąlygą vykdo. Tik va nesupratau dar KAIP sukurti tą "custom action".
Pasikrapsčiau pakaušį ir sumasčiau kai ką.
VBA kodas,kuris talpinamas į Microsoft Outlook modulį:
----------------------------------------------------
Sub ManoRule(Item As Outlook.MailItem)
'jei gautame laiške yra prikabintas failas-jis(failas) perkeliamas į PC nustatytu keliu
Dim objFSO As Object, _
olkAttachment As Outlook.Attachment, _
strFolderName As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each olkAttachment In Item.Attachments
'pirmiausia sukuriame voką C diske(galima ir kitur,tik reikia nurodyti kelią),šiuo atvėju vokas vadinasi_ABA2013_
'bet jį galima pakeisti.
strFolderName = "C:\ABA2013\" & objFSO.GetExtensionName(olkAttachment.FileName)
If Not objFSO.FolderExists(strFolderName) Then
objFSO.CreateFolder strFolderName
End If
olkAttachment.SaveAsFile strFolderName & "\" & olkAttachment.FileName
Next
Set objFSO = Nothing
Set olkAttachment = Nothing
End Sub
-----------------
Ir prikabinti failai automatiškai nukeliauja į jūsu PC nustatytu keliu.
Testavau su Microsoft Outlook 2010.Macro komandų leidimas turi būti įjungtas.