Jump to content
Sign in to follow this  
Followers 0
Sticky

Removing Sync Issues & Conflicts in Outlook

By Sticky, in AutoIt Example Scripts

Recommended Posts

Sticky    0

Sticky
Posted (edited)

For all the BES Admins out there who's users require Cached Exchange Mode in Outlook 2007, and enable it even though it's not officially supported (like myself) and realize the consequences are bloated sync issues and conflicts, I've developed this script (kudos to Juvigy):

#NoTrayIcon
#include <Array.au3>

const $olFolderConflicts=19
const $olFolderSyncIssues=20
const $olFolderDeletedItems=3
const $PR_SEARCH_KEY = "http://schemas.microsoft.com/mapi/proptag/0x300B0102"

Dim $searchKeys[1]
$oOApp = ObjCreate("Outlook.Application")
$myNamespace = $oOApp.GetNamespace("MAPI")

;store the current receipt response setting
$receiptSetting = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Options\Mail","Receipt Response")
;don't respond to any possible receipts, as these are duplicates we're deleting
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Options\Mail", "Receipt Response", "REG_DWORD", 1)

;empty conflicts
$myFolder = $myNamespace.GetDefaultFolder($olFolderConflicts)
$myItems = $myFolder.Items().Count
For $i = $myItems To 1 Step -1
    ;get the item's search key which remains unique and does not change across exchange mailboxes unlike the EntryID
    _ArrayAdd($searchKeys, $myFolder.Items($i).PropertyAccessor.GetProperty($PR_SEARCH_KEY))
    ;mark as read first to prevent read receipt confusion massacre
    $myFolder.Items($i).UnRead = False
    ;delete the mail item
    $myFolder.Items($i).Delete()
Next

;empty sync issues
$myFolder = $myNamespace.GetDefaultFolder($olFolderSyncIssues)
$myItems = $myFolder.Items().Count
For $i = $myItems To 1 Step -1
    _ArrayAdd($searchKeys, $myFolder.Items($i).PropertyAccessor.GetProperty($PR_SEARCH_KEY))
    $myFolder.Items($i).UnRead = False
    $myFolder.Items($i).Delete()
Next

;permanently delete sync issues and conflicts
$myFolder = $myNamespace.GetDefaultFolder($olFolderDeletedItems)
$myItems = $myFolder.Items().Count
For $i = $myItems To 1 Step -1
    ;see if the searchkey is in the deleted sync or conflict mail items
    $found = _ArraySearch($searchKeys, $myFolder.Items($i).PropertyAccessor.GetProperty($PR_SEARCH_KEY), 1)
    If $found > 0 Then $myFolder.Items($i).Delete()
Next

;restore the receipt response setting
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Options\Mail", "Receipt Response", "REG_DWORD", $receiptSetting)
Edited by Sticky

Share this post

Link to post
Share on other sites

Sticky    0

Sticky
Posted (edited)

After using the above script, several of my Outlook users have complained of slow-down or a complete freeze of Outlook while this does its maintenance. To get around this, I've used _Timer_GetIdleTime() to hook into Window's idle time. By doing this, the sync issues and conflicts are only removed when the user hasn't touched their mouse or keyboard for over 1 minute. If they do, this stops in its tracks and waits for a minute of idle time before picking up where it left off. If the computer is idle all day long, it will check for new sync issues and conflicts at a maximum of every 10 minutes.

#NoTrayIcon

#include <Array.au3>
#include <Timers.au3>

Global $oMyError = ObjEvent("AutoIt.Error", "ErrFunc")
Global $lastRemoval = TimerInit()
Global $removeReady = False
Global $receiptSetting = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Options\Mail","Receipt Response")

Global $firstStart = True
Global $idleTime

const $olFolderConflicts=19
const $olFolderSyncIssues=20
const $olFolderDeletedItems=3
const $PR_SEARCH_KEY = "http://schemas.microsoft.com/mapi/proptag/0x300B0102"

AdlibRegister("_idleControl", 500)

While 1
    Sleep(100)
    If $removeReady = True Then
        If TimerDiff($lastRemoval) > (10 * 60 * 1000) Or $firstStart = True Then ;more than 10 minutes
            $firstStart = False
            _clearSyncsConfs()
        EndIf
    EndIf
WEnd

