Beiträge von wuff100
-
-
Moin,
es gibt ja wie in diesem Beispiel die Möglichkeit mit der water UDF den Outlook Account auszulesen.
C
Alles anzeigen#include <MsgBoxConstants.au3> #include <OutlookEX.au3> $sAccount = _Get_Microsoft_Outlook_Account() MsgBox(1, "$sAccount", $sAccount) Func _Get_Microsoft_Outlook_Account() Local $bCreated = False Local $sAccount = "not found" Local $oClient = ObjGet("", "Outlook.Application") ; Try to connect to a running instance If @error Then $oClient = ObjCreate("Outlook.Application") ; No instance was running, start Outlook $bCreated = True EndIf If Not @error Then For $oAccount In $oClient.Session.Accounts $sAccount = $oAccount.SMTPAddress ExitLoop Next EndIf If $bCreated Then ; If Outlook has been started by this function, logoff and close Outlook $oClient.Session.Logoff $oClient.Application.Quit $oClient.Quit $oClient = 0 EndIf Return $sAccount EndFunc ;==>_Get_Microsoft_Outlook_Account
Wie kann ich einen Goggle Account (Email-Adresse) auslesen, wenn kein Outlook vorhanden ist?
Könnt ihr mir helfen?
Gruß
Wuff
-
Zitat
Verstehe ich das richtig, wenn das zu befüllende Feld in der PDF Datei den Namen "Feld1" hat, wird es mit "HalloText" ausgefüllt?
Alina, genau richtig 😊
-
bordermax, habe es nochmal geändert.
Deine Formulardatei *.pdf muss du im Ordner "Master" wie in meinem Beispiel kopieren und als *.fdf einmal ablegen.
-
C
Alles anzeigen#include <FileConstants.au3> #include <MsgBoxConstants.au3> #include <WinAPIFiles.au3> ;---------------------------File---------------- ; PDFTKServer Local $Server = @ScriptDir & "\PDFtk Server\bin\pdftk.exe " Local $MasterPDF = @ScriptDir & '\Master\Test.pdf' Local $sFilename = @TempDir & '\Vorlagen\Test.pdf' ; Formular FDF Local $MasterFDF = @ScriptDir & '\Master\Test.fdf' Local $FDF = @TempDir & '\Vorlagen\Test.fdf' FileCopy($MasterPDF, $sFilename, 1 + 8) FileCopy($MasterFDF, $FDF, 1 + 8) ; Bearbeiten Local $FileBearbeiten = @TempDir & '\Vorlagen\Temp_fe.pdf' ;------------------------------------------------- ;~ pdftk Formular.pdf generate_fdf output formulardaten.fdf RunWait($Server & $sFilename & ' generate_fdf ' & $FDF, "", @SW_HIDE) ;2. AutoDaten eintragen If FileExists($sFilename) Then $sX = StringReplace($sFilename, "\", "/") $sX = StringReplace($sX, ":", "") $sPdfNM = "/" & $sX $FdfNM = FileOpen($FDF, $FO_OVERWRITE + $FO_ANSI) ;----------------------------SCHREIBEN--------------------------------------------- $Ex = "%FDF-1.2 %% Fill Form Fields %%" & @CRLF _ & "1 0 obj << /FDF << /F (" & $sPdfNM & ") /Fields " & @CRLF _ & "[" & @CRLF _ & '<</T(Feld1)/V(HalloTest)>>' & @CRLF _ & '<</T(Feld2)/V(Hallo)>>' & @CRLF _ & "]>>>>" & @CRLF _ & "endobj" & @CRLF _ & "trailer" & @CRLF _ & "<</Root 1 0 R >>" & @CRLF _ & "%%EOF" ;~ MsgBox(1, "", $Ex) FileWrite($FdfNM, $Ex) FileClose($FdfNM) RunWait($FDF, "", @SW_HIDE) EndIf If FileExists($Server) Then If FileExists($FileBearbeiten) Then FileDelete($FileBearbeiten) RunWait($Server & $sFilename & " fill_form " & $FDF & " output " & $FileBearbeiten & ' flatten ', "", @SW_HIDE) ; Nicht mehr editierbar ShellExecute($FileBearbeiten) ;~ FileDelete($FDF) EndIf
-
C
Alles anzeigen#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $UAC = GUICreate("UAC", 220, 82, 192, 124) $AN = GUICtrlCreateButton("AN", 24, 22, 73, 33) $AUS = GUICtrlCreateButton("Aus", 121, 22, 73, 33) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit case $AN RegWrite("HKLM64\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Policies\System", "ConsentPromptBehaviorAdmin", "REG_DWORD", "5") RegWrite("HKLM64\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Policies\System", "EnableLUA", "REG_DWORD", "1") case $AUS RegWrite("HKLM64\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Policies\System", "ConsentPromptBehaviorAdmin", "REG_DWORD", "0") RegWrite("HKLM64\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Policies\System", "EnableLUA", "REG_DWORD", "0") EndSwitch WEnd
-
-
UEZ Vielen Dank! Sehr interessant
-
Moin,
hat einer von Euch es schon mal mit GDIPlus realisiert, viel?
UEZ, vieleicht du?
Ist es mit Autoit überhaupt möglich?
Gruß
-
-
water, ich möchte einen Kalendereintrag(Item) in Outlook direkt löschen und dann eine Rückmeldung als Event bekommen.
Ändern eines Items klappt mit der untenstehenden Lösung gut.
Spoiler anzeigen
#include <OutlookEX.au3>
#include <Array.au3>
Global $oOL = ObjCreate("Outlook.Application")
$aFolder = _OL_FolderAccess($oOL,"Outlook-Datendatei\Kalender\XXXXXX")
;~ _arraydisplay($aFolder)
;~ Local $aFolder = _OL_FolderAccess($oOL,$sFolder)
Global $oItems = $aFolder[1].Items
ObjEvent($oItems, "oItems_")
While 1
Sleep(100)
WEnd
Func oItems_ItemChange($oOL_Item)
Consolewrite("Change")
EndFunc ;==>oItems_ItemAdd
Kannst du mir helfen?
Gruß
-
Oscar , vielen Dank!
-
Moin,
für Excel gibt es diese Funktion: z.B. =AUFRUNDEN(D1/10;0)*10
Beispiel:
Wenn in "D1" der Wert 64 steht, ergibt es den Wert 70.
Oder in "D1" der Wert 126 steht, ergibt es den Wert 130.
Ich möchte es aber nicht mit Excel, sondern mit Autoit rechnen.
Habe es so versucht!
$Sum = 64
$Result = Floor(Int($Sum* 10))/10
Leider nicht das richtige Ergebnis.
Könnt ihr mir helfen?
Gruß
-
Zitat
kann man von der 3.3.14.5 Problemlos auf die neue Version wechseln oder sind größere Probleme bekannt?
Egal welcher Virusscanner, meldet sich bei einer *.Exe ständig!
-
Moin,
ich möche eine PDF drucken, aber ohne FileSaveAs Dialog.
Der Pfad und Name der Ausgebedruckdatei soll vorgegeben werden.
Wie gedruckt wird, ist mir egal.
Ich habe es mit Acrobat COM versucht.
Vielleicht gibt es einen Weg mit:?
ShellExecute (@ScriptDir & "\" & "test.txt", "", "", "print", @SW_HIDE)
Habt ihr eine Idee?
Spoiler anzeigen
$fileIn = "E:\Test.pdf" ;; state the full path of the file to print
$App = ObjCreate("AcroExch.App") ;; start Adobe Acrobat
;$App.Show ;; show Acrobat or comment out for hidden mode
$AVDoc = ObjCreate("AcroExch.AVDoc") ;; connect to Ac Viewer
$AVDoc.Open($fileIn,"") ;; Open a file into viewer
$PDDoc = $AVDoc.GetPDDoc ;; Get the Doc opened in the viewer
$JSO = $PDDoc.GetJSObject ;; Connect to Acrobat JS
$JSO.app.alert("Hi, file is open.Press Ok for printing") ;; Display a MsgBox
;$JSO.print("bUI","nStart","nEnd","bSilent","bShrinkToFit",..)
$nEnd=$jso.numPages-1 ;;$nEnd zeroBase
$JSO.print(False,0,$nEnd,False,True) ;; print with some options
$JSO.closeDoc(True) ;; close active document
$App.CloseAllDocs ;; - or - close all docs
$App.exit
-
Nein, leider nicht.
-
water, okay, trotzdem vielen Dank für deine Mühe.
Wie gesagt, ich arbeite mit der ZugFerd.dll in Verbindung mit Autoit schon länger und es funktioniert, deshalb verstehe ich es auch nicht.
-
Gleiche Fehlermeldung.
Error Number: 80020006
Line Number: 16
WinDescription: Unbekannter Name
LOcal $oAloaha_ZUGFeRD = $alo.Aloaha_ZUGFeRD
Die nächsten Zeilen: WinDescription: Variable must be of type'Object'
-
Error Number: 80020006
Line Number: 16
WinDescription: Unbekannter Name
-
water, "Aloha PDF Converter.au3" (16) : ==> The requested action with this object has failed.:"
Das ist diese Zeile: "If $alo.Aloaha_ZUGFeRD.PDF.DOC2PDFA($InputDOC, $OutputPDFa, $License) = True Then"