Dim GetMailsSh As Shell
GetMailsSh.Initialize("GetMails", "c:\windows\system32\cscript.exe", Array As String("//nologo", File.DirApp & "\" & WorkingDir& "\GetMailsUTF8.vbs",AccountName,MarkAsRead,RemoveDoubleCRLFsInBody))
GetMailsSh.WorkingDirectory = File.DirApp & "\" & WorkingDir
GetMailsSh.Run(120000)