vbs to autoit, office applications

[TheBG]

hello all,

i have a vbs script that will go through outlook and detach all pst files.

can these particular commands be run in autoit?

'On Error resume next
Dim objOutlook 'As Outlook.Application
Dim Session 'As Outlook.NameSpace
Dim Store 'As Outlook.Store
Dim Stores 'As Outlook.Stores
Dim objFolder 'As Outlook.Folder

Set objOutlook = CreateObject("Outlook.Application")
Set Session = objOutlook.Session
Set Stores = Session.Stores

For Each Store In Stores

If Store.ExchangeStoreType = 3 then
   Set objFolder = store.GetRootFolder
   Session.RemoveStore objFolder
End If

Next

Also - i need to be able to move the files to a new location on c:\ after they are detached? any thoughts?

Thanks in advance for your help.

[BrewManNH]

This might work as a conversion.

Global $objOutlook = ObjCreate("Outlook.Application")
Global $Session = $objOutlook.Session
Global $Stores = $Session.Stores

For $Store In $Stores

     If $Store.ExchangeStoreType = 3 Then
          Global $objFolder = $Store.GetRootFolder
          $Session.RemoveStore($objFolder)
     EndIf

Next

Also, look at FileMove in the help file.

[TheBG]

awesome thanks!!!. worked great.

Anyone have any good scripts to search a dir tree for a file type?

the goal is to search @userprofile for *.pst and then move each file to @userprofileOutlookPST folder

[water]

Everything you need to work with Outlook can be found in my OutlookEX UDF (for download please see my signature).

[tes5884]

$files = _RecFileListToArray("C:", "*.pst", 1, 1, 0, 2)
For $i = 1 To $files[0]
FileCopy($files[$i], "YourDestination", 8)
Next

This should copy all pst files on the C drive....

Requires #include <RecFileListToArray.au3>

Edited August 27, 2012 by tes5884

[TheBG]

_{thanks everyone... so far, so good.}

_{I can disconnect pst files and move them.}

_{Does anyone have suggestions for multple files with the same name? I need to figure out how to add incremental numbers to the end of the file name, so the file is not overwritten during the move.}

_{yes, I need to use filemove, we have to get these pst files out of the users main directory.}

_{right now I have this:}

[/sub]
[sub] [/sub]
[sub][sub]Func MovePST2()
 DirCreate(@UserProfileDir&"OutlookPST")
 ;Sleep(3000)
 $files = _RecFileListToArray(@UserProfileDir, "*.pst", 1, 1, 0, 2)
 $files2 = _RecFileListToArray(@UserProfileDir, "*.pst", 1, 1, 0, 0)[/sub][/sub]
[sub][sub] For $i = 1 To $files[0]
  $trim = StringTrimRight($files2[$i], 4)
  MsgBox(4096, "trim", $trim);returns target name
  MsgBox(4096, "info", $files[$i]);returns full path
  MsgBox(4096, "info", $files2[$i]);return recursive path
  If FileExists(@UserProfileDir&"OutlookPST"&$trim&""&$files2[$i]) Then
   DirCreate(@UserProfileDir&"OutlookPST"&$trim&"-1")
   FileMove($files[$i], @UserProfileDir&"OutlookPST"&$trim&""&$trim, 8)
   ;FileMove($files[$i], @UserProfileDir&"OutlookPST"&$trim&""&$trim&"-1.pst", 8)
   Else
   DirCreate(@UserProfileDir&"OutlookPST"&$trim)
   FileMove($files[$i], @UserProfileDir&"OutlookPST"&$trim, 8)
   EndIf
  Next
EndFunc[/sub][/sub]
[sub]

[water]

Afternoon,

I saw your response to my query for closing pst files.

Could you show me hwo to use your udf to find all psts and close them?

Also - i cant seem to find the download. I get 'invalid' zip files from the download page.

thanks!

To close all PST files currently open in Outlook use the following code:

