motormad

LoL no mate. Im not THE administrator. I just need to work somthing out to simplify some stuff. I like to learn about scripting because it made my life easier So if you can help me out :-) Its because of firm policys that we can not sync 2 directorys. (firm-A to Firm-B ) If i can mail some files automaticly it would be good for both. I dont see anny harm in that.

I tried Outlook.au3 and OutlookEX.au3. it only works with autoit 3.9.2 and not outlook 2003 (wich i use) Im using portable autoit..not 3.9.2 for _InetSmtpMail() its the echange server @ my work... I dont know where to get the info needed

Almost there... But have a problem with to attatch a file to the mail. Im trying with this code. The window of a naw email is open and i'm trying with jeystrokes to attach. But it almost impossible. :-( Func IMPORT_A_TO_AR($FILE) ;~ $Address = InputBox('Address', 'Enter the E-Mail address to send message to') $Subject = "==> : " & $FILE ;InputBox('Subject', 'Enter a subject for the E-Mail') $Body = "==> : " & $FILE ;InputBox('Body', 'Enter the body (message) of the E-Mail') $ATT= $dir&$FILE _INetMail($address, $subject, $body) sleep(500) Send("!i") sleep(1000) Send("b") ;Send("{ENTER}") sleep(1000) Send($ATT) sleep(1000) Send("!o") ;Send("{TAB}") ; sleep(1000) ;Send("{TAB}") ; sleep(1000) ;Send("{ENTER}") ; sleep(1000) ;MsgBox(0,'E-Mail has been opened','The E-Mail has been opened and process identifier for the E-Mail client is ' & _INetMail($address, $subject, $body)) endfunc

Thanks Jhon LoL :-) I will try and post my sollution . Today i made it in à vba module .

The job i like to automate. Search a directori for files. Set them in a array. Mail them 1 fot 1 (maybe make them smaller size) I would like to put the name (nummber's 5 digits) in a excel file. Read them to a array and search for them in a dir. This i can do, no props. I will post the code for this later on. First i need to know if this jobis possible with autoit before i try. 1-can i read out a dir 2-put them in a array (if 1 goes then this would be a prop) 3-command outlook to mail them Thanks in advance.

Thanks all , this works perfect.I use $lastCell.Row (from MrMitchell) in the FunctionExcelReadSheetToArray($oExcel, $iStartRow = 1, $iStartColumn = 1, $lastCell.Row , $iColCnt = 0, $iColShift = 0) didnt try the spmmution of water yet

RichardL Ok, Thats true,... But how does this help me ? I'd like 2 learn more

Spiff59 That function works better. It loads the sheet without crashing. But stil it loads also a bunch of empty cells. (42000 + ) RichardL I uploaded an excel again. cant get mine smaller... strange if you uplaod this one with autoit it gives 10 rows ?? It only has 9 111.zip

Strange , what of i don't know how many there are? I'l try this later.

I use $iRows = $oExcel.ActiveSheet.UsedRange.Rows.Count to count the rows in this excel. then i import the excel to an array $aWO_Nr = _ExcelReadSheetToArray($oExcel,1,1) how come thet it counts 65000+ rows ? Therefore the import to the array doesnt work. Map1.zip

Stil got 1 problem. And i did find why it wont work. But dont have a solution. Sometimes de day is 1 digit. If that happens. It wil convert in the wrong date. #include <Date.au3> #include <Date_Time_Convert.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <DateTimeConstants.au3> Local $st Local $Start_D #Region ### START Koda GUI section ### Form= Local $Form1_1 = GUICreate("Form1", 499, 284, 192, 124) Local $STA_D = GUICtrlCreateDate("2012/01/13 12:30:16", 183, 125, 100, 21, $DTS_SHORTDATEFORMAT) Local $Button1 = GUICtrlCreateButton("Button1", 215, 170, 51, 31) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### ;;================================================================================ ;;AUTOIT SWITCH ;;================================================================================ local $Msg , $Exit While 1 $msg = GUIGetMsg() Select Case 0 ContinueLoop Case $msg = $GUI_EVENT_CLOSE Exit Case $msg = $Button1 schijf() Endselect WEnd ;;================================================================================ ;;AUTOIT SWITCH ;;================================================================================ func schijf() Local $sFormatIn = "dd/MM/yyyy" Local $sFormatOut = "MM/dd/yyyy" Local $Start_D $Start_D = _Date_Time_Convert(GUICtrlRead($STA_D),$sFormatIn, $sFormatOut) ConsoleWrite ("GUICtrlRead($STA_D) " & GUICtrlRead($STA_D) & " $Start_D : " & $Start_D & @CRLF) EndFunc

Thanx all, Melba23, Im gonna try this _Date_Time_Convert UDF Elektron, can you explain a little more? abberration, in this case it wont help me out. greetz

How do i make sure that my date in a query is amways the correct format? The US and UK is making it verry dificult for me. $STA_D = GUICtrlCreateDate("2012/05/01 04:34:26", 183, 125, 86, 21,0) $STO_D = GUICtrlCreateDate("2012/06/08 04:34:26", 278, 125, 86, 21,0) $Start_D= GUICtrlRead($STA_D ) $Stop__D= GUICtrlRead($STO_D ) ConsoleWrite(@CRLF) ConsoleWrite ("GUICtrlRead($STA_D ) = " & GUICtrlRead($STA_D ) & @CRLF) ConsoleWrite ("GUICtrlRead($STO_D ) = " & GUICtrlRead($STO_D ) & @CRLF) ConsoleWrite ("$Start_D = " & $Start_D & @CRLF) ConsoleWrite ("$Stop__D " & $Stop__D & @CRLF) $query1 = "SELECT * FROM Tbl_Bonnen WHERE (((Tbl_Bonnen.[Datum afwerking]) Between #" & $Start_D & "# And #" & $Stop__D & "#));" $query1 = "SELECT Tbl_Bonnen.*, Tbl_Bonnen.[Datum afwerking] FROM Tbl_Bonnen WHERE (((Tbl_Bonnen.[Datum afwerking]) Between #"&GUICtrlRead($STA_D) &"# And #"&GUICtrlRead($STO_D) &"#));" i posted some code. The query is used with an acces database. but the month and days are switching places. thanxs in advance

No , thats not what i want to accomplish. There is à program thats writen in acces. Its to complicaties to put the data in it. Takes ages to type it in, to many keystrokes often and to sloooow. (refresh in a form takes 2sec.) I would like to write something to read the data out an excel file in an array. And let autoit put the data in the program. Because i can not connect directly the database i have to manipulate the menu's . But the window info can not find the correct ID of the textboxes , forms , etc Can sombody help me out ? (I whrote the previous reply on my phone... not a good idea , my english aint that good also)

How come i cant lock on to textboxes in a runtime acces database? Is ther any way to do this? Thanx in advance