outlook script help

[berserker]

Hi,

I'm in the process of writing a script that searches for an email via an identifier (Request ID), once the email is found, the email needs to be activated.

The request ID is also used to indicate the line on which it was found within the email. I need this line to give me some more information (a date delimited by "/"). I have some sample code that works with notepad with text inserted, however, when I try using this on outlook, i get an error stating:

Dim $line[$linecount]

Dim $line[^

Error: Array variable subscript badly formatted

So my assumption is I am not selecting the correct control or could use some improvement on the code itself. (I have adapted this code from someone else's). All I require is for it to be able to read the body of an email.

Thanks in advance

The following works with text in notepad:

expandcollapse popup

#include <GUIConstants.au3>
#include <GUIedit.au3>
Opt("WinTitleMatchMode", 4); Allow ClassName lookup

Dim $LineCount
Dim $LineNum
Dim $Ret
Dim $LineLen
Dim $FirstCharPos
Dim $Buffer
dim $reqid
dim $test

$reqid = 600319372

Const $Applhandle = WinGetHandle("classname=Notepad")
Const $Ctrlhandle = ControlGetHandle("","",15)

WinWaitActive($Applhandle)
    sleep(500)
    WinHandle()
    CtrlRead($Ctrlhandle)

Func CtrlRead($Ctrlhandle); tested = OK
    $LineCount = _GUICtrlEditGetLineCount($Ctrlhandle)
    MsgBox(0, "Test", "Line #" & " " & $LineCount)
    Dim $line[$LineCount]
    For $LineNum = 0 To $LineCount - 1
        $Ret = DllCall("user32.dll", "int", "SendMessage", "hwnd", $Ctrlhandle, "int", $EM_GETLINE, "int", $LineNum, "str", "")
        MsgBox(0, "Test", "Text is =" & " " & $Ret[4])
        $line[$LineNum] = $ret[4]
        if stringinstr($line[$LineNum], $reqid) Then
            MsgBox(0, "Test", "YOU FOUND THE REQUEST ID")
            $test = StringSplit($line[$LineNum], "/", 1)
        EndIf
    Next
    $timeslot = StringSplit($test[3], " ", 1)
    $date = StringRight($test[1], 2) & "/" & $test[2] & "/" & StringLeft($test[3], 4) & " " & $timeslot[2]
    MsgBox(0, "asdasd", $Date)
    
EndFunc;==>CtrlRead

[DaleHohm]

I assume you've found $LineCount to be -1 correct? This is the source of your array subscript error.

_GUICtrlEditGetLineCount returns -1 when the control being passed to it is not an "Edit" control.

Dale