mustilem23
Altın Üye
- Katılım
- 29 Ekim 2010
- Mesajlar
- 365
- Excel Vers. ve Dili
- Microsoft Office 365 ProPlus 64 bit
- Altın Üyelik Bitiş Tarihi
- 31-05-2024
Merhaba ,
Elimde ekteki gibi kullanmış olduğum bir makrom mevcut ,
MouseClick($MOUSE_CLICK_LEFT,965 , 311, 2)
Kodlamanın içindeki bu işlemden sonra bugünün tarihi + 3 gün sonraki tarihi yazdırmak istiyorum koda ilave edebilmemiz mümkün müdür ?
Sonuç 19/11/2013 + 3 = 22/11/2018 =BUGÜN()+2
Elimde ekteki gibi kullanmış olduğum bir makrom mevcut ,
MouseClick($MOUSE_CLICK_LEFT,965 , 311, 2)
Kodlamanın içindeki bu işlemden sonra bugünün tarihi + 3 gün sonraki tarihi yazdırmak istiyorum koda ilave edebilmemiz mümkün müdür ?
Sonuç 19/11/2013 + 3 = 22/11/2018 =BUGÜN()+2
Kod:
#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
Local $var = WinList()
For $i = 1 To $var[0][0]
If $var[$i][0] <> "" And IsVisible($var[$i][1]) Then
;MsgBox(0, "Details", "Title=" & $var[$i][0] & @LF & "Handle=" & $var[$i][1])
Local $sirasi = StringInStr($var[$i][0], "@ DURMAZLAR PROD. APPLICATION SERVER - IFS Applications") ;açık kalmasını istediğin sayafa
Local $soldan = StringLeft($var[$i][0],20 ) ;soldan sayılacak boşluk sayısı dikkat et boşluklara göre
if $sirasi>0 then
if $soldan<>"Satis Teklifi - Y200" then
WinClose($var[$i][0])
EndIf
EndIf
EndIf
Next
Func IsVisible($handle)
If BitAND(WinGetState($handle), 2) Then
Return 1
Else
Return 0
EndIf
EndFunc
;BURDAN SONRA ÇALIŞIYOR EMAİL EKLEME
Opt('TrayIconDebug', 1)
Opt("WinTitleMatchMode", 2)
_WinWaitActivate("Satis Teklifi -","")
Local $sText = WinGetTitle("[ACTIVE]")
$sText=StringMid($sText,17,9)
sleep(2000)
MouseClick($MOUSE_CLICK_LEFT,102 , 427, 1)
send("{f5}")
sleep(1000)
send("{TAB 2}")
sleep(1000)
send("{f12}")
sleep(3000)
Send("{ENTER}")
sleep(2000)
MouseClick($MOUSE_CLICK_LEFT,1129 , 404, 1)
sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1279 , 423, 1)
sleep(1000)
Send("^C")
sleep(2000)
MouseClick($MOUSE_CLICK_LEFT,1129 , 404, 1)
MouseClick($MOUSE_CLICK_LEFT,1129 , 404, 1)
sleep(2000)
MouseClick($MOUSE_CLICK_LEFT,103 , 427, 1)
sleep(1000)
MouseClick($MOUSE_CLICK_RIGHT,103 ,427 , 1)
;İLK BURDAN KALDIK
send("{TAB 7}")
Send("{ENTER}")
sleep(3000)
MouseClick($MOUSE_CLICK_LEFT,441 , 550, 1)
send("{f5}")
sleep(1000)
send("{E}")
send("{X}")
send("{T}")
send("{U}")
send("{T}")
sleep(2000)
send("{TAB 2}")
send("{1}")
send("{0}")
send("{0}")
send("{TAB }")
sleep(1000)
send("{f12}")
sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1254 , 325, 1)
sleep(1000)
sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1414 , 426, 1)
sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1414 , 426, 2)
Send("^+{HOME}")
Send("^C")
;~ ; ctrl alt home yap 111111111111111111
sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1129 , 404, 1)
sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1129 , 404, 1)
sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1414 , 426, 1)
sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1414 , 426, 2)
Send("^+{HOME}")
sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1414 , 427, 1)
sleep(1000)
send("{BACKSPACE 20}")
sleep(1000)
Send("^V")
sleep(1000)
send("{f12}")
; burdayız 27 09
sleep(2000)
MouseClick($MOUSE_CLICK_LEFT,978 , 320, 1)
MouseClick($MOUSE_CLICK_RIGHT,978 , 320, 1)
sleep(1000)
send("{TAB 7}")
Send("{ENTER}")
sleep(2000)
;TEKLİF YAYINLA
sleep(2000)
_WinWaitActivate("IFS Uygulamaları","")
sleep(1000)
Send("{ENTER}")
sleep(3000)
MouseClick($MOUSE_CLICK_LEFT,978 , 320, 1)
MouseClick($MOUSE_CLICK_RIGHT,978 , 320, 1)
sleep(1000)
send("{TAB 13}")
Send("{ENTER}")
sleep(3000)
_WinWaitActivate("Tekliften Satis Siparisi Yarat","")
Send("TYD")
send("{TAB 1}")
sleep(1000)
;teslimat günü ayarlanacak bugün
MouseClick($MOUSE_CLICK_LEFT,965 , 311, 2)
sleep(2000)
MouseClick($MOUSE_CLICK_LEFT,900 , 485, 1)
sleep(3000)
send("{TAB 1}")
sleep(1000)
Send("01")
sleep(1000)
send("{TAB 2}")
Send("{ENTER}")
sleep(1000)
;TEKLİFTEN SİPARİŞ YARATILIYOR BURDA KALDIK
_WinWaitActivate("IFS Uygulamaları","")
sleep(1000)
send("{TAB 2}")
sleep(2000)
Send("{ENTER}")
sleep(5000)
MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)
sleep(1000)
MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)
sleep(500)
MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)
sleep(500)
MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)
sleep(500)
MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)
sleep(500)
MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)
sleep(500)
MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)
sleep(500)
MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)
sleep(500)
MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)
sleep(500)
MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)
sleep(500)
MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)
sleep(500)
MouseClick($MOUSE_CLICK_LEFT,1118 , 377, 1)
sleep(500)
MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)
sleep(500)
MouseClick($MOUSE_CLICK_LEFT,1082 , 377, 1)
sleep(500)
MouseClick($MOUSE_CLICK_LEFT,156 , 427, 1)
sleep(500)
MouseClick($MOUSE_CLICK_LEFT,43 , 548, 1)
sleep(4000)
Opt('TrayIconDebug', 1)
Opt("WinTitleMatchMode", 2)
_WinWaitActivate("Satis Siparisi -","")
Local $sText = WinGetTitle("[ACTIVE]")
$sText=StringMid($sText,17,9)
sleep(2000)
MouseClick($MOUSE_CLICK_LEFT,171 , 167, 2)
sleep(1000)
;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\"&"TL_EUR_USD_HESAPLARIMIZ.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
Son düzenleme: