water, vielen Dank. Das war es!

Moin,

water, ich möchte die Einträge im Kalender ändern.

Mit der Version wie im "Spoiler", wird alles super geändert, nur nicht der Beginnt - und Endet Termin.

$Date & $TimeAn = "20200708200000" oder "20200708T200000Z"

$Date & $TimeEn = "20200708220000" oder "20200708T220000Z"

Wie muss die Zeit aussehen, oder was ist falsch?

Kannst Du mir nochmals helfen?

Gruß

water, danke!

Steht im Spoiler.

Moin,

water, ich möchte alle Einträge im Kalender, Unterkalender (Jahr) mit dem Betreff: Jahr-2020 finden.

Kannst Du mir helfen?

Gruß

BugFix, ich habe leider nur ein schwarzes Bild.

Getestet mit meinem Notebook. Eingebaute Kamera (BisonCam, NB Pro).

Hast Du eine Idee?

Bitnugger

Ich möchte im Anschluss die Exceldatei mit "ShellExecuteWait" öffnen.

Nur funktioniert im Anschluß "ShellExecuteWait" nicht mehr.

Sorry, klappt jetzt!

Bitnugger, vielen Dank für Deine umfassende Mühe.

Klappt hervorragend!

Bitnugger, danke!

Wichtig ist......

DrawingObjects:=False ,also Haken bei "Objekte bearbeiten" gesetzt!

Es soll anschließend bei gesperrtem Arbeitsblatt möglich sein, mit einem Touchdisplay zu zeichnen.

$oExcelAT.Activesheet.Protect($sWritePassword_Ab)

Müsste mit "UserInterfaceOnly:=True, Contents:=True, DrawingObjects:=False" irgendwie erweitert werden.

So wie oben im VBA-Macro.

Moin,

Ich möchte diese Makro von Autoit aus ausführen.

Sub BlattSchuetzenEin()
 Dim I
 For I = Worksheets(1).Index To Worksheets.Count
    With Worksheets(I)
    .Protect UserInterfaceOnly:=True, Contents:=True, DrawingObjects:=False, _
          Password:="Passwort"
    .EnableOutlining = True
    End With
  Next
End Sub

Bis hier ist alles klar. Das Excelblatt wird geöffnet und kann bearbeitet werden. danach soll das obige Makro gestartet werden.

    Local $bVisible = True
    Local $bReadOnly = False
    Local $sWritePassword_Ab = "passwort"
    Local $oExcelAT = _Excel_Open(False)
    Local $BoExcelAT = _Excel_BookOpen($oExcelAT, $TV_Speichern_Path_, $bReadOnly, $bVisible)
    If @error > 0 Then
        MsgBox(0 + 262144 + $MB_SETFOREGROUND + 64, "", "Konnte nicht geöffnet werden")
        Return
    EndIf

$oExcelAT.Activesheet.Unprotect($sWritePassword_Ab)

Habe es so versucht, klappt aber leider nicht.

With $BoExcelAT.ActiveSheet
 .DrawingObjects = False
 .Contents = True
 .Scenarios = True
 .UnProtect("Passwort")
EndWith

Könnt ihr mir helfen?

Gruß

Danke!

winmail.dat

Durch einen Eintrag für z.B. Office 2013 in der Regristry, ist das Problem behoben.

RegWrite("HKEY_CURRENT_USER64\Software\Microsoft\Office\15.0\Outlook\Preferences", "DisableTNEF", "REG_DWORD", 1)

Moin,

water, ich erzeuge mit Deiner UDF eine Mail mit , Adresse, Anhang (PDF), Text in HTML und Signatur, was auch gut klappt.

Leider wird der Anhang (PDF) dann in einigen Mailprogrammen als "winmail.dat" ohne PDF gesendet.

Wenn ich lokal die Mail erzeuge und versende, wird der Anhang richtig dargestellt.

Kannst Du mir helfen?

Gruß

Habe es selbst gefunden, danke!

Musashi

Kannst Du mir nochmal helfen, $In1 und $IN2 auch als Variable?

Gruß

$sCommand = 'C:\Program Files (x86)\PDFtk Server\bin\pdftk.exe D:\Test1.pdf D:\Test2.pdf cat output ' & $sOut

ConsoleWrite('+ @@ Debug : $sCommand = ' & $sCommand & @CRLF)

$In1 = D:\Test1.pdf
$In2 = D:\Test2.pdf

$sCommand = 'C:\Program Files (x86)\PDFtk Server\bin\pdftk.exe D:\Test1.pdf D:\Test2.pdf cat output ' & $sOut

ConsoleWrite('+ @@ Debug : $sCommand = ' & $sCommand & @CRLF)

Musashi

Vielen Dank, funktioniert!

Moin,

es sollen PDF's zu einer Datei gemerge werden mit PDFtk Server.

Das funktioniert ohne Variablen gut.

Ich möchte aber die die Out-Datei als Variable angeben.

So funktioniert es leider nicht.

Könnt ihr mir mit der Einbindung "Variable" helfen?

Gruß

water, super. Danke!

Klappt perfekt.

Moin,

water, ist es möglich mit der ExportAsFixedFormat-Methode wie von Word "_Word_DocExport", mit "_Excel_Export" eine PDF /A1 Datei zu erzeugen?

Oder gibt es einen anderen Weg?

Gruß

Wuff

Oder so!

Baut auf Musashi Code auf.

Musashi, klappt super!

Vielen Dank nochmals!