#include <OutlookEX.au3>


Func _WinWaitActivate($title,$text,$timeout=0)
   WinWait($title,$text,$timeout)
   If Not WinActive($title,$text) Then WinActivate($title,$text)
   WinWaitActive($title,$text,$timeout)
EndFunc

Opt('TrayIconDebug', 1)
   Opt("WinTitleMatchMode", 2)
   _WinWaitActivate("Satis Teklifi ","")
   Local $sText = WinGetTitle("[ACTIVE]")
   $sText=StringMid($sText,17,9)
;Sorgulama ekranı getiriliyor.



   sleep(3000)

MouseClick($MOUSE_CLICK_LEFT,1122 , 247, 1)

sleep(3000)

MouseClick($MOUSE_CLICK_RIGHT,1122 , 247, 1)

sleep(1000)
 send("{TAB 5}")

 sleep(1000)


Send("{ENTER}")
sleep(1000)

 _WinWaitActivate("Hızlı Rapor Sorgusu: 015 - SSH Teklif - IFS Applications","")
  sleep(2000)


send("{TAB 5}")
  Send("{ENTER}")

;teklif pdf ı görselı

sleep(1000)

  _WinWaitActivate("015 - SSH Teklif ","")

sleep(1000)


;burdamı hata bak
 MouseClick($MOUSE_CLICK_LEFT,67 , 98, 1)

sleep(2000)
  send("{TAB}")
 sleep(1000)
 Send("{ENTER}")
 sleep(1000)
 _WinWaitActivate("Raporu Dışa Aktar","")
 sleep(2000)
Send("{TAB 5}")
   Send("{ENTER}")
  Send("C:\Users\mdogru\Desktop\IFS ÇIKTILARI")
  sleep(500)
  MouseClick($MOUSE_CLICK_LEFT,311 , 75, 1)
sleep(500)
 Send("{ENTER}")
sleep(500)
 MouseClick($MOUSE_CLICK_LEFT,446 , 418, 1)
  sleep(500)

   MouseClick($MOUSE_CLICK_LEFT,459 , 451, 1)
  sleep(500)
;türü sec pdf
 MouseClick($MOUSE_CLICK_LEFT,358 , 396, 1)
  sleep(500)


 Send("DURMAZLAR_TEKLİF")
 sleep(500)
Send("{ENTER}")

 _WinWaitActivate("Farklı Kaydetmeyi Onayla","")
 send("{TAB}")
 sleep(1000)
 Send("{ENTER}")


 _WinWaitActivate("Raporu Dışa Aktar","")

Send("{ENTER}")
sleep(1000)


MouseClick($MOUSE_CLICK_LEFT,25 , 44, 1)
sleep(50)
 _WinWaitActivate("Satis Teklifi -","")



MouseClick($MOUSE_CLICK_LEFT,181 , 120, 2)
sleep(2000)
   ;1 veri kopyalanıyor ,1. copy to the subject okkkkk...
   Send("^C")
   sleep(1000)




;Now please help to copy the data to the email subject section,şimdi email konu kısmına veri kopyalama işlemi için lütfen yardım ,


Global $oOutlook, $oInspector, $oItem
; Open connection to Outlook
$oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

; Access the currently displayed mail item
$oInspector = $oOutlook.ActiveInspector
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error accessing ActiveInspector. @error = " & @error & ", @extended = " & @extended)
$oItem = $oInspector.CurrentItem
$sSubject = ClipGet()
_OL_ItemModify($oOutlook, $oItem, Default, "Subject=" & $sSubject)


If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error accessing current item. @error = " & @error & ", @extended = " & @extended)
If $oItem.Class <> $olMail Then Exit MsgBox(16, "OutlookEX UDF", "Current item isn't a mail item. @error = " & @error & ", @extended = " & @extended)

; Add a PDF file
$sAttachment  ="C:\Users\mdogru\Desktop\IFS ÇIKTILARI\"&"DURMAZLAR_TEKLİF.pdf"
_OL_ItemAttachmentAdd($oOutlook, $oItem, Default, $sAttachment)

; Change <Test.pdf> to the name of your PDF file - or change the whole path if the fil is stored in a different directory.





If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error adding attachment to mail item. @error = " & @error & ", @extended = " & @extended)



; Display item
$oItem.Display