$oOL = _OL_Open()
$aStores = _OL_StoreGet($oOL)
For $i = 1 to $aStores[0][0]
If $aStores[$i][4] = True Then
     _OL_PSTClose($aStores[$i][0]
EndIf
Next
_OL_Close()

There is no error checking in this code and the code is untested.

[Juvigy]

I have noticed something when closing PST file that may affect copy.

When i close a PST file it stays open/outlook keeps it locked until i close the Outlook itself.

You can tell easy when in the PST folder and seeing hidden files - you can see the pst temp file:

"~archive.pst.tmp".

[TheBG]

Thanks water!

there were some issues with the code, but I fixed it:

Func DisconnectPSTEX()
Local $oOL = _OL_Open()
Local $aStores = _OL_StoreGet($oOL)
For $i = 1 to $aStores[0][0]
  If $aStores[$i][4] = True Then
  _OL_PSTClose($oOL,$aStores[$i][0])
  EndIf
Next
_OL_Close($oOL)
EndFunc

Question - I started getting security prompts about outlook being accessed. thoughts?

[water]

Haven't seen security warnings when accessing a store before but you shouldn't get such prompts when an AV software is installed.

Can you post a screenshot of the prompt you get?

[TheBG]

Haven't seen security warnings when accessing a store before but you shouldn't get such prompts when an AV software is installed.

Can you post a screenshot of the prompt you get?

[water]

Do you have an Anti-Virus software installed. If Outllook determines that up-to-date AV software is installed those security warnings do not pop up.

You can pass the name of a compiled AutoIt script to _OL_Open to click away thos pop ups.

[TheBG]

^{ok, i figured out how to use _OL_Warnings :-)}

I have noticed something when closing PST file that may affect copy.

When i close a PST file it stays open/outlook keeps it locked until i close the Outlook itself.

You can tell easy when in the PST folder and seeing hidden files - you can see the pst temp file:

"~archive.pst.tmp".

^{yes, I ran into this problem too. I do make outlook close prior to trying to move the files.}

^{But on occasion the files dont move. Im assuming do to it thinking the files are still in use.}

[Juvigy]

After you close Outlook it takes some random time to release the files.I would suggest to check for the pst tmp file and if it exists - wait 1 sec.

[TheBG]

Hello again,

So, I have my script working pretty well.

Can anyone help me with using _FileinUse?

I was curious how to make it wait until a file is not longer is use... like a while or do statment?

Func MovePST2()
local $files, $files2, $trim, $i
$files = _RecFileListToArray(@UserProfileDir, "*.pst", 1, 1, 0, 2)
$files2 = _RecFileListToArray(@UserProfileDir, "*.pst", 1, 1, 0, 0)
DirCreate(@UserProfileDir&"OutlookPST")
Sleep(1000)
Local $x = _FileInUse($files[$i])
While $x == 0
For $i = 1 To $files[0]
  $trim = StringTrimRight($files2[$i], 4)
   ;MsgBox(4096, "", ".tmp file found!")
    If FileExists(@UserProfileDir&"OutlookPST"&$trim) Then
    Else
     If FileExists(@UserProfileDir&"OutlookPST"&$trim&""&$files2[$i]) Then
      DirCreate(@UserProfileDir&"OutlookPST"&$trim&"-"&$i)
      Sleep(3000)
      FileMove($files[$i], @UserProfileDir&"OutlookPST"&$trim&"-"&$i&"", 9)
      Sleep(3000)
     Else
      DirCreate(@UserProfileDir&"OutlookPST"&$trim)
      Sleep(3000)
      FileMove($files[$i], @UserProfileDir&"OutlookPST"&$trim, 9)
      Sleep(3000)
     EndIf
    EndIf
  Sleep(1000)
Next
WEnd
EndFunc

[JohnOne]

While _FileInUse($files[$i])
    Sleep(1000)
WEnd

[TheBG]

While _FileInUse($files[$i])
Sleep(1000)
WEnd

So - this works on an array? Previously, I had the problem of it doing the sleep, but then it would just process the rest of the array and exit out.