Func _clearSyncsConfs()
    Dim $searchKeys[1]
    $searchKeys[0] = 0
    $oOApp = ObjCreate("Outlook.Application")
    If $oOApp = 0 Then Exit;looks like Outlook isn't installed
    $myNamespace = $oOApp.GetNamespace("MAPI")

    ;store the current receipt response setting
    $receiptSetting = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Options\Mail","Receipt Response")
    ;don't respond to any possible receipts, as these are duplicates we're deleting
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Options\Mail", "Receipt Response", "REG_DWORD", 1)

    ;empty conflicts
    $myFolder = $myNamespace.GetDefaultFolder($olFolderConflicts)
    $myItems = $myFolder.Items().Count
    For $i = $myItems To 1 Step -1
        ;get the items search key which remains unique and does not change
        _ArrayAdd($searchKeys, $myFolder.Items($i).PropertyAccessor.GetProperty($PR_SEARCH_KEY))
        ;mark as read first to prevent read receipt confusion massacre
        $myFolder.Items($i).UnRead = False
        ;delete
        $myFolder.Items($i).Delete()

        If $removeReady = False Then
            _stopDeletion()
            _idleWait()
        EndIf
    Next

    ;empty sync issues
    $myFolder = $myNamespace.GetDefaultFolder($olFolderSyncIssues)
    $myItems = $myFolder.Items().Count
    For $i = $myItems To 1 Step -1
        _ArrayAdd($searchKeys, $myFolder.Items($i).PropertyAccessor.GetProperty($PR_SEARCH_KEY))
        $myFolder.Items($i).UnRead = False
        $myFolder.Items($i).Delete()

        If $removeReady = False Then
            _stopDeletion()
            _idleWait()
        EndIf
    Next

    ;permanently delete sync issues and conflicts
    $myFolder = $myNamespace.GetDefaultFolder($olFolderDeletedItems)
    $myItems = $myFolder.Items().Count
    For $i = $myItems To 1 Step -1
        $found = _ArraySearch($searchKeys, $myFolder.Items($i).PropertyAccessor.GetProperty($PR_SEARCH_KEY), 1)
        If $found > 0 Then $myFolder.Items($i).Delete()

        If $removeReady = False Then
            _stopDeletion()
            _idleWait()
        EndIf
    Next

    ;restore the receipt response setting
    _stopDeletion()

    $lastRemoval = TimerInit()

    Return
EndFunc

Func _idleControl()
    $idleTime = _Timer_GetIdleTime()
    If $idleTime > (60 * 1000) Then ; 1 minute
        $removeReady = True
    Else
        $removeReady = False
    EndIf
EndFunc

Func _idleWait()
    While $removeReady = False
        Sleep(1000)
    WEnd
    $receiptSetting = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Options\Mail","Receipt Response")
EndFunc

Func _stopDeletion()
    Sleep(3500)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Options\Mail", "Receipt Response", "REG_DWORD", $receiptSetting)
EndFunc

Func ErrFunc()
    AdlibUnRegister("_idleControl")
    _stopDeletion()
    $lastRemoval = TimerInit()
    $removeReady = False

    $error = "We intercepted an Error !"      & @CRLF  & @CRLF & _
             "err.description is: "    & @TAB & $oMyError.description    & @CRLF & _
             "err.windescription:"     & @TAB & $oMyError.windescription & @CRLF & _
             "err.number is: "         & @TAB & hex($oMyError.number,8)  & @CRLF & _
             "err.lastdllerror is: "   & @TAB & $oMyError.lastdllerror   & @CRLF & _
             "err.scriptline is: "     & @TAB & $oMyError.scriptline     & @CRLF & _
             "err.source is: "         & @TAB & $oMyError.source         & @CRLF & _
             "err.helpfile is: "       & @TAB & $oMyError.helpfile       & @CRLF & _
             "err.helpcontext is: "    & @TAB & $oMyError.helpcontext

    MsgBox(0, "Error Removing Items from Outlook", $error)

    Local $err = $oMyError.number
    If $err = 0 Then $err = -1

    $g_eventerror = $err  ; to check for after this function returns

    Exit
Endfunc
Edited by Sticky

Share this post

Link to post
Share on other sites

SteveA    0

SteveA
Posted

Hi there. As someone who is not that versed in using scripts, can you let me know where I would place the script. We constantly have issues with bloated mailboxes stemming from conflicts between our BES and Exchange.

Thanks!!

After using the above script, several of my Outlook users have complained of slow-down or a complete freeze of Outlook while this does its maintenance. To get around this, I've used _Timer_GetIdleTime() to hook into Window's idle time. By doing this, the sync issues and conflicts are only removed when the user hasn't touched their mouse or keyboard for over 1 minute. If they do, this stops in its tracks and waits for a minute of idle time before picking up where it left off. If the computer is idle all day long, it will check for new sync issues and conflicts at a maximum of every 10 minutes.

#NoTrayIcon

#include <Array.au3>
#include <Timers.au3>

Global $oMyError = ObjEvent("AutoIt.Error", "ErrFunc")
Global $lastRemoval = TimerInit()
Global $removeReady = False
Global $receiptSetting = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Options\Mail","Receipt Response")

Global $firstStart = True
Global $idleTime

const $olFolderConflicts=19
const $olFolderSyncIssues=20
const $olFolderDeletedItems=3
const $PR_SEARCH_KEY = "http://schemas.microsoft.com/mapi/proptag/0x300B0102"

