Hast du dein Script mit UPX kompiliert, denn AVs meckern dann häufiger rum.
Nein habe ich nicht.
Außerdem solltest du deine AutoIt-Version updaten
Das wäre bei fast 20000 Zeilen mit viel Excel Funktionen für dieses Projekt aber sehr umfangreich.
Moin,
der Defender meldete mir heute einen Virus in einen mit Autoit 3.3.10.2, SciTE 24.02.2017 compilierten Datei.
Avira AntivirusPro auf meinem System zeigt keinen Fehler.
Hat ein anderer auch das problem?
Gruß
in einer
Habe leider noch ein Projekt mit der Autoit Version 3.3.10.2 erstellt.
Funktioniert damit nicht.
Gibt es eine Abhilfe?
So ist es!
Vielen Dank....
Com Error Encountered in
Daten_Y_Wert.au3
OutlookEX UDF version = 1.3.1
@AutoItVersion = 3.3.10.2
@AutoItX64 = 0
@Compliled = 0
@OSArch = X64
@OSVersion = WIN_81
Scriptline = 2273
NumberHex = 80020009
Number = -2147352567
WinDescription = Ausnahmefehler aufgetreten.
Description = Die Größe der Dateianlage überschreitet die
zulässige Maximalgröße des Servers. Versuchen Sie, die Datei
an einem freigegebenen Speicherort zu speichern und
senden Sie dann eien Link.
Source = Microsoft Outlook
HelpFile=
HelpContext = 0
LastDLLError = 0
_OL_ItemAttachmentAdd = @error 3
3 - Error adding attachment to the item list. @extended = number of the invalid attachment (zero based)
Wäre mir klar!
Es soll aber leider so funktionieren.
Moin,
water, ich habe ein Problem mit UDF "_OL_ItemAttachmentAdd".
Ich übergebe die Daten mit einem Array ($aAttachments). Das funktioniert auch alles sehr gut, zB. Word, PDF, Excel Dateien.
Hat aber ein File ein Appendix z.B. *.vnl wofür es kein Programm auf dem System gibt, wird dieses File nicht an Outlook übergeben.
Wenn es z.B. 3 Files sind und das File mit dem Appendix z.B. *.vnl befindet sich im Array in der Mitte, so wird nur das erste File (Word, PDF, Excel) an Outlook übergeben.
Gruß
So funktioniert es mit VBA und Autoit, z.B. für sieben Datenbanken....
Dim $oAccess
$oAccess = ObjCreate("Access.Application")
For $zP = 1 To 7 Step +1
$oAccess.CompactRepair(@ScriptDir & "\Daten" & $zP & ".mdb", @ScriptDir & "\Daten\CompactRepair\Daten" & $zP & ".mdb", False)
FileMove(@ScriptDir & "\Daten\CompactRepair\Daten" & $zP & ".mdb", @ScriptDir & "\Daten" & $zP & ".mdb", 1)
Next
Ja genau!
Ich habe eine Datenbank die ich mit einer GUI per UDF Access.au3 bediene.
Nach dem Löschen von Datensätzen, muss die Datenbank vor dem Hinzufügen neuer Datensätze aufgrund des Autowerts repariert werden.
Das möchte ich natürlich auch per Autoit erledigen. Z.b nach dem Öffnen der Datenbank.
Nur ich kann den VBA Code nicht umsetzen für Autoit.
Dafür sollte eure Hilfe dienen.
Gruß
Moin,
ich möchte eine Access Datenbank mit Autoit
nach der Application.CompactRepair-Methode (Access) komprimieren und reparieren.
Könnt ihr mir helfen?
Gruß
Das wäre natürlich perfekt 
Mit _OL_ItemSave kannst Du nicht nur die ganze Mail (inkl. Anhänge), sondern nur dei Anhänge sichern.
Mit Parameter $iFlags steuerst Du das.
water Vielen Dank!
Eine super UDF.
Genauso habe ich es schon gemacht und es funktioniert gut.
Leider wird mit dem Setzen des "Flags 2 + 8" bei den Anhängen kein "@error = 11" erzeugt, sondern nur bei "Flags 1 + 8".
Somit kann ich wenigstens beim Item sehen ob es schon als Datei gespeichert ist und dann entscheiden ob ich es ersetze oder hinzufüge.
Dafür ist die Funktion _OL_ItemSave da. Da kannst Du entscheiden, was wo gesichert werden soll.
Wenn ich eine neue Mail erstelle, verwende ich auch den Befehl zum Speichern in eine *.msg Datei.
Das klappt gut.
Aber woher bekomme ich das?
"$vItem = EntryID or object of the item to save"
water, ich wollte das ganze noch erweitern.
Die gesamte Mail mit Anhang kann ja jetzt per DragDrop als *.msg Datei gespeichert werden.
Nun wollte ich auf dem gleichen Weg aus einer Mail nur den Anhang per DragDrop speichern.
Das Subject kann ich ja wie oben im Script auslesen, aber das Auslesen des .Attachments bekomme ich nicht hin.
Mit $objItem.SaveAsFile ist es ja dann möglich das File zu speichern.
Kannst du mir helfen?
So funktioniert es, z.B. auf Laufwerk D:\ !
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include "DragDropEvent.au3"
#include <OutlookExConstants.au3>
#include <OutlookEX.au3>
#include <Array.au3>
Opt("MustDeclareVars", 1)
DragDropEvent_Startup()
Main()
Exit
Func Main()
Local $MainWin = GUICreate("DragDrop", 380, 130, -1, -1, -1, $WS_EX_TOPMOST)
GUISetFont(12, 900)
GUICtrlCreateLabel("(DragDrop)", 40, 40)
DragDropEvent_Register($MainWin)
GUIRegisterMsg($WM_DRAGENTER, "OnDragDrop")
GUIRegisterMsg($WM_DRAGOVER, "OnDragDrop")
GUIRegisterMsg($WM_DRAGLEAVE, "OnDragDrop")
GUIRegisterMsg($WM_DROP, "OnDragDrop")
GUISetState(@SW_SHOW)
While GUIGetMsg() <> $GUI_EVENT_CLOSE
WEnd
GUIDelete()
EndFunc ;==>Main
Func OnDragDrop($hWnd, $Msg, $wParam, $lParam)
Static $DropAccept
Switch $Msg
Case $WM_DRAGENTER, $WM_DROP
ToolTip("")
Select
Case DragDropEvent_IsFile($wParam)
If $Msg = $WM_DROP Then
Local $FileList = DragDropEvent_GetFile($wParam)
MsgBox(262144, "DragDropEvent", StringReplace($FileList, "|", @LF))
EndIf
$DropAccept = $DROPEFFECT_COPY
Case DragDropEvent_IsText($wParam)
If $Msg = $WM_DROP Then
Global $oOutlook = _OL_Open()
$oOutlook = ObjCreate("Outlook.Application")
For $objItem In $oOutlook.ActiveExplorer.Selection
LOcal $sSubject = $objItem.Subject
;~ MsgBox(1, "", $sSubject)
$objItem.SaveAs("D:\" & "\" & StringRegExpReplace($sSubject, '[\/:*?"<>|]', '_') & ".msg", $olMSG)
Next
EndIf
$DropAccept = $DROPEFFECT_COPY
Case Else
$DropAccept = $DROPEFFECT_NONE
EndSelect
Return $DropAccept
Case $WM_DRAGOVER
Local $X = DragDropEvent_GetX($wParam)
Local $Y = DragDropEvent_GetY($wParam)
ToolTip("(" & $X & "," & $Y & ")")
Return $DropAccept
Case $WM_DRAGLEAVE
ToolTip("")
EndSwitch
EndFunc ;==>OnDragDrop
Verarbeitest Du die MSG weiter? Was "treibst" Du damit?
Ich möchte sie auf der Festplatte als *.msg speichern. Alles andere ist sekundär.
Für andere Dateien ist es ja kein Problem.
Ich denke, water könnte was dazu sagen. Er hat die UDF dafür geschrieben, die ich sonst hervorragend nutze.
Wenn Du ein Outloock Mail auf dem Desktop ablegst wandelt sich das nicht von selbst in ein msg
Das ist mir klar!
Ich habe eine AutoitGui und möchte es gern für diese GUI verwenden.
Moin,
ich versuche eine Outlooknachricht per Drag & Drop in einem Ordner als *.msg Datei mit @water's UDF zu speichern.
Anbei der Code. Es funktioniert leider nicht.
könnt ihr mir helfen?
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include "DragDropEvent.au3"
#include <OutlookExConstants.au3>
#include <OutlookEX.au3>
#include <Array.au3>
Opt("MustDeclareVars", 1)
DragDropEvent_Startup()
Main()
Exit
Func Main()
Local $MainWin = GUICreate("DragDrop", 380, 130, -1, -1, -1, $WS_EX_TOPMOST)
GUISetFont(12, 900)
GUICtrlCreateLabel("(DragDrop)", 40, 40)
DragDropEvent_Register($MainWin)
GUIRegisterMsg($WM_DRAGENTER, "OnDragDrop")
GUIRegisterMsg($WM_DRAGOVER, "OnDragDrop")
GUIRegisterMsg($WM_DRAGLEAVE, "OnDragDrop")
GUIRegisterMsg($WM_DROP, "OnDragDrop")
GUISetState(@SW_SHOW)
While GUIGetMsg() <> $GUI_EVENT_CLOSE
WEnd
GUIDelete()
EndFunc ;==>Main
Func OnDragDrop($hWnd, $Msg, $wParam, $lParam)
Static $DropAccept
Switch $Msg
Case $WM_DRAGENTER, $WM_DROP
ToolTip("")
Select
Case DragDropEvent_IsFile($wParam)
If $Msg = $WM_DROP Then
Local $FileList = DragDropEvent_GetFile($wParam)
MsgBox(262144, "DragDropEvent", StringReplace($FileList, "|", @LF))
EndIf
$DropAccept = $DROPEFFECT_COPY
Case DragDropEvent_IsText($wParam)
If $Msg = $WM_DROP Then
Global $oOApp = ObjCreate("Outlook.Application")
Global $oItems = $oOApp.GetDefaultFolder($olFolderInbox).Items
ObjEvent($oItems, "oItems_")
Global $oItem = DragDropEvent_GetText($wParam)
Msgbox(1,"",$oItem)
Global $oOutlook = _OL_Open()
Global $SendMailFile = "D:\Hallo.msg"
_OL_ItemSave($oOutlook, $oItem, Default, $SendMailFile, $olMSGUnicode)
$oItem.Display
EndIf
$DropAccept = $DROPEFFECT_COPY
Case Else
$DropAccept = $DROPEFFECT_NONE
EndSelect
Return $DropAccept
Case $WM_DRAGOVER
Local $X = DragDropEvent_GetX($wParam)
Local $Y = DragDropEvent_GetY($wParam)
ToolTip("(" & $X & "," & $Y & ")")
Return $DropAccept
Case $WM_DRAGLEAVE
ToolTip("")
EndSwitch
EndFunc ;==>OnDragDrop
Func oItems_ItemAdd($oOL_Item)
MsgBox(64, "OutlookEX UDF Example Script", "Mail has been sent!" & @CRLF & @CRLF & _
"Subject: " & $oOL_Item.Subject)
_OL_ItemSave($oOutlook, $oOL_Item, Default, $SendMailFile, $olMSGUnicode)
EndFunc ;==>oOFolder_ItemAdd
