lafafmentvotre

Hi works fine now. Many thanks for help

Thanks, I tried to do this in my script. It works with consolewrite but doesn't work with Guictrlsetdata #region AUTOIT VARIABLES #include <GuiConstants.au3> #include <WindowsConstants.au3> #include <ButtonConstants.au3> #include <StaticConstants.au3> #include <EditConstants.au3> #endregion #region SCRIPT VARIABLES Global $outlook_input, $string,$Split1,$Split2,$Split3 #endregion #region GUI $GuiManager = GuiCreate("Logon Default User", 700, 420, -1, -1,$WS_POPUPWINDOW) #region FILE MENU $filemenu=GUICtrlCreateMenu('File') $convert_item=GUICtrlCreateMenuItem('Convert',$filemenu) $copy_item=GUICtrlCreateMenuitem('Copy',$filemenu) $exit_item=GUICtrlCreateMenuitem('Exit',$filemenu) #endregion #region LIST FROM OUTLOOK GUICtrlCreateGroup('', 5, 12, 690, 150) GUICtrlCreateLabel('LIST FROM OUTLOOK',10,25,680,20,$SS_CENTER) GUICtrlSetFont(-1, -1, 800, 0, "",1) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlCreateLabel('Please paste your recipients from Outlook in field below',10,45,680,20,$SS_CENTER) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $outlook_input=GUICtrlCreateInput("",20, 67, 660,80) #endregion #region LIST FOR EASYSHARE GUICtrlCreateGroup('', 5, 175, 690, 150) GUICtrlCreateLabel('LIST FOR EASYSHARE',10,185,680,20,$SS_CENTER) GUICtrlSetFont(-1, -1, 800, 0, "",1) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlCreateLabel('Please copy recipients below or click on button Copy',10,205,680,20,$SS_CENTER) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $easyshare_input=GUICtrlCreateInput("",20, 227, 660,80) #endregion #region BUTTONS $convertbutton=GuiCtrlCreateButton('Convert', 240, 360, 70, 20, $BS_DEFPUSHBUTTON) $copybutton=GuiCtrlCreateButton('Copy', 315, 360, 70, 20) $exitbutton=GuiCtrlCreateButton('Exit', 390, 360, 70, 20) #endregion #region BACKGROUND #endregion #endregion #region SCRIPT GuiSetState() While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Or $msg = $exitbutton or $msg=$exit_item Then DirRemove(@TempDir&'\Logon_User_Lancel',1) ExitLoop EndIf If $msg = $convertbutton or $msg=$convert_item Then convert() EndIf WEnd #endregion #region FUNCTIONS Func convert() $string=GUICtrlRead($outlook_input) $Split1 = StringSplit($string, ';') for $1 = 1 To $Split1[0] $Split2 = StringSplit($Split1[$1], '<') For $2 = 1 To $Split2[0] If $2 = $Split2[0] Then ;~ ConsoleWrite(StringTrimRight($Split2[$2], 1)&';') $Split3=StringTrimRight($Split2[$2], 1)&';' GUICtrlSetData($easyshare_input,$Split3,"") EndIf Next Next EndFunc #endregion Need your help again Thanks

Hello Careca Thank you. Is there a possibility to put value from ConsoleWrite to a GUICtrlCreateInput ? Thanks

Hello I found this script. How can I concatenate values (email address) in a variable and put it in a GUICtrlCreateInput? $string = 'blablablabla <email1@domain.com>; blablablabla <email2@domain.com>; blablablabla <email3@domain.com>; blablablabla <email4@domain.com>; blablablabla <email5@domain.com>' $Array = _SRE_Between($string, '<', '>', 1) If IsArray($Array) Then For $i = 0 To UBound($Array) - 1 MsgBox(64, 'Info:', $Array[$i]) Next EndIf Func _SRE_Between($s_String, $s_Start, $s_End, $i_ReturnArray = 0); $i_ReturnArray returns an array of all found if it = 1, otherwise default returns first found $a_Array = StringRegExp($s_String, '(?:' & $s_Start & ')(.*?)(?:' & $s_End & ')', 3) If Not @error And Not $i_ReturnArray And IsArray($a_Array) Then Return $a_Array[0] If IsArray($a_Array) Then Return $a_Array EndFunc Thanks for help

Thank you for help Palestinian and sorry for the wayfarer :-)

Hello Wayfarer Thank you for your response No,I've never used and I don't know how to use it for my problem

Hi everybody Is there a solution to execute this script without "Installing Fonts" window ? #region AUTOIT VARIABLES #endregion #region DIRECTORY & DRIVERS DirCreate(@TempDir&'\Perpetua_Fonts') FileInstall('Sources\PerpetuaMTPro.otf', @TempDir&'\Perpetua_Fonts\PerpetuaMTPro.otf') FileInstall('Sources\PerpetuaMTPro-Bold.otf', @TempDir&'\Perpetua_Fonts\PerpetuaMTPro-Bold.otf') FileInstall('Sources\PerpetuaMTPro-BoldItalic.otf', @TempDir&'\Perpetua_Fonts\PerpetuaMTPro-BoldItalic.otf') FileInstall('Sources\PerpetuaMTPro-Italic.otf', @TempDir&'\Perpetua_Fonts\PerpetuaMTPro-Italic.otf') FileInstall('Sources\PerpetuaTitlingMTPro.otf', @TempDir&'\Perpetua_Fonts\PerpetuaTitlingMTPro.otf') FileInstall('Sources\PerpetuaTitlingMTPro-Bold.otf', @TempDir&'\Perpetua_Fonts\PerpetuaTitlingMTPro-Bold.otf') FileInstall('Sources\PerpetuaTitlingMTPro-Light.otf', @TempDir&'\Perpetua_Fonts\PerpetuaTitlingMTPro-Light.otf') #endregion #region SCRIPT VARIABLES Const $FONTS = 0x14 $oShell=ObjCreate("Shell.Application") $oWinFonts=$oShell.Namespace($FONTS) $sFirstFile=FileFindFirstFile(@TempDir&'\Perpetua_Fonts\*.*') #endregion #region SCRIPT If $sFirstFile=-1 Then Exit EndIf While 1 Local $sFile = FileFindNextFile($sFirstFile) If @error Then ExitLoop Switch StringRight($sFile, 3) Case 'ttf', 'otf', 'pfm', 'fon' $sWinFontsPath = @WindowsDir&'\fonts\'&$sFile $sLocFontsPath = @TempDir&'\Perpetua_Fonts\'&$sFile If NOT FileExists($sWinFontsPath) Then $oWinFonts.CopyHere($sLocFontsPath) Else ;~ MsgBox(262144, $sFile, 'The file is already installed', 1) EndIf EndSwitch WEnd DirRemove(@TempDir&'\Perpetua_Fonts',1) #endregion Thanks and sorry for my english

Hello Water It's a Outlook Add In (Celum) to access on pictures on a server. I need to install it like a manual action. Options. add-ins. Manage Com Add-ins. Go. Add. The file on the computer is "outlookConnect.dll"

Hello Any ideas ? Thank You

Hi everybody Is there a solution to install "COM Add-Ins" silently with autoit in Outlook 2010 ? Thanks by advance

Hello I installed SciTE4AutoIt3.exe and CTRL + F5 works now. Thank you for all

I don't have this button in the menu And my scripts works (CTRL+F5) on the previous version 3.3.6.1

The same ? It nothing happens, no check in the bottom window as before

Hi everybody In previous versions, I could check my script with CTRL + F5. In version 3.3.8.1, what is this command? Thank you in advance and sorry for my bad english

Ok, it works Many thanks