[R] Résolu Créer le nouveau profil outlook

[turistceto]

Bonjour à tous,

J'ai besoin de vos services pour un projet que je dois mettre en place et sur la quel je galère.

Je voudrais un programme qui va, exporter la boit au lettre dans un pst, créer le nouveau profil Outlook , rattacher le pst exporté à la nouvelle boite.

Merci beaucoup pour toute l'aide que vous pouvez m'apporter.

[jguinch]

Salut.

exporter la boit au lettre dans un pst

C'est quoi comme application de messagerie actuellement ? Car l'export de boîte ça peut être très compliqué...

Pour créer un profil Outlook pré-paramétré, il faut créer un fichier de profil Outlook (format PRF) puis exécuter :
Outlook.exe /importprf fichier.prf

Pour la création du fichier PRF

[turistceto]

Bonjour jguinchard et merci pour ta réponse,

Enfaite je voudrais réaliser l'export vers un .pst à partir de .ost de l'utilisateur.
Dans Outlook il y a une fonction qui permet de exporter l'ost de l'utilisateur vers un .pst avec tous ces mails reçu envoyé, calendrier etc...

je voudrais profiter de cette fonction export si c'est possible, puis configurer son nouveau messagerie avec le .prf comme tu le dit et attacher le pst créé part exportation sur son nouveau profil.

Cette action me permettra d'éviter de me t'appeler les quelque 430 utilisateurs qui change de domain.

[jguinch]

En fait tu souhaites dans un premier temps automatiser l'export depuis Outlook à partir de l'assistant d'export ?
Ca risque de pas être simple.
Sinon tu peux faire ça en PowerShell depuis le(s) serveur(s) Exchange.

[turistceto]

comment je pourrais procéder avec le powershell à partir de exchange, puis l'associer à un autoit pour configurer Outlook et attacher le PST.

Peux tu m'aider STP

[jguinch]

C'est juste une façon de faire, mais voilà comment tu peux procéder :
1) Exporter les mailbox des utilisateurs dans des fichiers PST (en PowerShell) sur un chemin réseau (%username%.pst) -> pour ça il faut de documenter sur les commandes PowerShell
2) Créer le fichier PRF en spécifiant l'emplacement du fichier PST (\\serveur\path\%username%.pst) -> pour ça je t'ai donné un lien dans mon premier post
3) Créer le script AutoIt qui détectera l'emplacement de Outook.exe et qui le lancera à l'ouverture de session de chaque utilisateur (avec le paramètre /importprf fichier.prf) -> ici on peut t'aider

Remarques :
Si tu veux passer par Outlook pour automatiser l'export en PST, tu peux supprimer l'étape 1 (là je vois pas comment faire, mais peut être que quelqu'un l'a déjà fait ?).
Pendant la migration, il ne faudra pas que les utilisateurs reçoivent de mails entre temps (car ils ne seront pas présents dans le PST).

[turistceto]

Je voudrais que chaque user puisse lancer un .exe qui vas fermer Outlook, exporter l'ost en pst, lancer Outlook avec la nouvelle config (avec un nouveau nom de exchange désigné dans le prf) puis attaché le .pst créé a ce nouveau profil.

Si je passe par exchange ave la commande powershell il faut que je fasse un fichier csv avec les users que je voudrais exporter, et il y a peu près 1600 BAL et tous les users ne sont pas concerné par ce changements. C'est les 430 users qui change de domain et de serveur exchage.

SVP personne à une idée comment cela pourrait etre fait par script Autoit.

[turistceto]

Bonjour tous le monde

J'ai essayé de faire ceci mais ce n'est pas au point si vous pouvez maider à appofiner SVP

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <File.au3>