AdlibRegister("_idleControl", 500)

While 1
    Sleep(100)
    If $removeReady = True Then
        If TimerDiff($lastRemoval) > (10 * 60 * 1000) Or $firstStart = True Then ;more than 10 minutes
            $firstStart = False
            _clearSyncsConfs()
        EndIf
    EndIf
WEnd

Func _clearSyncsConfs()
    Dim $searchKeys[1]
    $searchKeys[0] = 0
    $oOApp = ObjCreate("Outlook.Application")
    If $oOApp = 0 Then Exit;looks like Outlook isn't installed
    $myNamespace = $oOApp.GetNamespace("MAPI")

    ;store the current receipt response setting
    $receiptSetting = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Options\Mail","Receipt Response")
    ;don't respond to any possible receipts, as these are duplicates we're deleting
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Options\Mail", "Receipt Response", "REG_DWORD", 1)

    ;empty conflicts
    $myFolder = $myNamespace.GetDefaultFolder($olFolderConflicts)
    $myItems = $myFolder.Items().Count
    For $i = $myItems To 1 Step -1
        ;get the items search key which remains unique and does not change
        _ArrayAdd($searchKeys, $myFolder.Items($i).PropertyAccessor.GetProperty($PR_SEARCH_KEY))
        ;mark as read first to prevent read receipt confusion massacre
        $myFolder.Items($i).UnRead = False
        ;delete
        $myFolder.Items($i).Delete()

        If $removeReady = False Then
            _stopDeletion()
            _idleWait()
        EndIf
    Next

    ;empty sync issues
    $myFolder = $myNamespace.GetDefaultFolder($olFolderSyncIssues)
    $myItems = $myFolder.Items().Count
    For $i = $myItems To 1 Step -1
        _ArrayAdd($searchKeys, $myFolder.Items($i).PropertyAccessor.GetProperty($PR_SEARCH_KEY))
        $myFolder.Items($i).UnRead = False
        $myFolder.Items($i).Delete()

        If $removeReady = False Then
            _stopDeletion()
            _idleWait()
        EndIf
    Next

    ;permanently delete sync issues and conflicts
    $myFolder = $myNamespace.GetDefaultFolder($olFolderDeletedItems)
    $myItems = $myFolder.Items().Count
    For $i = $myItems To 1 Step -1
        $found = _ArraySearch($searchKeys, $myFolder.Items($i).PropertyAccessor.GetProperty($PR_SEARCH_KEY), 1)
        If $found > 0 Then $myFolder.Items($i).Delete()

        If $removeReady = False Then
            _stopDeletion()
            _idleWait()
        EndIf
    Next

    ;restore the receipt response setting
    _stopDeletion()

    $lastRemoval = TimerInit()

    Return
EndFunc

Func _idleControl()
    $idleTime = _Timer_GetIdleTime()
    If $idleTime > (60 * 1000) Then ; 1 minute
        $removeReady = True
    Else
        $removeReady = False
    EndIf
EndFunc

Func _idleWait()
    While $removeReady = False
        Sleep(1000)
    WEnd
    $receiptSetting = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Options\Mail","Receipt Response")
EndFunc

Func _stopDeletion()
    Sleep(3500)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\Options\Mail", "Receipt Response", "REG_DWORD", $receiptSetting)
EndFunc

Func ErrFunc()
    AdlibUnRegister("_idleControl")
    _stopDeletion()
    $lastRemoval = TimerInit()
    $removeReady = False

    $error = "We intercepted an Error !"      & @CRLF  & @CRLF & _
             "err.description is: "    & @TAB & $oMyError.description    & @CRLF & _
             "err.windescription:"     & @TAB & $oMyError.windescription & @CRLF & _
             "err.number is: "         & @TAB & hex($oMyError.number,8)  & @CRLF & _
             "err.lastdllerror is: "   & @TAB & $oMyError.lastdllerror   & @CRLF & _
             "err.scriptline is: "     & @TAB & $oMyError.scriptline     & @CRLF & _
             "err.source is: "         & @TAB & $oMyError.source         & @CRLF & _
             "err.helpfile is: "       & @TAB & $oMyError.helpfile       & @CRLF & _
             "err.helpcontext is: "    & @TAB & $oMyError.helpcontext

    MsgBox(0, "Error Removing Items from Outlook", $error)

    Local $err = $oMyError.number
    If $err = 0 Then $err = -1

    $g_eventerror = $err  ; to check for after this function returns

    Exit
Endfunc

Share this post

Link to post
Share on other sites

Sticky    0

Sticky
Posted

Seeker,

Sorry for the delayed response! This needs to run locally on each affected user's machine. The way I implemented this was by compiling the code and placing the exe on a shared folder on the network available to the user's that need to run this. I then used a group policy to run this on start up - worked like a charm!

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  
Followers 0
Go To Topic Listing

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...