OutlookEX UDF - Double Entries on Export

[Efty]

Hi, 

i use the latest AutoIt Version combined with the latest Outlook UDF. My following script should export the whole Outlook 2007 content to a new pst-file and works flawless. Except on thing...

Every subfolder which resists in a main folder will also be visible in the root of the new pst-file. Here is an quick example...

Original PST                New PST

\contacts                   \contacts
\contacts\business          \business
\contacts\private           \private
                            \contacts\business
                            \contacts\private

 

... and here's my script.

expandcollapse popup

; Pfad zum OutlookEx UDF
#include <udf\OutlookEx.au3>
#include <array.au3>

; SplashText Hinweis für die Dauer des Scripts
SplashTextOn("Bitte warten...", "Aktives Postfach wird exportiert...", @DesktopWidth - 40, 45, 20, @DesktopHeight - 100, 5, "")

; Verbindung zu Outlook öffnen
Global $oOutlook = _OL_Open()

; Pfad zur PST-Datei
$oPSTPfad = @ScriptDir & "\"

; Name der PST-Datei
$oPSTName = "[" & @YEAR & "-" & @MON & "-" & @MDAY & "] " & StringUpper(@UserName)

; Evtl. vorhandene PST-Datei löschen
If FileExists($oPSTPfad & $oPSTName & ".pst") = TRUE Then FileDelete($oPSTPfad & $oPSTName & ".pst")
    
; PST-Datei im Unicode-Format erstellen und öffnen
$oPST = _OL_PSTCreate($oOutlook, $oPSTPfad & $oPSTName & ".pst", $oPSTName, $olStoreUnicode)

; Alle Ordner des aktiven Postfachs ermitteln
$aFolders = _OL_FolderTree($oOutlook, "*")

; Länge der Postfachbezeichnung ermitteln
Global $iRoot = StringLen($aFolders[0])
Global $count = UBound($aFolders) - 1