DirCreate("C:\PST\")

Run(@ProgramFilesDir & "\Microsoft Office\Office14\Outlook.exe")

WinWaitActive("[CLASS:rctrl_renwnd32]")
WinActivate("[CLASS:rctrl_renwnd32]")
if Not FileExists("C:\PST\backup.pst") Then 
sleep (5000)
Send("!f")
Send("!b")
Send("!i")
sleep(1000) 
Send ("{up 2}")
sleep(1000)
Send ("{TAB}")
sleep(1000)
Send("{ENTER}")
sleep(1000)
Send ("{TAB 2}")
sleep(1000)
Send("{ENTER}")
Send ("{up}")
sleep(1000) 
Send("{ENTER}")
sleep(1000)
Send("C:\PST\backup.pst")
Send ("{TAB 2}")
sleep(1000)
Send("{ENTER}")
sleep(1000)
Send ("{TAB 3}")
sleep(1000)
Send("{ENTER}")
EndIf
Sleep (7000)

;WinWaitClose ("[CLASS:#32770]")
Run(@ProgramFilesDir & "\Microsoft Office\Office14\Outlook.exe /importprf C:\PST\monprf.prf")
 

Jusqu'à l'exportation ça fonctionne mais après au niveau winWaitclose elle se plant, le script est toujours en attente de la fermeture de fenêtre.

et aussi est possible de faire cela avec des barre déroulant pour office2003, 2007 et 2010

si vous me montrer la solution je pense pouvoir l'adapter

[jguinch]

Il existe une autre fenêtre "[CLASS:#32770]" qui se nomme "État des envois/réceptions Outlook".
Tu devrais utiliser le nom de la fenêtre "Assistant d'Importation et d'Exportation"

[turistceto]

Je n'ai pas réussi à utiliser le nom de la fenêtre mais j'ai trouvé une autre façon de ciblé la classe, là "WinWaitClose ("[CLASS:msctls_progress32]")" a l'aire de fonctionner

Merci

La je bute sur un autre problème

je voudrais que le fichier PRF soit modifier par une valeur de inputbox, pour ça je voudrais faire un inputbox puis remplacer une valeur qui est inscrit dans une des ligne de PRF par la valeur entré dans inputbox.

ex

question inputbox : entrée votre login Windows

la c'est la ligne 47 de mon fichier PRF:
MailboxName=%userprofile% <=== je voudrais que le %username% soit remplace par la valeur que le user va mettre dans input box

peux tu m'aider STP

Merci encore

[turistceto]

Bonjour tous le monde,

j'ai un peu à avancer dans mon galère mais je bute toujours pour la modification du fichier .prf

quand je modifie la ligne que je veux il m'efface le contenu de mon fichier.prf et met juste un ";"

voici ce que j'ai fait

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <File.au3>

DirCreate("C:\PST\")

Run(@ProgramFilesDir & "\Microsoft Office\Office14\Outlook.exe")

WinWaitActive("[CLASS:rctrl_renwnd32]")
WinActivate("[CLASS:rctrl_renwnd32]")
if Not FileExists("C:\PST\backup.pst") Then 
sleep (5000)
Send("!f")
Send("!b")
Send("!i")
sleep(1000) 
Send ("{up 2}")
sleep(1000)
Send ("{TAB}")
sleep(1000)
Send("{ENTER}")
sleep(1000)
Send ("{TAB 2}")
sleep(1000)
Send("{ENTER}")
sleep(1000)
Send ("{up}")
sleep(1000) 
Send("{ENTER}")
sleep(1000)
Send("C:\PST\backup.pst")
Send ("{TAB 2}")
sleep(1000)
Send("{ENTER}")
sleep(1000)
Send ("{TAB 3}")
sleep(1000)
Send("{ENTER}")
EndIf
Sleep (15000)

WinWaitClose ("[CLASS:msctls_progress32]")


FileDelete("C:\pst\monfichier.prf")
Do
    $pass = @UserName
    $input = InputBox("Tutorial", "Entrez Votre login Windows :")
 
    If ($input <> $pass) Then
        MsgBox(0,"Tutorial", "Le Compte Windows est incorrect !")
    Else
        MsgBox(0,"Tutorial", "Le Compte Windows est correct !")
    EndIf
 
Until ($input = $pass)
$find = "%userprofile%"
$replace = $input

FileCopy("C:\pst\test.prf", "C:\pst\monfichier.prf")
$filename = "C:\pst\monfichier.prf"


$retval = _ReplaceStringInFile($filename,$find,$replace)
if $find = -1 then
    msgbox(0, "ERROR", "The pattern could not be replaced in file: " & $filename & " Error: " & @error)
   exit
else
   msgbox(0, "INFO", "Information remplacé dans: " & $filename)
endif

Run("C:\Program Files (x86)\Microsoft Office\Office14\outlook.exe" "/importprf C:\PST\monfichier.prf")
 

SVP j'attends vos aide car je suis un peu embrasser avec ce script

Merci encore

[jguinch]

Je comprends pas trop ce que tu veux faire avec le fichier PRF. Pourquoi est-ce que tu veux le modifier ?
%UserName% correspond justement à la variable @UserName, donc tu dois pouvoir le laisser tel quel.

Dans ton script, j'e ne vois pas l'intérêt de demander à l'utilisateur d'entrer un mot de passe qui doit forcément être égal au login ?? C'est pour un contrôle ?

[turistceto]

En faite je me suis trompé a cette ligne, je demande à l'utilisateur de rentrer son login

car je ne veux pas que l'utilisateur puisse mettre un identifiant different du sien

et l'autre petit problème est que tous le mondes n'a pas le même règle de login
il y a des user avec un login forme trigramme
des users avec login premier lettre du prénom suivi du nom
des users avec login avec prénom.nom
Déjà là j'ai un souci , car je ne sais pas comment comparer si le nom entrée et bien le compte mail du user.

puis quand je modifie le fichier .prf il m'efface tout le contenu du fichier et met mets juste un ";"

[turistceto]

Bonjour à tous,

Avec l'aide de quelque personne j'ai réussi à finaliser mon script.
Il n'est pas très propre mail il fonctionne.
Mais avant il faut avoir créé un .prf qui contient les information du nouveau serveur Exchange et il faut mettre ce prf dans un répertoire partagé
Son fonction est :

Il lance Outlook puis fait l'exportation de sa boite mail vers un PST et les règles
puis ouvre Outlook avec un nouveau compte et les paramètre du nouveau serveur exchange
puis donne le choix pour importation
et a la fin envoi un mail a l'utilisateur pour lui indiqué l'emplacement de la sauvegarde de son pst généré ainsi que ses règles.

je n'ai pas réussi à paramètre le bouton quitter mais le script quitte automatiquement à la fin du script.

► Afficher le texte

#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=C:\Program Files (x86)\AutoIt3\Icons\au3.ico
#AutoIt3Wrapper_Outfile=exp-imp_reg-out-cosb-serge4.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;#region ---Au3Recorder generated code Start (v3.3.7.0)  ---
#include <GUIConstantsEx.au3>
#include <File.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <ProgressConstants.au3>

;#region --- Internal functions Au3Recorder Start ---
Func _Au3RecordSetup()
Opt('WinWaitDelay',100)
Opt('WinDetectHiddenText',1)
Opt('MouseCoordMode',0)
EndFunc

Func _WinWaitActivate($title,$text,$timeout=0)
    WinWait($title,$text,$timeout)
    If Not WinActive($title,$text) Then WinActivate($title,$text)
    WinWaitActive($title,$text,$timeout)
EndFunc

;AU3RecordSetup()
;#endregion --- Internal functions Au3Recorder End ---
#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)
Dim $OutPst = "c:\pst\MyPstAPX.pst" ; nom du pst exporté
Dim $Outregles = "c:\pst\MyReglesAPX.rwz" ; nom du fichier de regles exporté
Dim $outvers
Dim $loginSpie
Dim $Replace
Dim $PID
Dim $var
Dim $tosearch, $current, $Size, $Qty, $Redness, $Greeness, $Blueness, $RunOut, $Import

; check reseau et copie fichier

ProcessClose("communicator.exe")

$PID = ProcessExists("communicator.exe") ; Will return the PID or 0 if the process isn't found.
If $PID Then ProcessClose($PID)

ProcessClose("outlook.exe")

$PID = ProcessExists("outlook.exe") ; Will return the PID or 0 if the process isn't found.
If $PID Then ProcessClose($PID)

sleep (1000)
DirRemove("c:\temp\PST", 1)
DirRemove("c:\PST", 1)
sleep (1000)
DirCreate("c:\PST")
sleep (1000)

$var = Ping("serveur_de_partage",250)

If $var Then; also possible:  If @error = 0 Then ...
    SplashTextOn("VERIFICATION CONNEXION","CONNEXION OK, La copie des fichiers va commencer",  350, 100, -1, -1, 4, "", 10)
sleep (4000)
SplashOff()
Else
    Msgbox(0,"CONNEXION FAILED","ERREUR, VERIFIER VOTRE CONNEXION RESEAU AVANT DE RELANCER LE SCRIPTE") ;ExitLoop
;SplashTextOn("CONNEXION FAILD","ERREUR, VERIFIER VOTRE CONNEXION RESEAU AVANT DE RELANCER LE SCRIPTE.", 350, 100, -1, -1, 4, "", 12)ExitLoop
exit
EndIf
ProgressCopy("\\serveur_de_partage\nompartage\prf\", "C:\pst\",0) ;<==l'empacement du fichier PRF

Func ProgressCopy($current, $destination, $UseMultiColour = 0, $attrib = "-R", $overwrite = 1, $Run1 = 0)

    If $Run1 = 0 Then
        Global $OverallQty, $Overall, $source, $overallpercent, $Progress0Text, $progressbar1, $Progress1Text, $progressbar2, $Progress2Text, $LocalPercent
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
        If Not FileExists($destination) Then DirCreate($destination); This is why it was failing, the dir did not exist
        $source = $current
        If StringRight($current, 1) = '' Then $current = StringTrimRight($current, 1)
        If StringRight($destination, 1) <> '' Then $destination = $destination & "\"
        $tosearch = $current
        $Overall = DirGetSize($tosearch, 1)
        $OverallQty = $Overall[1]
        Global $PrCopyGui = GUICreate("Copie des Fichiers", 420, 100, -1, -1, -1, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
        $Progress0Text = GUICtrlCreateLabel("Veuillez patienter", 10, 5, 400, 20, $SS_LEFTNOWORDWRAP)
        $progressbar1 = GUICtrlCreateProgress(10, 20, 400, 20)
        GUICtrlSetColor(-1, 32250)
        $Progress1Text = GUICtrlCreateLabel("", 10, 44, 400, 20, $SS_LEFTNOWORDWRAP)
        $progressbar2 = GUICtrlCreateProgress(10, 60, 400, 20, $PBS_SMOOTH)
        $Progress2Text = GUICtrlCreateLabel("", 10, 82, 400, 20, $SS_LEFTNOWORDWRAP)
        GUISetFont(10, 600)

        GUICtrlSetColor(-1, 32250); not working with Windows XP Style if not using windows classic style or dllcall above
        GUISetState(@SW_SHOW)
        GUICtrlSetData($Progress1Text, "Répertoire de travail " & $tosearch)
        $Run1 = 1
    EndIf

    $Size = DirGetSize($current, 3)
    $Qty = $Size[1]
    Local $search = FileFindFirstFile($current & "\*.*")
    While 1
        Dim $file = FileFindNextFile($search)
        If @error Or StringLen($file) < 1 Then ExitLoop
        If Not StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then
            $Qty -= 1
            $LocalPercent = 100 - (($Qty / $Size[1]) * 100)
            $OverallQty -= 1
            $overallpercent = 100 - (($OverallQty / $Overall[1]) * 100)
            GUICtrlSetData($Progress0Text, "Progression Totale " & Int($overallpercent) & "% Completer")
            GUICtrlSetData($progressbar1, $overallpercent)
            GUICtrlSetData($progressbar2, $LocalPercent)
            GUICtrlSetData($Progress2Text, "Copie du Fichier " & $file)

            If $UseMultiColour Then
                GUICtrlSetColor($progressbar2, _ChangeColour($LocalPercent))
                GUICtrlSetColor($progressbar1, _ChangeColour($overallpercent))
            EndIf

            FileCopy($current & "\" & $file, $destination & StringTrimLeft($current, StringLen($source)) & "\" & $file, $overwrite)
            FileSetAttrib($destination & StringTrimLeft($current, StringLen($source)) & "\" & $file, $attrib)
        EndIf
        If StringInStr(FileGetAttrib($current & "\" & $file), "D") And ($file <> "." Or $file <> "..") Then
            DirCreate($destination & StringTrimLeft($current, StringLen($source)) & "\" & $file)
            FileSetAttrib($destination & StringTrimLeft($current, StringLen($source)) & "\" & $file, $attrib)
            GUICtrlSetData($Progress1Text, $current & "\" & $file)
            ProgressCopy($current & "\" & $file, $destination, $UseMultiColour, $attrib, $overwrite, 1)
        EndIf
    WEnd
    FileClose($search)
    ;when overall percent = 100 set end gui text, delete gui and reset run1 to 0
    If $overallpercent = 100 Then
        GUICtrlSetData($Progress0Text, "Progression Totale complètée à 100%")
        GUICtrlSetData($progressbar1, 100)
        GUICtrlSetData($progressbar2, 100)
        GUICtrlSetData($Progress2Text, "Terminer !")

        Sleep(1000)
        GUIDelete($PrCopyGui)
        $Run1 = 0
    EndIf
EndFunc   ;==>ProgressCopy

Func _ChangeColour($start)

    $Redness = Int(255 - ($start / 100 * 512))
    If $Redness < 0 Then $Redness = 0

    $Greeness = Int(($start / 100 * 512) - 257)
    If $Greeness < 0 Then $Greeness = 0

    $Blueness = Int(255 - ($Redness + $Greeness))

    Return ($Redness * 256 * 256) + ($Greeness * 256) + $Blueness

EndFunc   ;==>_ChangeColour

sleep (1000)



Choix_O()


Func Choix_O()
    Local $Button_1, $Button_2,$Button_3, $msg
    ;GUICreate(" Choix de la version Outlook   ", 340, 120, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018); WS_EX_ACCEPTFILES
    GUICreate(" Migration vers nouveau messagerie   ", 340, 250,10,10, -1, 0x00000018); WS_EX_ACCEPTFILES

    Opt("GUICoordMode", 2)
                GUICtrlCreateLabel("Sélectionner l'option choisie",20 , 20, 290, 25)

    $Button_1 = GUICtrlCreateButton("Export Bal et Configure",-1 , 10, 220, 40)
    $Button_2 = GUICtrlCreateButton("Import PST dans bal vers nouveau messagerie",-1, 20)
    $Button_3 = GUICtrlCreateButton("Quitter",-1, 30)

GUICtrlCreateLabel("Powered by COSB", -10, 15, 120, 15)

    GUISetState()      ; will display an  dialog box with 3 button

    ; Run the GUI until the dialog is closed
    While 1

        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $Button_1
                    Call ("Saisielogin")
                Exit
            Case $msg = $Button_2
                    Call ("Checkout")
                Exit
            Case $msg = $Button_3
                ExitLoop


       EndSelect

    WEnd
EndFunc   ;==>Choix_O


func saisielogin ()

    $Replace = InputBox ("Migration vers messagerie nouveau domaine"," Veuillez saisir votre login Windows", "login", "", -1, 150, 0, 300)
    ;Call ("Checkout")
    Select
            Case $Replace = 2
                call ("Choix_O")
            Case $Replace <> 2
                Call ("Checkout")
    EndSelect

EndFunc




Func checkout () ;verification de la version Outlook sur OS X86 et X64

    if FileExists("C:\Program Files (x86)\Microsoft Office\Office14\Outlook.exe") Then
    ;if FileExists("C:\Program Files (x86)\Microsoft Office\Office14\outlook.exe") then
                $outvers = "out2010"
                $RunOut = '"C:\Program Files (x86)\Microsoft Office\Office14\outlook.exe" '
                MsgBox (4096, "outlook 2010", "Outlook2010 trouvé - Ok pour continuer", 1)
                call ("mytest1")
            ;elseif FileExists (@ProgramFilesDir & "\Microsoft Office\Office14\Outlook.exe") Then
            ElseIf FileExists ("C:\Program Files\Microsoft Office\Office14\outlook.exe") then
                $outvers = "out2010"
                $RunOut = '"C:\Program Files\Microsoft Office\Office14\outlook.exe" '
            ;   MsgBox (4096, "outlook 2010", "Outlook2010 trouvé - Ok pour continuer")
                call ("mytest1")

            elseif FileExists ("C:\Program Files (x86)\Microsoft Office\Office12\Outlook.exe") Then
            ;Elseif FileExists ("C:\Program Files (x86)\Microsoft Office\Office12\outlook.exe") then
                $outvers = "out2007"
                $RunOut = '"C:\Program Files (x86)\Microsoft Office\Office12\outlook.exe" '
            ;   MsgBox (4096, "outlook 2007","Outlook2007 trouvé - OK pour continuer")
                call ("mytest1")

            elseif FileExists ("C:\Program Files\Microsoft Office\Office12\Outlook.exe") Then
            ;Elseif FileExists ("C:\Program Files\Microsoft Office\Office12\outlook.exe") then
                $outvers = "out2007"
                $RunOut = '"C:\Program Files\Microsoft Office\Office12\outlook.exe" '
            ;   MsgBox (4096, "outlook 2007","Outlook2007 trouvé - OK pour continuer")
                call ("mytest1")
            Else
                MsgBox(4096, "Version Outlook", "Désolé, Aucune version Outlook compatible n'a été trouvée")
                ;Call ("Choix_O")
                    Exit
        EndIf

EndFunc
;   ajout ici de la partie Cetin Copie de fichier + profil Mapi
Func mytest1 ()
    MsgBox (4096, "Vérification Version Outlook",$RunOut & $outvers & " - login Windows = " &  $replace, 5)
    ;call ("Choix_O")
    run($RunOut)
    ;run (@ProgramFilesDir & "\Microsoft Office\Office14\Outlook.exe")
    sleep (15000)
    call ($outvers)
EndFunc


Func  mytest2 ()

    MsgBox (4096,"Vérification Version Outlook",$outvers & "  -  login Windows = " &  $replace)
    ;call ("Choix_O")
    run($RunOut)
    ;run (@ProgramFilesDir & "\Microsoft Office\Office12\Outlook.exe")
    sleep (15000)
    call ($outvers)
EndFunc



Func Out2010 ()


    Local $Fldr1 = "c:\Temp_outlook\" ; nom du dossier temporaire
        If DirGetSize($Fldr1) = -1 Then
            DirCreate($Fldr1)
        EndIf

; export regles
    BlockInput (0) ;DéVerrouillage du clavier et de la souris
    _WinWaitActivate("Boîte de réception","")
    BlockInput (1)
        Send("{ALTDOWN}f{ALTUP}")
        sleep(500)
        Send("{TAB 7}")
        sleep(500)
        send("{ENTER}")
    ;   Send("{ALTDOWN}f{ALTUP}{TAB 7}{ENTER}")
    _WinWaitActivate("Microsoft Outlook","",1)
        Send("{ENTER}")

    _WinWaitActivate("Règles et alertes","")
        Send("{ALTDOWN}o{ALTUP}")
    _WinWaitActivate("Options","")
        Send("{ALTDOWN}x{ALTUP}")
    _WinWaitActivate("Enregistrer","")
    sleep(1000)

        Send("{ALT}n" & $Outregles)
        Sleep (1000)
        Send("{ALTDOWN}e{ALTUP}")
    _WinWaitActivate("Options","")
        Send("{TAB 3}{ENTER}")
    _WinWaitActivate("Règles et alertes","")
        Send("{ALTDOWN}{F4}{ALTUP}")

    Sleep (1000)
BlockInput (0)
    ;Export vers pst
    ;BlockInput (1) ;Verrouillage du clavier et de la souris
    _WinWaitActivate("Boîte de réception ","")
    BlockInput (1)
        Send("{ALTDOWN}fo{ALTUP}")
    BlockInput (1) ;Verrouillage du clavier et de la souris
    _WinWaitActivate("Options Outlook","")
        Send("{DOWN 9}{TAB 11}{ENTER}")
    _WinWaitActivate("Assistant d'Importation et d'Exportation","")
        Send("{UP}{UP}{ALTDOWN}s{ALTUP}")
    _WinWaitActivate("Exporter vers un fichier","")
        Send("{ALTDOWN}s{ALTUP}")
    _WinWaitActivate("Exporter un fichier de données","")
        Send("{UP}")
        Sleep (1000)
        Send("{ALTDOWN}s{ALTUP}")
    _WinWaitActivate("Exporter un fichier de données","")
        Send("{ALT}n" & $OutPst)
sleep (1000)
    Send("{Enter}")

    _WinWaitActivate("Création d’un fichier de données Outlook","Ajouter un mot de pa",5)

        Send("{ALTDOWN}oCE{ALTUP}{TAB}{ENTER}")
        SplashTextOn("Patience", "Merci d'attendre la fermeture des fenêtres.  Cela peut prendre jusqu'à 30min en fonction de la taille de la boite aux lettre.", 350, 100, -1, -1, 4, "", 12)
Sleep(20000)

        _WinWaitActivate("Options Outlook","")
        ;Send("{TAB 24}{ENTER}")
        Send("{ALTDOWN}{F4}{ALTUP}")

        SplashOff()

        While FileExists ("c:\PST\~ArchivePST.pst.tmp")
            SplashTextOn("Patience", "Merci d'attendre la fermeture des fenêtres.  Cela peut prendre jusqu'à 30min en fonction de la taille de la boite aux lettre.", 350, 100, -1, -1, 4, "", 12)
            Sleep(5000)
        WEnd
    BlockInput(0)
SplashOff()
        MsgBox(4096,"Fin exportation","L'exportation est terminée - OK pour continuer", 1)


        call ("ProfilMapi")

EndFunc

;Exit
;call ("ProfilMapi")

Func Out2007()



    Local $Fldr1 = "c:\Temp_outlook\" ; nom du dossier temporaire
        If DirGetSize($Fldr1) = -1 Then
            DirCreate($Fldr1)
        EndIf

    ;export règles
    BlockInput (0)
    _WinWaitActivate("Boîte de réception","")
    BlockInput(1)
        Send("{ALTDOWN}oa{ALTUP}")
    ;BlockInput (1) ;Verrouillage du clavier et de la souris
    _WinWaitActivate("Règles et alertes","")
        Send("{ALTDOWN}o{ALTUP}")
    _WinWaitActivate("Options","")
        Send("{ALTDOWN}x{ALTUP}")
    _WinWaitActivate("Enregistrer","")
        Send("{ALT}n" & $Outregles)
        Sleep (1000)
        Send("{ALTDOWN}e{ALTUP}")
    _WinWaitActivate("Options","")
        Send("{TAB 3}{ENTER}")
    _WinWaitActivate("Règles et alertes","")
        Send("{ALTDOWN}{F4}{ALTUP}")

    Sleep (1000)
    BlockInput (0)

    ;BlockInput (1) ;Verrouillage du clavier et de la souris
    _WinWaitActivate("Boîte de réception ","")
        BlockInput (1) ;Verrouillage du clavier et de la souris
        Send("{ALTDOWN}fx{ALTUP}")
    _WinWaitActivate("Assistant d'Importation et d'Exportation","")
        Send("{UP}{UP}{ALTDOWN}s{ALTUP}")
    _WinWaitActivate("Exporter vers un fichier","")
        Send("{ALTDOWN}s{ALTUP}")
    _WinWaitActivate("Exporter des dossiers","")
        Send("{UP 4}{ALTDOWN}u{ALTUP}")
        Sleep (1000)
        Send("{ALTDOWN}s{ALTUP}")
    _WinWaitActivate("Exporter des dossiers","")
        Send("{ALT}n" & $OutPst)
sleep (1000)
    Send("{Enter}")

    _WinWaitActivate("Création de dossiers","")
        Send("MyPstAPX{TAB 5}{ENTER}")

        SplashTextOn("Patience", "Merci d'attendre la fermeture des fenêtres  Cela peut prendre jusqu'à 30min en fonction de la taille de la boite aux lettre.",350, 100, -1, -1, 4, "", 12)
Sleep(20000)
    SplashOff()
    BlockInput(0)
            While FileExists ("c:\PST\~ArchivePST.pst.tmp")
            SplashTextOn("Patience", "Merci d'attendre la fermeture des fenêtres  Cela peut prendre jusqu'à 30min en fonction de la taille de la boite aux lettre.", 350, 100, -1, -1, 4, "", 12)
            Sleep(5000)
        WEnd
    Splashoff()
        MsgBox(4096,"Fin exportation","L'exportation est terminée - OK pour continuer", 1)

    call ("ProfilMapi")
EndFunc

;Exit
;call ("ProfilMapi")

Func ProfilMapi ()

; on peut mettre la creation de profil ici
;MsgBox (4096,"creation profil","creation")
;Exit
;;;;;;
ProcessClose("outlook.exe")

$PID = ProcessExists("outlook.exe") ; Will return the PID or 0 if the process isn't found.
If $PID Then ProcessClose($PID)

;$replace = InputBox("Tutorial", "Entrez votre login Windows :")

;$replace=inputbox ("login", "login")
run (@WindowsDir & "\Notepad.exe c:\pst\monPRF.prf")
sleep (500)
Send ("^h")
sleep (1500)
Send ("%spie%")
Send ("!e")
send ($replace)
sleep (500)
send ("!t")
send ("!{F4}")
send ("^s")
send ("!{F4}")


Send("#r")
WinWaitActive("Exécuter")

Send($RunOut & "/importprf C:\PST\monPRF.PRF")

Send("{Enter}")
MsgBox (4096, "INFORMATION", ' Veuillez saisir vos identifiants spie sous la forme ce\mon_login + mot de passe et cocher la case "memoriser le mot de passe" puis cliquer sur OK', 60)

;WinWaitActive("Ouverture -Microsoft Outlook")
_WinWaitActive("[CLASS:rctrl_renwnd32]")
;_WinWaitActivate("Boîte de réception","")


;RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment", "spie")
FileDelete("c:\pst\*.prf")
FileCopy ("c:\PST\*.*", "c:\Temp_outlook")
;;
ProcessClose("Outlook.exe")
$PID = ProcessExists("Outloo.exe") ; Will return the PID or 0 if the process isn't found.
If $PID Then ProcessClose($PID)
   
    Sleep(5000)
   
    ;run($Runout & "/resetfoldernames")



_WinWaitActivate("Boîte de réception","")
$Import = MsgBox(4100, "Importation","Voulez vous importer vos donnees dans votre boite aux lettres Spie?")
    if $Import = "6" Then
        call ("Vers_Spie")
    Elseif $Import <> "6" Then
   
        SplashTextOn( "Importation","Vous avez choisi de ne pas réimporter vos données dans votre Bal Spie. Votre PST est dans c:\Temp_outlook\ArchivePST.pst et vos régles dans c:\temp_outlook\ArchiveRegle.rwz",350, 200, -1, -1, 4, "", 10)

    EndIf
        Sleep (20000)
    SplashOff()

ProcessClose("AutoIt3.exe")
$PID = ProcessExists("AutoIt3.exe") ; Will return the PID or 0 if the process isn't found.
If $PID Then ProcessClose($PID)


EndFunc

Exit


Func Vers_Spie ()

        If $outvers = "out2010" Then
            Call ("ImpOut2010")
        elseif $outvers = "out2007" Then
            Call ("impOut2007")
        Else
            ProcessClose("AutoIt3.exe")
            $PID = ProcessExists("AutoIt3.exe") ; Will return the PID or 0 if the process isn't found.
            If $PID Then ProcessClose($PID)
        EndIf

EndFunc



Func ImpOut2010()


    ;BlockInput (1)
    _WinWaitActivate("Boîte de réception ","")
    ;_WinWaitActivate("Inbox ","",2)
        Send("{ALTDOWN}fo{ALTUP}")
    BlockInput (1) ;Verrouillage du clavier et de la souris
    _WinWaitActivate("Options Outlook","")
        Send("{DOWN 9}{TAB 11}{ENTER}")
    _WinWaitActivate("Assistant d'Importation et d'Exportation","")
        Send("{ALTDOWN}s{ALTUP}")
    _WinWaitActivate("Importer un fichier","")
        Send("{DOWN 2}{ALTDOWN}s{ALTUP}")

    _WinWaitActivate("Importer un fichier","")
        ;Send("{ALTDOWN}h{ALTUP}" & $OutPst)
        Send($OutPst)
sleep (1000)
    Send("{ALTDOWN}s{ALTUP}")
    _WinWaitActivate("Importer un fichier","")
        ;Send("{ENTER}")
        Send("{TAB 7}{ENTER}")

        SplashTextOn("Patience", "Merci d'attendre la fermeture des fenêtres  Cela peut prendre jusqu'à 30min en fonction de la taille de la boite aux lettre.", 350, 100, -1, -1, 4, "", 12)
Sleep(10000)
    _WinWaitActivate("Options Outlook","")
        ;Send("{TAB 24}{ENTER}")
        Send("{ALTDOWN}{F4}{ALTUP}")

BlockInput(0)
Exit
EndFunc


Func ImpOut2007()

    ;if FileExists ("C:\Program Files\Microsoft Office\Office12\outlook.exe") then
    ;           MsgBox (4096, "outlook 2007","o2007 trouvé",10)
    ;       ElseIf FileExists ("C:\Program Files\Microsoft Office\Office12\outlook.exe") then
    ;           MsgBox (4096, "outlook 2007", "o2007 trouvé",10)
    ;       else
    ;           MsgBox(4096, "Version Outlook", "Désolé, Outlook 2007 non trouvé", 10)
    ;           call ("Choix_O")
    ;EndIf

    BlockInput (1)
    _WinWaitActivate("Boîte de réception ","")
    ;_WinWaitActivate("Inbox ","",5)
        Send("{ALTDOWN}fx{ALTUP}")
    BlockInput (1) ;Verrouillage du clavier et de la souris
    _WinWaitActivate("Assistant d'Importation et d'Exportation","")
        Send("{ALTDOWN}s{ALTUP}")
    _WinWaitActivate("Importer un fichier","")
        Send("{DOWN 2}{ALTDOWN}s{ALTUP}")
    _WinWaitActivate("Importer des dossiers","Fichier à importer")
        Send($OutPst)
sleep (1000)
    Send("{ALTDOWN}s{ALTUP}")
    _WinWaitActivate("Importer des dossiers","")
        Send("{TAB 7}{ENTER}")

        SplashTextOn("Patience", "Merci d'attendre la fermeture des fenêtres  Cela peut prendre jusqu'à 30min en fonction de la taille de la boite aux lettre.", 350, 100, -1, -1, 4, "", 10)
Sleep(10000)

        BlockInput(0)


EndFunc
;
;##################################
; Include
;##################################
#Include<file.au3>
;##################################
; Variables
;##################################
$SmtpServer = "vhcgroupe.groupe.loc"              ; address for the smtp-server to use - REQUIRED
$FromName = "Administrateur"                      ; name from who the email was sent
$FromAddress = "Administrateur@mondomaine.com" ; address from where the mail should come
$ToAddress = @username & @mondomaine.com"   ; destination address of the email - REQUIRED
$Subject = "INFORMATION EMPLACEMENT PST SAUVEGARDE"                  ; subject from the email - can be anything you want it to be
$Body = "Votre PST est sauvegardé à l'emplacement suivant :" & @CRLF & "C:\PST\ArchivePST.pst"& @CRLF  & @CRLF  &  "Et une copie de vos règles l'emplacement suivant :" & @CRLF & "C:\PST\ArchiveRegles." & @CRLF  &@CRLF &"VEUILLEZ NE PAS REPONDRE A CE MAIL" & @CRLF &"MERCI"    ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = ""                       ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed
$CcAddress = ""       ; address for cc - leave blank if not needed
$BccAddress = ""     ; address for bcc - leave blank if not needed
$Importance = "Normal"                  ; Send message priority: "High", "Normal", "Low"
$Username = "Administrateur"                    ; username for the account used from where the mail gets sent - REQUIRED
$Password = "**********"                  ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 25                            ; port used for sending the mail
$ssl = 0                                ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465                          ; GMAIL port used for sending the mail
;~ $ssl=1                               ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

;##################################
; Script
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
    MsgBox(0, "Error sending message", "Error code:" & @error & "  Description:" & $rc)
EndIf
;
; The UDF
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf

    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... /sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... smtpserver") = $s_SmtpServer
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... serverport") = $IPPort

    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail=""
EndFunc   ;==>_INetSmtpMailCom
Exit