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

Moderatori: janis.wd, Vecākie lietotāji

User avatar
bluebird
Reģistrēts lietotājs
Atbildes: 263
Pievienojies: 26 Jan 2010, 13:10
Reputācija: 0

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

Post no bluebird » 08 Apr 2010, 10:21

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: Select all

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š!! :)
Last edited by bluebird on 08 Apr 2010, 14:34, edited 1 time in total.

User avatar
KristoZ
Vecākais lietotājs
Atbildes: 761
Pievienojies: 17 Nov 2008, 15:17
Reputācija: 0
Atrodas: Latvija

Post no KristoZ » 08 Apr 2010, 14:26

Lai arī ar VB skriptiem neesmu diez ko ņēmies, tomēr acīs iekrita:
Const UNREAD_MSGS_ONLY = 2
Vai ir mēģināts to vērtību pamainīt pret, piemēram, "0" vai "False"?

User avatar
bluebird
Reģistrēts lietotājs
Atbildes: 263
Pievienojies: 26 Jan 2010, 13:10
Reputācija: 0

Post no bluebird » 08 Apr 2010, 14:33

Jap!
Sanāca! Nomainīju

Code: Select all

Const UNREAD_MSGS_ONLY = 2
Pret:

Code: Select all

Const UNREAD_MSGS_ONLY = False

Pievienot atbildi

Return to “Cita programmatūra ”