Organizēt e-pastus Outlook 2007 automātiski 1x nedēļā [

[bluebird]

Labrīt!

Man darbā pajautāja, lai es MS Outlook 2007 izveidoju funkciju, kas ik pēc trim dienām izmētā e-pastus pa mapēm.

Atradu internetā aprakstu kā izveidot skriptu kurš izpilda Rules ik pēc noteikta laika.

Code:

1. Open Notepad.

2. Copy the code in the snippet and paste it into Notepad. Edit the code as needed. We placed comments where things can/need to change.

‘Change the following three constants as desired
Const SHOW_PROGRESS = True
Const INCLUDE_SUBFOLDERS = False
Const UNREAD_MSGS_ONLY = 2
Dim olkApp, olkSes, olkFolder, olkRule
Set olkApp = CreateObject(”Outlook.Application”)
Set olkSes = olkApp.GetNameSpace(”MAPI”)
‘Change Outlook on hte next line to the name of your mail profile’
olkSes.Logon “Outlook”
Set olkFolder = olkSes.GetDefaultFolder(6)
For Each olkRule In olkSes.DefaultStore.GetRules
olkRule.Execute SHOW_PROGRESS, olkFolder, INCLUDE_SUBFOLDERS, UNREAD_MSGS_ONLY
Next
Set olkRule = Nothing
Set olkFolder = Nothing
olkSes.Logoff
Set olkSes = Nothing
Set olkApp = Nothing

4. Save the file with a .vbs extension.

5. Test the script by double-clicking it. All of your rules should execute.

6. Create a scheduled task using Windows Task Scheduler.

7. Set the task to run this script.

Tas takā būtu skaidrs, bet problēma ir iekš tā, ka tie Rules izpildās tikai saņemot e-pastu nevis jau esošiem e-pastiem Inbox mapē.

Kā man atrisināt šo sāpi?? 🙁

Paldies jau iepriekš!! 🙂

[KristoZ]

Lai arī ar VB skriptiem neesmu diez ko ņēmies, tomēr acīs iekrita:

Quote:

Const UNREAD_MSGS_ONLY = 2

Vai ir mēģināts to vērtību pamainīt pret, piemēram, “0” vai “False”?

[bluebird]

Jap!

Sanāca! Nomainīju

Code:

Const UNREAD_MSGS_ONLY = 2

Pret:

Code:

Const UNREAD_MSGS_ONLY = False

[Autors]

Ieraksti