Outlook message autoit pdf copy paste

[water]

16 minutes ago, mustilem23 said:

Global $oItem = _OL_ItemAttachmentAdd($oOutlook, ^ ERROR

Sure does it give an error!
I again fixed post #17.

[mustilem23]

#include <OutlookEX.au3>

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
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
Global $oItem = _OL_ItemAttachmentAdd($oOutlook$oOutlook, ^ ERROR, $oItem, Default, @ScriptDir & "C:\Users\mdogru\Desktop\Yeni klasör (5)\<Y20004222.pdf.pdf>") ; Change <Test.pdf> to the nam 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

 

The final version looks like the next one but I still get the error

 

>"C:\Program Files (x86)\AutoIt3\SciTE\..\AutoIt3.exe" "C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.au3" /run /prod /ErrorStdOut /in "C:\Users\mdogru\Desktop\evden gelen\OutlookEX 1.2.2.0\_OL_ItemModify.au3" /UserParams    
+>11:17:25 Starting AutoIt3Wrapper v.15.920.938.0 SciTE v.3.6.0.0   Keyboard:0000041F  OS:WIN_7/Service Pack 1  CPU:X64 OS:X64    Environment(Language:041F)
+>         SciTEDir => C:\Program Files (x86)\AutoIt3\SciTE   UserDir => C:\Users\mdogru\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper   SCITE_USERHOME => C:\Users\mdogru\AppData\Local\AutoIt v3\SciTE 
>Running AU3Check (3.3.14.2)  from:C:\Program Files (x86)\AutoIt3  input:C:\Users\mdogru\Desktop\evden gelen\OutlookEX 1.2.2.0\_OL_ItemModify.au3
"C:\Users\mdogru\Desktop\evden gelen\OutlookEX 1.2.2.0\_OL_ItemModify.au3"(16,48) : error: syntax error
Global $oItem = _OL_ItemAttachmentAdd($oOutlook$oOutlook
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\mdogru\Desktop\evden gelen\OutlookEX 1.2.2.0\_OL_ItemModify.au3"(16,66) : error: ERROR(): undefined function.
Global $oItem = _OL_ItemAttachmentAdd($oOutlook$oOutlook, ^ ERROR,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\mdogru\Desktop\evden gelen\OutlookEX 1.2.2.0\_OL_ItemModify.au3 - 2 error(s), 0 warning(s)
!>11:17:25 AU3Check ended. Press F4 to jump to next error.rc:2
+>11:17:25 AutoIt3Wrapper Finished.
>Exit code: 2    Time: 1.466

Error panel ,

 

 

 

Do you have the opportunity to try outlook?

 

 

 

 

 

[water]

This two errors are easy to identify and correct.
What have you tried yourself to remove this two errors?

[mustilem23]

I tried different things but could not change the result.

I took the pdf to the desktop, etc.

Please help.

 

 

 

 

 

 

 

[water]

Come on, the errors are easy to spot. Both are in the same line of code:

; Add a PDF file
Global $oItem = _OL_ItemAttachmentAdd($oOutlook$oOutlook, ^ ERROR, $oItem, ...

Edited January 24, 2017 by water

[mustilem23]

 

 

 

Global $oItem = _OL_ItemAttachmentAdd($oOutlook, ^ ERROR, $oItem, Default, @ScriptDir & "C:\Users\mdogru\Desktop\test.pdf>")

 

 

It should be right now, but the same

 

 

 

 

 

 

[water]

I marked a second error in the same line in red

[mustilem23]

 

Global $oItem = _OL_ItemAttachmentAdd($oOutlook, $oItem, Default, @ScriptDir & "C:\Users\mdogru\Desktop\test.pdf>")

 

I did the 2nd error, I do not get any errors, but the situation is the same

 

 

 

Final status

>"C:\Program Files (x86)\AutoIt3\SciTE\..\AutoIt3.exe" "C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.au3" /run /prod /ErrorStdOut /in "C:\Users\mdogru\Desktop\evden gelen\OutlookEX 1.2.2.0\_OL_ItemModify.au3" /UserParams    
+>17:51:17 Starting AutoIt3Wrapper v.15.920.938.0 SciTE v.3.6.0.0   Keyboard:0000041F  OS:WIN_7/Service Pack 1  CPU:X64 OS:X64    Environment(Language:041F)
+>         SciTEDir => C:\Program Files (x86)\AutoIt3\SciTE   UserDir => C:\Users\mdogru\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper   SCITE_USERHOME => C:\Users\mdogru\AppData\Local\AutoIt v3\SciTE 
>Running AU3Check (3.3.14.2)  from:C:\Program Files (x86)\AutoIt3  input:C:\Users\mdogru\Desktop\evden gelen\OutlookEX 1.2.2.0\_OL_ItemModify.au3
+>17:51:18 AU3Check ended.rc:0
>Running:(3.3.14.2):C:\Program Files (x86)\AutoIt3\autoit3_x64.exe "C:\Users\mdogru\Desktop\evden gelen\OutlookEX 1.2.2.0\_OL_ItemModify.au3"    
--> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
"C:\Users\mdogru\Desktop\evden gelen\OutlookEX 1.2.2.0\_OL_ItemModify.au3" (16) : ==> Can not initialize a variable with itself.:
Global $oItem = _OL_ItemAttachmentAdd($oOutlook, $oItem, Default, @ScriptDir & "C:\Users\mdogru\Desktop\test.pdf>")
Global $oItem = _OL_ItemAttachmentAdd($oOutlook, ^ ERROR
->17:51:18 AutoIt3.exe ended.rc:1
+>17:51:18 AutoIt3Wrapper Finished.
>Exit code: 1    Time: 1.3

 

 

 

 

[water]

This problem has already been solved before!
Please try this latest version:

#include <OutlookEX.au3>

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
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
_OL_ItemAttachmentAdd($oOutlook, $oItem, Default, @ScriptDir & "\<Test.pdf>") ; 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

But you need to change @ScriptDir & "\<Test.pdf>" to the file you want to include!

[mustilem23]

Yes, we got the scenario working but partially J Now it adds a pdf to an open e-mail. But my pdf is not a fixed one, it constantly changes like Y20002150 Y20002151 Y20002152 etc.

 

 

OL_ItemAttachmentAdd($oOutlook, $oItem, Default,"C:\Users\mdogru\Desktop\Y20002150.pdf")

 

 

There are two factors now in the scenario

 

 

1 the script will first go to the program named licemap, will copy with 4 tabs and will add to the Subject line of the open mail,

2 C:\Users\mdogru\Desktop adresindeki Y200021% will copy the variable pdf and paste it to the open mail or will cut/paste it.

 

 

OL_ItemAttachmentAdd($oOutlook, $oItem, Default,"C:\Users\mdogru\Desktop\Y20002150.pdf")

pdfler

http://hizliresimyukle.com/image/O2RDJ

 

http://i.hizliresim.com/2ZBRzj.jpg

örnek program

Can we encode these steps if I ask

Edited January 25, 2017 by mustilem23

[water]

If the filename of the PDF is variable then you need to pass a variable to _OL_ItemAttachmentAdd:

$sAttachment = "C:\Users\mdogru\Desktop\" & "Y20002150.pdf" ; <== Replace the PDF name with the actual name during run time.
_OL_ItemAttachmentAdd($oOutlook, $oItem, Default, $sAttachment)

 

[mustilem23]

 

I updated the code this way, but I get an error

; Add a PDF file
_OL_ItemAttachmentAdd($oOutlook, $oItem, Default,$ sAttachment  ="C:\Users\mdogru\Desktop\Yeni klasör (6)"  &  "Y20002151.pdf")
_OL_ItemAttachmentAdd($oOutlook, $oItem, Default, $sAttachment)

 

Error  screen

>"C:\Program Files (x86)\AutoIt3\SciTE\..\AutoIt3.exe" "C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.au3" /run /prod /ErrorStdOut /in "C:\Users\mdogru\Desktop\evden gelen\OutlookEX 1.2.2.0\_OL_ItemModify.au3" /UserParams    
+>13:48:47 Starting AutoIt3Wrapper v.15.920.938.0 SciTE v.3.6.0.0   Keyboard:0000041F  OS:WIN_7/Service Pack 1  CPU:X64 OS:X64    Environment(Language:041F)
+>         SciTEDir => C:\Program Files (x86)\AutoIt3\SciTE   UserDir => C:\Users\mdogru\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper   SCITE_USERHOME => C:\Users\mdogru\AppData\Local\AutoIt v3\SciTE 
>Running AU3Check (3.3.14.2)  from:C:\Program Files (x86)\AutoIt3  input:C:\Users\mdogru\Desktop\evden gelen\OutlookEX 1.2.2.0\_OL_ItemModify.au3
"C:\Users\mdogru\Desktop\evden gelen\OutlookEX 1.2.2.0\_OL_ItemModify.au3"(16,50) : error: syntax error (illegal character)
_OL_ItemAttachmentAdd($oOutlook, $oItem, Default,$
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\mdogru\Desktop\evden gelen\OutlookEX 1.2.2.0\_OL_ItemModify.au3"(17,63) : warning: $sAttachment: possibly used before declaration.
_OL_ItemAttachmentAdd($oOutlook, $oItem, Default, $sAttachment)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
"C:\Users\mdogru\Desktop\evden gelen\OutlookEX 1.2.2.0\_OL_ItemModify.au3"(17,63) : error: $sAttachment: undeclared global variable.
_OL_ItemAttachmentAdd($oOutlook, $oItem, Default, $sAttachment)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\mdogru\Desktop\evden gelen\OutlookEX 1.2.2.0\_OL_ItemModify.au3 - 2 error(s), 1 warning(s)
!>13:48:48 AU3Check ended. Press F4 to jump to next error.rc:2
+>13:48:48 AutoIt3Wrapper Finished.
>Exit code: 2    Time: 1.047

 

 

We are going step by step, I'm experimenting a lot  

[water]

You need to learn how AutoIt works! This syntax errors should be easy to solve  

[mustilem23]

 

 

This is also the mistake

If I solved issue , that time I get more time to try learn program.

; Add a PDF file
_OL_ItemAttachmentAdd($oOutlook, $oItem, Default,$sAttachment  ="C:\Users\mdogru\Desktop\Yen"  &  "Y20002151.pdf")
_OL_ItemAttachmentAdd($oOutlook, $oItem, Default, $sAttachment)

 

[mustilem23]

 

Good morning water

 

I learned that this is what it should be

 

; Add a PDF file
$sAttachment  ="C:\Users\mdogru\Desktop\Yen"&"Y20002151.pdf"
_OL_ItemAttachmentAdd($oOutlook, $oItem, Default, $sAttachment)

 

error adding attachment to mail item @eror =4, @extended =

But I am getting the following error, please help me.

[water]

If Yen is a directory then it should be

; Add a PDF file
$sAttachment  ="C:\Users\mdogru\Desktop\Yen\"&"Y20002151.pdf"
_OL_ItemAttachmentAdd($oOutlook, $oItem, Default, $sAttachment)

 

[mustilem23]

Dear water ,

The program working almost, but for the solution it seems to me that it will be solved if we run scenario one.

Now please help for the task of copying data to mail Subject

I got stuck at that point:

copy (ctrl c ) is OK, but paste to mail is not. Please help

expandcollapse popup

#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("SA Malzemesi Tedarikçisi -","")
   Local $sText = WinGetTitle("[ACTIVE]")
   $sText=StringMid($sText,17,9)



   ;Sorgulama ekranı getiriliyor.
   sleep(2000)
   send("{TAB 4}")

   ;2 veri kopyalanıyor
   Send("^C")
   sleep(2000)

;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
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\Yen\"&"Y20002151.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

 

[mustilem23]

Dear water ,

Help for the first step of the script.

Do you have time to help?

[water]

Not at the moment. I'm on a business trip right now. 

[mustilem23]

Dear  water ,

I understand ,

 

 

 

Edited January 26, 2017 by mustilem23