Beiträge von cr0co

  • Excel Tabelle/Zeile auslesen und als $Variable in AutoIT benutzen

    Hallo

    Ich habe über die Suche diverse Themen gefunden,
    jedoch sieh ich nicht so ganz durch.

    Ich habe eine Excel datei die jederzeit gefüllt wird.
    Momentan sind 2601 Zeilen vorhanden.

    Der Benutzer macht eine Eingabe $Input1 nun soll das Excel nach diesem wort durchgescannt werden.
    Wenn das Wort in Tabelle A Gefunden wurde, soll er in der gleichen Zeile in der Tabelle H das Wort nehmen und als Variable speichern,
    danach soll sich eine bestimmte URL mit dieser Variable öffnen.


    Bis jetzt habe ich;

    [autoit]


    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <MsgBoxConstants.au3>
    #include <Excel.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 411, 164, 192, 124)
    $Label1 = GUICtrlCreateLabel("Domainname ?", 24, 48, 75, 17)
    $Input1 = GUICtrlCreateInput("Domain", 120, 48, 217, 21)
    $Button1 = GUICtrlCreateButton("OK", 104, 104, 209, 41)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    [/autoit][autoit][/autoit][autoit]

    EndSwitch
    WEnd

    [/autoit][autoit][/autoit][autoit]

    Case $Button1
    _domainname()
    EndSwitch
    WEnd
    Func _domainname()
    $sFilePath1 = @ScriptDir & "X:\Domains.xls" ; Diese Datei sollte bereits existieren
    $oExcel = _ExcelBookOpen($sFilePath1)
    If @error = 1 Then
    MsgBox(0, "Fehler!", "Das Excel-Objekt konnte nicht erstellt werden")
    Exit
    ElseIf @error = 2 Then
    MsgBox(0, "Fehler!", "Die Datei existiert nicht!")
    Exit
    EndIf

    [/autoit]

  • Per KODAGUI in bestehendes Word Dokument schreiben, dann per mail versenden

    hehe

    Jetzt kommt ""domain.ch" konnte nicht gefunden werden. Stellen Sie sicher, dass Sie den Namen korrekt eingegeben haben und wiederholen Sie den Vorgang.
    Klicken Sie auf "Start" und anschliessend auf "Suchen", um eine Datei zu suchen."


    Kann ich bei

    [autoit]

    _Word_DocExport($oDoK, @TempDir & "*" & $sPDFName & ".PDF", Default, $wdExportCurrentPage)

    [/autoit]

    einen netzwerk pfad angeben ?

    z.B.

    [autoit]

    _Word_DocExport($oDoK, \\XXX\XXXXX\_HOT\ & "*" & $sPDFName & ".PDF", Default, $wdExportCurrentPage)

    [/autoit]

  • Per KODAGUI in bestehendes Word Dokument schreiben, dann per mail versenden

    jetzt heisst die Datei $sPDFName.pdf


    [autoit]


    ; *****************************************************************************
    ; Export the current page
    ; *****************************************************************************
    ;Global $sFilename = "\\XXX\XXXX\_HOT\Input1.pdf"
    $sPDFName = GuiCtrlRead($Input1)
    _Word_DocExport($oDoK, $sPDFName, Default, $wdExportCurrentPage)
    If @error <> 0 Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocExport Example", _
    "Error exporting the document." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocExport Example", _
    "The current page has successfully been exported to: " & $sPDFName)
    ShellExecuteWait($sPDFName)
    EndFunc

    [/autoit]


    Mir fehlt jetzt noch,

    1. Global $oDok = $oWord.Documents.Open ("\\XXXX\XXXXX\$Input6.docx")
    $Input6 importieren

    2. .pdf Datei umbennen oder mit $Input1 importieren

    3. diese PDF datei per mail an $Input3 versenden

  • Per KODAGUI in bestehendes Word Dokument schreiben, dann per mail versenden

  • Per KODAGUI in bestehendes Word Dokument schreiben, dann per mail versenden

    Da das .docx File bereits geöffnet ist, habe ich mich daran gemacht;

    Code
    ; *****************************************************************************
; Export the current page
; *****************************************************************************
 Global $sFilename = @TempDir & "\Test3.pdf"
_Word_DocExport($oDoK, $sFilename, Default, $wdExportCurrentPage)
If @error <> 0 Then Exit MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocExport Example", _
    	"Error exporting the document." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "Word UDF: _Word_DocExport Example", _
    	"The current page has successfully been exported to: " & $sFilename)
ShellExecuteWait($sFilename)

    Jedoch passiert nichts nachdem er die Felder ausgefüllt hat, habe ich da etwas übersehen ?

  • Per KODAGUI in bestehendes Word Dokument schreiben, dann per mail versenden

    1.

    2.

    3. dort steht "add attachments" aber im beispiel wird dieses nicht aufgeführt,
    oder bin ich auf dem falschen link? http://www.autoitscript.com/wiki/OutlookEX_UDF_-_Mail_Item

  • Per KODAGUI in bestehendes Word Dokument schreiben, dann per mail versenden

    Soweit so gut, klappt nun das er die eingaben des Benutzer in das Word Dokument schreibt.

    1. Hier öffnet er nicht die eingabe des Benutzers sondern "$Input6.docx" was natürlich nicht existiert ;)
    Habs auch wieder mit GuiCtrlRead probiert, hat aber nichts gebracht.

    Code
    $oDok = $oWord.Documents.Open ("\\XX\XX\$Input6.docx")


    2. Wie speichere ich das nun als PDF ab? (PDF Drucker ist Jaws PDF Creator)
    der abgespeicherte name sollte $Input1 sein

    3. Per Outlook 2007 versenden?