; Alle Ordner des Postfachs durchlaufen
For $i = 1 To UBound($aFolders) - 1

    ; Ordner Pfad in der Postfachstruktur ermitteln und 'Erinnerungen' berücksichtigen
    if $aFolders[$i] <> "Erinnerungen" Then
        $aFolder = StringRight($aFolders[$i], StringLen($aFolders[$i]) - $iRoot)
    Else
        $aFolder = "Erinnerungen"
    Endif

    ; Hinweis aktualisieren
    ControlSetText("Bitte warten...", "", "Static1", "[" & $i & "|" & $count & "] " & StringUpper($aFolder) & " wird exportiert...")
    
    ; Inhalt des Ordners in die PST-Datei schreiben
    _OL_FolderCopy($oOutlook, "*\" & $aFolder, $oPST & "\" & $aFolder)
    
Next

; PST-Datei schliessen
_OL_PSTClose($oOutlook, $oPST)

; Outlook schliessen
_OL_Close($oOutlook)

 

Can anyone please give me an advice!?

Thanx in advance.

Kind regards

Efty

Edited November 24, 2015 by Efty

[water]

Could you please set the level for _OL_FolderTree (parameter $iLevel = 1) to 1 and try again?
Now _OL_Foltertree returns all levels of folders and _OL_FolderCopy copies the specified folder plus all subfolders. So you are doing it twice at the moment.

[Efty]

Hi water,

first i would to thank you for your quick reply and the fantastic udf. It saved me a lot of time.

So - i've done as told. I modified my code, set the folder Level to 1 and removed the Loop through the Folder Array.

The script runs without error but the newly created pst-file is empty, but has a size of 271 kbyte.

; Include-Dateien
#include <udf\OutlookEx.au3>
#include <array.au3>

; Verbindung zu Outlook öffnen
$oOutlook = _OL_Open()

; Pfad zur PST-Datei
$oPSTPfad = @ScriptDir & "\"

; Name der PST-Datei
$oPSTName = "[" & @YEAR & "-" & @MON & "-" & @MDAY & "]  " & StringUpper(@UserName)

; PST-Datei im Unicode-Format erstellen und öffnen
$oPST = _OL_PSTCreate($oOutlook, $oPSTPfad & $oPSTName & ".pst", $oPSTName, $olStoreUnicode)

; Alle Ordner des aktiven Postfachs ermitteln
$aFolders = _OL_FolderTree($oOutlook, "*", 1)

; Inhalt des Ordners in die PST-Datei schreiben
_OL_FolderCopy($oOutlook, $aFolders[0], $oPST)

; PST-Datei schliessen
_OL_PSTClose($oOutlook, $oPST)

; Outlook schliessen
_OL_Close($oOutlook)

I also replaced the $aFolders[0] in _OL_FolderCopy with "*", "\\Postfach - Edge, Efty", etc. but nothing worked.

Can you please help me once again to export the whole Outlook content to a pst-file!?

Kind regards

Efty

Edited November 25, 2015 by Efty

[water]

You need to add some error checking. Do you get the expected results (Array, @error always 0)?

; Include-Dateien
#include <udf\OutlookEx.au3>
#include <array.au3>

; Verbindung zu Outlook öffnen
$oOutlook = _OL_Open()
MsgBox(0, "", "Open: @error = " & @error & ", @extended = " & @extended)

; Pfad zur PST-Datei
$oPSTPfad = @ScriptDir & "\"

; Name der PST-Datei
$oPSTName = "[" & @YEAR & "-" & @MON & "-" & @MDAY & "]  " & StringUpper(@UserName)

; PST-Datei im Unicode-Format erstellen und öffnen
$oPST = _OL_PSTCreate($oOutlook, $oPSTPfad & $oPSTName & ".pst", $oPSTName, $olStoreUnicode)
MsgBox(0, "", "PST create: @error = " & @error & ", @extended = " & @extended)

; Alle Ordner des aktiven Postfachs ermitteln
$aFolders = _OL_FolderTree($oOutlook, "*", 1)
MsgBox(0, "", "Foldertree: @error = " & @error & ", @extended = " & @extended)
_ArrayDisplay($aFolders)

; Inhalt des Ordners in die PST-Datei schreiben
_OL_FolderCopy($oOutlook, $aFolders[0], $oPST)
MsgBox(0, "", "Foldercopy: @error = " & @error & ", @extended = " & @extended)

; PST-Datei schliessen
_OL_PSTClose($oOutlook, $oPST)
MsgBox(0, "", "PST close: @error = " & @error & ", @extended = " & @extended)

; Outlook schliessen
_OL_Close($oOutlook)

 

[Efty]

I redirected the Errors to the console, here is what it Looks like

Open:       @error = 0, @extended = 0
PST create: @error = 0, @extended = 0
Foldertree: @error = 0, @extended = 0
Foldercopy: @error = 1, @extended = 1
PST close:  @error = 0, @extended = 0
[Finished in 2.2s]

and the ArrayDisplay shows following

Row     Col 0
[0]     \\Postfach - Edge, Efty

I hope it helps.

Efty

[water]

How many entries do you have in the displayed array? Only one?

Edited November 25, 2015 by water

[Efty]

Right, only One. If i remove the $iLevel Parameter i See the root folder structure under \\Postfach - Edge, Efty. But then i have double entries 

[water]

Fine. Then I suggest to use

$aFolders = _OL_FolderTree($oOutlook, "*", 2)

and ignore the root directory

\\Postfach - Edge, Efty

To copy the remaining folders you need to remove the leading "\\".

[Efty]

Hi water,

thank you very, very much. Now it works like charm. 

Here for all there are interested in the solution the complete code.

expandcollapse popup

Pfad zum OutlookEx UDF
#include <udf\OutlookEx.au3>
#include <array.au3>

; SplashText Hinweis für die Dauer des Scripts
SplashTextOn("Bitte warten...", "Aktives Postfach wird exportiert...", @DesktopWidth - 40, 45, 20, @DesktopHeight - 100, 5, "")

; Verbindung zu Outlook öffnen
Global $oOutlook = _OL_Open()

; Pfad zur PST-Datei
$oPSTPfad = @ScriptDir & "\"

; Name der PST-Datei
$oPSTName = "[" & @YEAR & "-" & @MON & "-" & @MDAY & "] " & StringUpper(@UserName)

; Evtl. vorhandene PST-Datei löschen
If FileExists($oPSTPfad & $oPSTName & ".pst") = TRUE Then FileDelete($oPSTPfad & $oPSTName & ".pst")
    
; PST-Datei im Unicode-Format erstellen und öffnen
$oPST = _OL_PSTCreate($oOutlook, $oPSTPfad & $oPSTName & ".pst", $oPSTName, $olStoreUnicode)

; Alle Ordner des aktiven Postfachs ermitteln
$aFolders = _OL_FolderTree($oOutlook, "*", 2)

; Länge der Postfachbezeichnung ermitteln
Global $iRoot = StringLen($aFolders[0])
Global $count = UBound($aFolders) - 1

; Alle Ordner des Postfachs durchlaufen
For $i = 1 To UBound($aFolders) - 1

    ; Ordner Pfad in der Postfachstruktur ermitteln und 'Erinnerungen' berücksichtigen
    if $aFolders[$i] <> "Erinnerungen" Then
        $aFolder = StringRight($aFolders[$i], StringLen($aFolders[$i]) - $iRoot)
    Else
        $aFolder = "Erinnerungen"
    Endif

    ; Hinweis aktualisieren
    ControlSetText("Bitte warten...", "", "Static1", "[" & $i & "|" & $count & "] " & StringUpper($aFolder) & " wird exportiert...")
    
    ; Inhalt des Ordners in die PST-Datei schreiben
    _OL_FolderCopy($oOutlook, "*\" & $aFolder, $oPST & "\" & $aFolder)
    
Next

; PST-Datei schliessen
_OL_PSTClose($oOutlook, $oPST)

; Outlook schliessen
_OL_Close($oOutlook)

 

Kind regards and thumbs up to the very good support!

Efty

Edited November 28, 2015 by Efty

[water]

Glad to be of service
Schöne Grüße