Beiträge von wuff100

  • Programm mit Adminrechte (UAC) restarten

  • Outlool Event (Kalendereintrag löschen)

    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ß

  • Aufrunden Floor etc.

    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ß

  • Drucken ohne FileSaveAs Dialog, sondern Vorgabe der Ausgebedruckdatei

    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

  • Dokumente direkt nach PDF/A konvertieren

    Moin,

    es gibt auf dieser Seite eine ZUGFeRD SDK .

    SDK

    dim InputDOC as string =”c:\doc\invoice.docx”

    dim OutputPDFa as string =”c:\tmp\invoice.pdf”

    ‘please contact info@aloaha.com for your own evaluation key

    Dim License as string=”RYCLN4JTUF2CF3OVUJUKZTAFIE”

    If Aloaha_ZUGFeRD.PDF.DOC2PDFA(InputDOC, OutputPDFa, License) = True Then

    If System.IO.File.Exists(OutputPDFa) = True Then

    System.Diagnostics.Process.Start(OutputPDFa )

    End If

    End If

    Dafür muss diese Zugferd DLL auf dem System regristiert werden.

    Die Zugferd.dll ist erfolgreich regristiert, da ich schon mit der Erstellung von Zugferd Dokumenten arbeite.

    Leider bekomme ich eine Fehlermeldung!

    Spoiler anzeigen

    #include <MsgBoxConstants.au3>

    ;~ ; Declare COM Object error handler:

    Global $oComError = ObjEvent("AutoIt.Error", "_ComErrFunc")

    Local $InputDOC = "c:\doc\invoice.docx"

    Local $OutputPDFa = "c:\tmp\invoice.pdf"

    Const $License = "RYCLN4JTUF2CF3OVUJUKZTAFIE"

    Local $alo = ObjCreate("Aloaha_ZUGFeRD.XML"); Objekt von der Aloaha_ZUGFeRD.XML.dll erstellen! Sie muß vorher regristiert werden.

    If @error Then

    MsgBox(0 + 262144 + $MB_SETFOREGROUND + 16, "", "Aloaha_ZUGFeRD.XML nicht regristiert")

    EndIf

    If $alo.Aloaha_ZUGFeRD.PDF.DOC2PDFA($InputDOC, $OutputPDFa, $License) = True Then

    If $alo.IO.File.Exists($OutputPDFa) = True Then

    $alo.Diagnostics.Process.Start($OutputPDFa)

    EndIf

    EndIf

    ;~ ;--------------------------------------

    ;~ ; Function _ComErrFunc()

    ;~ ; Custom COM object error handler

    ;~ ;--------------------------------------

    Func _ComErrFunc()

    Local $HexNumber = Hex($oComError.number,8)

    MsgBox(16, "AutoIT COM Error", "AutoIT COM Error Occured!" & @CRLF & _

    @TAB & "Error Number: " & $HexNumber & @CRLF & _

    @TAB & "Line Number: " & $oComError.scriptline & @CRLF & _

    @TAB & "Description: " & $oComError.description & @CRLF & _

    @TAB & "WinDescription: " & $oComError.windescription)

    SetError(1) ; something to check for when this function returns

    EndFunc ;==>_ComErrFunc

    Könnt ihr mir helfen?

  • OutlookEX: Terminänderung erkennen

    water, hier nochmal ein Beispiel mit mehreren Kalendern. Die Kalendernamen werden z.B. von einer ini-Datei eingelesen. :)

    Spoiler anzeigen

    #include <OutlookEX.au3>

    #include <Array.au3>

    Global $aGFolder

    Global $oGItems

    Local $aCal = IniReadSection(@ScriptDir & "\ini\Kalender.ini", "Cal");Kalendernamen

    ;~ _ArrayDisplay($aCal)

    If @error Then

    MsgBox(0 + 262144 + 64, "", 'Fehler Kalender aus ini einlesen')

    Else

    Local $oOL = ObjCreate("Outlook.Application")

    For $i = 1 To UBound($aCal) - 1

    $aGFolder = _OL_FolderAccess($oOL, "Outlook-Datendatei\Kalender\" & $aCal[$i][1]);z.B. Alle Kalender im Outlook-Datendatei\Kalender

    If @error <> 0 Then

    MsgBox(0 + 262144 + 64, "Kalender", $aCal[$i][1] & " fehlt im Outlook-Kalender")

    Else

    $oGItems = $aGFolder[1].Items

    ObjEvent($oGItems, "oItems_")

    EndIf

    Next

    EndIf

    Func oItems_ItemChange($oOL_Item)

    ConsoleWrite($oOL_Item.Subject & @CRLF)

    ConsoleWrite($oOL_Item.Start & @CRLF)

    ConsoleWrite($oOL_Item.End & @CRLF)

    EndFunc ;==>oItems_ItemChange

  • OutlookEX: Terminänderung erkennen

    So funktioniert es! ;)

    Spoiler anzeigen

    #include <OutlookEX.au3>

    #include <Array.au3>

    Global $oOL = ObjCreate("Outlook.Application")

    Global $oItems = $oOL.GetNamespace("MAPI").GetDefaultFolder($olFolderCalendar).Items

    ObjEvent($oItems, "oItems_")

    While 1

    Sleep(100)

    WEnd

    Func oItems_ItemChange($oOL_Item)

    Consolewrite("Subject: " & $oOL_Item.Subject)

    EndFunc ;==>oItems_ItemAdd