Beiträge von x0r

Hi water,

ich meine "Entwürfe".

So dachte ich mir das: Ich habe ca 5000 Listen, die zum Teil bestimmten Personen gehören (eine hat 100, die andere 50, usw), jetz muss ich jeder Person eine Email aufsetzen, mit Betreff, Text und zugehörigen 2 Listen.
Die erstellten Mails möchte ich dann in Ordner packen und den einzelnen Personen zukommen lassen (damit die die dann weiter verarbeiten können und an Kunden verschicken).

Bin aber schon so gut wie fertig mit dem Test:

[autoit]

#include <OutlookEX.au3>
#include <file.au3>
Global $isr = "ich"
Global $sAdresse = ""
Global $sBetreff = FileRead(@ScriptDir & "\Betreff.txt")
Global $sNachrText = FileRead(@ScriptDir & "\Text.txt")
Global $sAnhang
Global $oItem
Global $ary
_FileReadToArray(@ScriptDir & "\" & $isr & "\nummern.txt", $ary)
for $i = 1 to $ary[0]
Global $oOutlook = _OL_Open()
$oItem = _OL_ItemCreate($oOutlook, $olMailItem, "", "", "Subject=" & $sBetreff & " AP - " & $ary[$i], "BodyFormat=" & $olFormatHTML)
if FileExists(@ScriptDir & "\" & $isr & "\Client_AP - " & $ary[$i] & ".xls") Then _
$oItem = _OL_ItemAttachmentAdd($oOutlook, $oItem, Default, @ScriptDir & "\" & $isr & "\Client_AP - " & $ary[$i] & ".xls")
if FileExists(@ScriptDir & "\" & $isr & "\Enterprise_AP - " & $ary[$i] & ".xls") Then _
$oItem = _OL_ItemAttachmentAdd($oOutlook, $oItem, Default, @ScriptDir & "\" & $isr & "\Enterprise_AP - " & $ary[$i] & ".xls")
$oItem = _OL_ItemModify($oOutlook, $oItem, Default, "", "Body=" & $sNachrText)
Next

[/autoit]

Funktioniert wunderbar!

€dit: irgendwie macht der Mist beim Syntax-Highlighting :o

...und mal wieder bin ich einfach nur zu blöd

Hab die ganzen Dateien in einen separaten Ordner gepackt, weil ich dachte, die gehören zur UDF selbst - also es wären keine Beispiele.

Verdammt!

Danke dir, für den Tipp

Hi,

ich möchte mit Hilfe der OutlookEX UDF ein paar (ca 5000) Vorlagen erstellen und in Outlook zu speichern, um sie später bei Bedarf zu exportieren.

Eine leere Vorlage bekomme ich hin mit:

[autoit]

#include <outlook\OutlookEx.au3>
$oOL = _OL_Open()
_OL_ItemCreate($oOL, $olMailItem)

[/autoit]

Allerdings sollen alle einen anderen Betreff und auch verschiedene Anhänge bekommen.

Gibts da eine Möglichkeit?

Gruß,
x0r

Hi,

die Forensoftware wurde updated bzw auf einen anderen Server umgezogen, daher gibts (noch) nicht alle Downloads/Files wieder.

Gruß,
X0r

öffne doch das bild einfach mit mspaint und speichere es als *.bmp?

Aalso ich seh da jetz nicht wirklich einen Unterschied zu dem, was ich dir gepostet hab..

Aber ok, nächstes mal bin ich schlauer und äußere mich nicht

ja, schon klar.. trotzdem funktioniert meine funktion bestens, auch wenn sie ihm nicht weiter hilft - was im übrigen eine sehr nette antwort auf "support" ist

gott is das umständlich/unübersichtlich...

bin mir nicht mal sicher, ob er wirklich "AutoIt" meint, mit dem was er da programmiert:

[autoit]

$add($read_1 & "|" & $read_2 & "|" & $read_3, $List)

[/autoit]

Was isn "$add" für ne Funktion?

Einmal gebaut, sehr oft genutzt

Liest User aus einer ini aus und sortiert diese vorm Einfügen.

[ini]
user=userid

[autoit]

Func filllist()
Local $err = IniReadSection($ini, "users")
Local $users[$err[0][0] + 1]

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

$users[0] = $err[0][0]

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

For $i = 1 To $err[0][0]
$users[$i] = $err[$i][0] & " / " & $err[$i][1]
Next

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

_ArraySort($users)

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

For $i = 1 To $users[0]
GUICtrlSetData($adminlist, $users[$i], "---")
Next
EndFunc ;==>filllist

[/autoit]

Da gabs glaube ich mal ne spezielle UDF, hatte mal was gebaut damit, ist allerdings schon über 2 Jahre her

Kleiner Auszug:

[autoit]

_MySQL_InitLibrary()
If @error Then Exit MsgBox(0, '', "")
$MysqlConn = _MySQL_Init()
$connected = _MySQL_Real_Connect($MysqlConn, $sqlserv, $sqluser, $sqlpass, $sqldb)
If $connected = 0 Then Exit MsgBox(16, 'Connection Error', _MySQL_Error($MysqlConn))
$query = "SELECT * FROM stunden where id = " & $userid
_MySQL_Real_Query($MysqlConn, $query)
$res = _MySQL_Store_Result($MysqlConn)
$fields = _MySQL_Num_Fields($res)
$rows = _MySQL_Num_Rows($res)
_MySQL_Data_Seek($res, 0)
Do
$row1 = _MySQL_Fetch_Row_StringArray($res)
If @error Then ExitLoop
GUICtrlSetData($stunden, $row1[1])
Until @error
_MySQL_Free_Result($res)
_MySQL_Close($MysqlConn)
_MySQL_EndLibrary()

[/autoit]

Ob du jetzt damit was anfangen kannst oder damit was bestimmtest "findest", ist dir überlassen

€dit:
Achja, hier: http://www.autoitscript.com/forum/topic/85…ut-odbc/?page=1

was heisst zerhauen?

dir is schon klar, dass wenn die zeile zu lang ist, der editor die einfach in die nächste schreibt?

€dit:
wenn du die originale in *.html umbenennst und mit nem browser öffnest, is die auch völlig verhundst. es besteht aber kaum unterschied, ausser zur geänderten schriftart der überschrift.

kurz: deine originale datei is schon völlig verhauen.

was genau willst du eigentlich erreichen?

naja, per hand isses auch kein unding.. strg+H -> "Suchen nach: <h1>" -> "Ersetzen durch: blablabla" -> Alle ersetzen -> speichern.

mit AutoIt geht das eigentlich wunderbar, kein plan was ihr habt

gucksu hier

ich glaube du suchst nach "StringReplace()"?

Achja, in der UDF war nochwas:

[autoit]

;~ Local $sFFExe = RegRead($sHKLM & "" & RegRead($sHKLM, "CurrentVersion") & "\Main", "PathToExe")
Local $sFFExe = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"

[/autoit]

Der Registry-Pfad hat nicht gepasst, mit dem direkten Pfad zu FF gehts.

€dit:
Hab grad gesehen, dass ich den ganzen Block auskommentiert hatte:

[autoit]

;~ Local $sHKLM = 'HKEY_LOCAL_MACHINE\SOFTWARE\'
;~ If @OSArch <> 'X86' Then $sHKLM &= 'Wow6432Node\'
;~ $sHKLM &= 'Mozilla\Mozilla Firefox'
;~ Local $sFFExe = RegRead($sHKLM & "" & RegRead($sHKLM, "CurrentVersion") & "\Main", "PathToExe")
Local $sFFExe = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
;~ If @error Then
;~ SetError(__FFError($sFuncName, $_FF_ERROR_GeneralError, "Error reading registry entry for FireFox." & @CRLF & _
;~ $sHKLM&"\"&$FF_Version&"\Main\PathToExe" & @CRLF & _
;~ "Error from RegRead: " & @error))
;~ Return 0
;~ EndIf

[/autoit]

Ab Zeile 4333 (alte UDF!)

Hi,

mal mit

[autoit]

_FFStart($url)

[/autoit]

probiert?

Gruß,
x0r

Deutsche Hilfe:
http://translation.autoit.de/autoitinfo/hil…nd-28_12_12.zip

Hi,

du willst ein neues Excel im Hintergrund öffnen, richtig?
(habs erst jetz gesehen :D)

dann brauchst du vermutlich nur:

[autoit]

_Excel_Open(0)

[/autoit]

Gruß,
x0r

Hoi,

IRC ist in meiner Firma auch gesperrt, allerdings funktioniert das hier:

IRC UDF

=> Komm her und machs doch einfach besser