ja ohne probleme volle rechte auf dem pc.
Per KODAGUI in bestehendes Word Dokument schreiben, dann per mail versenden
-
- [ offen ]
-
cr0co -
16. April 2014 um 11:43 -
Erledigt
-
-
-
hier läuft noch XP.
Auf den Desktop sollte ich doch volle rechte haben ?
es scheint so als würde er den pfad nicht finden,
oder die datei zu öffnen die noch gar nicht existiert.Habe Probeweise mal die Pfade auf C:\test\ gesetzt.
gleicher fehler -
Wo bitte gibst Du einen Domänennamen an?
-
Beim
[autoit]$Input1 = GUICtrlCreateInput("Domainname", 152, 80, 161, 21)
[/autoit] -
Ich meinte: Wo verwendest Du die EIngabe des Benutzers in Deinem Skript?
-
Zur besseren verständnis, poste ich mal das ganze script;
[autoit]
[/autoit][autoit][/autoit][autoit]
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Word.au3>
#include <MsgBoxConstants.au3>
#include <OutlookEx.au3>
#include <Debug.au3>#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Administrator\Desktop\remo\Form1.kxf
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$Form1 = GUICreate("Loginblatt erstellen", 623, 442, 585, 150)
$Label1 = GUICtrlCreateLabel("Domainname:", 48, 80, 101, 17)
$Label2 = GUICtrlCreateLabel("Kundennummer:", 48, 112, 97, 17)
$Label3 = GUICtrlCreateLabel("Mail Adresse:", 48, 144, 83, 17)
$Label4 = GUICtrlCreateLabel("FTPUser:", 48, 176, 73, 17)
$Label5 = GUICtrlCreateLabel("FTPPasswort:", 48, 208, 86, 17)
$Input1 = GUICtrlCreateInput("Domainname", 152, 80, 161, 21)
$Input2 = GUICtrlCreateInput("Kundennummer", 152, 112, 161, 21)
$Input3 = GUICtrlCreateInput("Mail Adresse", 152, 144, 161, 21)
$Input4 = GUICtrlCreateInput("FTPUser", 152, 176, 161, 21)
$Input5 = GUICtrlCreateInput("FTPPasswort", 152, 200, 161, 21)
$Label6 = GUICtrlCreateLabel("Server:", 48, 240, 94, 17)
$Input6 = GUICtrlCreateInput("Server", 152, 240, 161, 21)
$Button1 = GUICtrlCreateButton("Lets Go", 192, 336, 169, 41)GUISetState(@SW_SHOW)
[/autoit][autoit][/autoit][autoit]
#EndRegion ### END Koda GUI section ###While 1
[/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $Label1
[/autoit][autoit][/autoit][autoit]
Case $Input1Case $Button1
[/autoit][autoit][/autoit][autoit]
_domainname()EndSwitch
[/autoit][autoit][/autoit][autoit]
WEndFunc _domainname()
[/autoit][autoit][/autoit][autoit]
Global $oWord = objCreate("Word.Application")
If @error Then Exit MsgBox(0, "Error!", "Fehler " & @error & " bei Funktion ObjCreate")
$oWord.Visible = 1
Global $oDok = $oWord.Documents.Open ("C:\remo_autoit" & $Input6 & ".docx") ; Server Loginblatt öffnen // funktioniert nicht; *****************************************************************************
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
; .docx füllen
; *****************************************************************************
$fftext = $oDok.FormFields("Text1")
$fftext.Result = GUICtrlRead($Input1) ; Domainname
$fftext = $oDok.FormFields("Text2")
$fftext.Result = GUICtrlRead($Input2) ; Kundennummer
$fftext = $oDok.FormFields("Text3")
$fftext.Result = GUICtrlRead($Input3) ; Mail Adresse
$fftext = $oDok.FormFields("Text4")
$fftext.Result = GUICtrlRead($Input4) ; FTPUser
$fftext = $oDok.FormFields("Text5")
$fftext.Result = GUICtrlRead($Input5) ; FTPPW; *****************************************************************************
[/autoit]
; Export the current page
; *****************************************************************************
$sPDFName = GuiCtrlRead($Input1)
_Word_DocExport($oDoK, "C:\remo_autoit" & "*" & $sPDFName & ".PDF", Default, $wdExportCurrentPage)
ShellExecuteWait($sPDFName)
EndFunc
_DebugSetup()
_DebugCOMError -
Was erwartest Du Dir von diesem Statement?
[autoit]$sPDFName = GuiCtrlRead($Input1)
[/autoit]
ShellExecuteWait($sPDFName)nachdem in $sPDFName der Domänenname staht?
-
das hast du mir so geschrieben, habs einfach kopiert
-
Du meisnt Post #20? Das sieht aber anders aus und führt kein ShellExcute aus.
-