Hallo Schnitzel,
zu 2: funktioniert. Jetzt fehlt nur noch die 1. 
VG,
Dino
Beiträge von Dino
-
-
Hallo zusammen,
bei mir läuft es noch nicht ganz
1. Wenn in der Signatur das Zeichen & drin ist, dann wird die Signatur nur bis dahin eingefügt / dargestellt.
Da gibt es sicherlich ein Trick dies noch zu lösen.2. Kann man die Signatur (unten rechts) automatisch auf erste Signatur mit Name einstellen. Beim Starten der Script ist die Signatur auf keine (leer) eingestellt.
[Blockierte Grafik: http://imgbox.de/users/public/images/a39898x114.jpg]3. Könntest du mir bitte noch die Koda-Datei hochladen.
Danke!!!!
Viele Grüße,
Dino -
Hallo Alina,
es funktioniert prima. Hast du noch die Lösung auf meine erste Frage:
1. Lässt sich die eingestellte Outlook-Signatur automatisch am Ende der Nachricht einfügen?Wenn ich in Outlook neue Nachricht schreibe, wird die Signatur automatisch eingefügt. Das wäre auch gut, wenn dies auch mit diese Script funktionieren würde.
Viele Grüße,
Dino -
Hallo Schnitzel,
funktioniert wie gewollt
zwei Fragen noch:
1. Lässt sich die eingestellte Outlook-Signatur automatisch am Ende der Nachricht einfügen?
2. Zur Zeit muss ich Outlook auf "Senden" klicken, damit die e-Mail verschickt wird. Gibt es die Möglichkeit dies direkt zu verschicken?Vielen Dank
Beste Grüße,
Dino -
Ich komme nicht weiter.... Die e-Mail möchte ich über Outlook verschicken, alle andere Möglichkeiten werden in der Firma durch Virenprogramm abgeblockt.
-
ich bekomme folgende Fehlermeldung:
"G:\mail.au3(47,253) : ERROR: _INetSmtpMailCom() called by a previous line with 0 arg(s). Min = 5. First previous line calling this Func is 42.
Func _INetSmtpMailCom($s_FromAddress, $s_ToAddress, $s_SmtpServer, $s_Subject, $as_Body, $s_FromName = "", $s_Username = "", $s_Password = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance = "Normal", $IPPort = 25, $ssl = 0)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
G:\mail.au3(104,26) : WARNING: $oMyRet: possibly used before declaration.
Return $oMyRet[1]
~~~~~~~~~~~~~~~~~~~~~~~~~^
G:\mail.au3(104,26) : ERROR: $oMyRet: undeclared global variable.
Return $oMyRet[1]
~~~~~~~~~~~~~~~~~~~~~~~~~^
G:\mail.au3 - 2 error(s), 1 warning(s)"Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
Global $section
$section = IniReadSection("Email.ini", "Emails")
Dim $Checkbox[$Section[0][0]+1]$Form1 = GUICreate("Email Prog", 400, Round($section[0][0]/2)*30+290)
[/autoit] [autoit][/autoit] [autoit]
For $i = 1 To $Section[0][0]
$Checkbox[$i] = GUICtrlCreateCheckbox($Section[$i][0], 205 - Mod($i, 2)*200, 5 + (Round($i/2) - 1)*30, 190, 25)
Next
$label1 = GUICtrlCreateLabel("_________________________________________________________________", 5, (Mod($section[0][0], 2) +Round($i/2) - 1)*30 - 5, 390, 25)
$label2 = GUICtrlCreateLabel("Betreff:", 5, 13 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
$Input1 = GUICtrlCreateInput(IniRead("Email.ini", "Standards", "Betreff", ""), 5, 35 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
$label2 = GUICtrlCreateLabel("Nachrichttext:", 5, 73 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
$Edit1 = GUICtrlCreateEdit(StringReplace(IniRead("Email.ini", "Standards", "Nachricht", ""), " |@CRLF| ", @CRLF) , 5, 95 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 100)
$label3 = GUICtrlCreateLabel("Empfänger:", 5, 208 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
$Input2 = GUICtrlCreateInput("", 5, 230 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 390, 25)
$Button1 = GUICtrlCreateButton("Standards speichern", 30, 260 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 120, 25)
$Button2 = GUICtrlCreateButton("Email senden", 230, 260 + (Mod($section[0][0], 2) +Round($i/2) - 1)*30, 120, 25)
GUISetState(@SW_SHOW)While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox[1] To $Checkbox[$Section[0][0]]
$emails = ""
For $i = 1 To $Section[0][0]
If BitAnd(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then
$emails &= $Section[$i][1] & "; "
EndIf
Next
Guictrlsetdata($Input2, $emails)
Case $Button1
IniWrite("Email.ini", "Standards", "Betreff", GUICtrlRead($Input1))
IniWrite("Email.ini", "Standards", "Nachricht", StringReplace(GUICtrlRead($Edit1), @CRLF, " |@CRLF| "))
Case $Button2
;MsgBox(0,"", "Fehlt nur noch die Funktion zum versenden!")
_INetSmtpMailCom()
EndSwitch
WEndFunc _INetSmtpMailCom($s_FromAddress, $s_ToAddress, $s_SmtpServer, $s_Subject, $as_Body, $s_FromName = "", $s_Username = "", $s_Password = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance = "Normal", $IPPort = 25, $ssl = 0)
[/autoit]
Local $objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringLeft($as_Body,6) = "<html>" And StringRight($as_Body,7) = "</html>" Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = StringReplace($S_Files2Attach[$x],'"','')
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment ($S_Files2Attach[$x])
If @error = 0 Then ConsoleWrite("Datei erfolgreich angehaengt: "&$S_Files2Attach[$x] & @CRLF)
Else
ConsoleWrite('!> Dateianhang wurde nicht gefunden: ' & $S_Files2Attach[$x] & @LF)
SetError(1)
Return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
If Number($IPPort) = 0 then $IPPort = 25
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $ssl Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Set Email Importance
Switch $s_Importance
Case "Hoch", "hoch"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
Case "Normal", "normal"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
Case "Niedrig", "niedrig"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
EndSwitch
$objEmail.Fields.Update
; Sent the Message
$objEmail.Send
If @error Then
SetError(2)
Return $oMyRet[1]
EndIf
$objEmail=""
EndFunc ;==>_INetSmtpMailCom -
Hallo Alina,
wo muss ich genau die Funktion einbauen?
hier?
[autoit]Case $Button2
[/autoit]
;MsgBox(0,"", "Fehlt nur noch die Funktion zum versenden!")
_INetSmtpMailCom()Viele Grüße,
Dino -
Hallo Schnitzel,
die ini-Datei wird genau wie gewollt ausgelesen.
Hast du noch die Funktion um e-Mail zu verschicken?Besten Dank!
Viele Grüße,
Dino -
-
ok... und die Schaltfläche "SENDEN" kommt auch in E-Mail GUI ?
-
es funktioniert
Bitte mein vorheriges Post beantworten
Habe aus versehen auf Editieren und nicht Antworten geklickt...VG,
Dino -
Danke Schnitzel !!!
Kann ich in INI-Datei den Betreff und Nachrichtentext auch schreiben?
VG,
Dino -
Hallo Leute,
in einer ini-Datei in Section [Empfaenger] habe ich ca. 30 e-Mail Adressen stehen.
Gibt es die Möglichkeit ein Auswahl der dadrin eingetragenen Empfänger zu bekommen und mit Hilfe der Checkbox's zu entscheiden, wer die e-Mail bekommt.
Der Betreff und der Nachrichtentext sind immer gleich.Besten Dank im Voraus!
Viele Grüße,
Dino -
Vielen Dank Schnitzel !
VG, Dino
-
Hi Schnitzel,
danke, jetzt geht es mit /c
wenn ich dies benutze:
[autoit]Func _RunDOS($sCommand)
[/autoit]
Local $nResult = RunWait(@ComSpec & " /C " & $sCommand, "", @SW_HIDE)
Return SetError(@error, @extended, $nResult)
EndFunc ;==>_RunDOSWo trage ich die Ordner ein, für die es gemacht werden soll?
VG,
Dino -
Hallo Leute,
wenn ich die Rechte auf unten aufgeführte Ordner vergebe, habe ich in Task-Manager 10 Prozesse von cmd.exe, die wie au3-Datei nicht beendet werden.
[autoit]
Ist dies richtig so, oder kann man es anders lösen?Run(@ComSpec & ' /k cacls C:\Programme\Sikla /T /E /G "jeder:f" ', '', @SW_HIDE)
[/autoit][autoit][/autoit][autoit]
Run(@ComSpec & ' /k cacls C:\Programme\CadStation /T /E /G "jeder:f" ', '', @SW_HIDE)
Run(@ComSpec & ' /k cacls C:\Programme\PlotFlow /T /E /G "jeder:f" ', '', @SW_HIDE)
Run(@ComSpec & ' /k cacls C:\Programme\RxView /T /E /G "jeder:f" ', '', @SW_HIDE)
Run(@ComSpec & ' /k cacls C:\Programme\TGA /T /E /G "jeder:f" ', '', @SW_HIDE)Run(@ComSpec & ' /k cacls C:\Programme\Sikla /T /E /G "Hauptbenutzer:f" ', '', @SW_HIDE)
[/autoit]
Run(@ComSpec & ' /k cacls C:\Programme\CadStation /T /E /G "Hauptbenutzer:f" ', '', @SW_HIDE)
Run(@ComSpec & ' /k cacls C:\Programme\PlotFlow /T /E /G "Hauptbenutzer:f" ', '', @SW_HIDE)
Run(@ComSpec & ' /k cacls C:\Programme\RxView /T /E /G "Hauptbenutzer:f" ', '', @SW_HIDE)
Run(@ComSpec & ' /k cacls C:\Programme\TGA /T /E /G "Hauptbenutzer:f" ', '', @SW_HIDE)Besten Dank im Voraus !
Viele Grüße,
Dino -
Danke Schnitzel !
VG,
Dino -
Hallo Leute,
was habe ich hier falsch gemacht? Ich bekomme die Meldung C:\Dino\CAD-Installation.au3(5,1) : ERROR: syntax error
[autoit];~ Schritt 1: Prüfen, ob der angemeldete User die Admin auf dem Rechner ist. Wenn ja, dann Sprung zum Schritt 2.
[/autoit][autoit][/autoit][autoit]
;~ Wenn nicht die MsgBox ausgeben: Sie müssen Administrator sein um dieses Programm fortzusetzen!. Dann der Abbruch der Installation.
If Not IsAdmin() Then Exit MsgBox(64, "Kein Recht!", "Sie müssen Administrator sein um dieses Programm fortzusetzen!")
;~ Schritt 2: Wenn der User die Admin-Rechte hat, dann mit Installation anfangen
Else;Sperren Tastatur und Maus
[/autoit][autoit][/autoit][autoit]
Blockinput(1);~ Angang der Installation
[/autoit][autoit][/autoit][autoit]
MsgBox(0, "CAD-Installation", "Installation PlotFlow", 3)
ShellExecuteWait("C:\install\PlotFlow.exe")
MsgBox(0, "CAD-Installation", "Installation Sikla", 3)
ShellExecuteWait("C:\install\Sikla.exe")
;~ Ende der Installation;~ CAD-Updater Verknüpfung im Autostart von All_Users eintragen
[/autoit][autoit][/autoit][autoit]
FileCreateShortcut ("T:\CAD\CAD-Updater.exe", @StartupCommonDir & "\CAD-Updater.lnk" , "T:\CAD\CAD\" , "" , "CAD-Updater");~ Waren bis CAD-Updater Fenster geschlossen ist
[/autoit][autoit][/autoit][autoit]
While Not WinExists("CAD-Updater")
Sleep(10)
WEnd;Entsperren Tastatur und Maus
[/autoit][autoit][/autoit][autoit]
Blockinput(0)MsgBox(0,"Status der CAD-Installation","Folgende Programme wurden erfolgreich installiert:"&@CRLF&"-------------------------------------------------------------"&@CRLF&"PlotFlow"&@CRLF&"Sikla")
[/autoit]
EndIfBesten Dank!
Viele Grüße,
Dino -
Hi Arkaneus,
jetzt mit beiden Variablen kommt der MsgBox und die Warnungen sind weg.
Besten Dank!
VG,
Dino -
Hi Greek,
durch Testen, habe ich diesen Abschnitt ohne Absicht auskommentiert.
[autoit]
MsgBox(0, "CAD-Installation", "Installation PlotFlow", 3)
[/autoit]
ShellExecuteWait("C:\install\PlotFlow.exe")
MsgBox(0, "CAD-Installation", "Installation Sikla", 3)
ShellExecuteWait("C:\install\Sikla.exe")Das ist die aktuelle Version:
Spoiler anzeigen
_MiniGUI("Hinweis", "Bitte warten Sie bis die Programme installiert sind. Die Tastatur und Maus sind solange gesperrt!", 1000, 0x006000, 0xFFFFFF)
Blockinput(1);Sperren Tastatur und Maus
;~ Angang der Installation
MsgBox(0, "CAD-Installation", "Installation PlotFlow", 3)
ShellExecuteWait("C:\install\PlotFlow.exe")
MsgBox(0, "CAD-Installation", "Installation Sikla", 3)
ShellExecuteWait("C:\install\Sikla.exe")
;~ Ende der InstallationSleep ( 3000 )
Blockinput(0);Entsperren Tastatur und Maus
Do
WinSetTrans("MINI_GUI", "", $MINI_GUI_Transwert)
Sleep(10)
$MINI_GUI_Transwert = $MINI_GUI_Transwert - 1
Until $MINI_GUI_Transwert = 0
GUIDelete($MINI_GUI)MsgBox(0,"Status der CAD-Installation","Folgende Programme wurden erfolgreich installiert:"&@CRLF&"-------------------------------------------------------------"&@CRLF&"PlotFlow"&@CRLF&"Sikla")
Func _MiniGUI($Titel, $Text, $Wait, $Color1, $Color2)
Global $MINI_GUI_Transwert = 255
$MINI_GUI_dif = 0;~ $MINI_GUI = GUICreate("MINI_GUI", 250, 200, @DesktopWidth - 270, @DesktopHeight, 0x80000000, 0x00000080)
$MINI_GUI = GUICreate("MINI_GUI", 250, 200, @DesktopWidth/2 - 0, @DesktopHeight/2, 0x80000000, 0x00000080); Hier anpassenGUISetState(@SW_SHOW, $MINI_GUI)
GUISetBkColor($Color1, $MINI_GUI)$MINI_GUI_Titel = GUICtrlCreateLabel($Titel, 50, 20, 150)
GUICtrlSetFont($MINI_GUI_Titel, 16)
GUICtrlSetColor($MINI_GUI_Titel, $Color2)$MINI_GUI_Text = GUICtrlCreateLabel($Text, 50, 65)
GUICtrlSetColor($MINI_GUI_Text, $Color2)$MINI_GUI_Line1 = GUICtrlCreateLabel ("", 0, 0, 250, 1)
GUICtrlSetColor($MINI_GUI_Line1, $Color2)
GUICtrlSetBkColor($MINI_GUI_Line1, $Color2)$MINI_GUI_Line2 = GUICtrlCreateLabel ("", 0, 0, 1, 200)
GUICtrlSetColor($MINI_GUI_Line2, $Color2)
GUICtrlSetBkColor($MINI_GUI_Line2, $Color2)$MINI_GUI_Line3 = GUICtrlCreateLabel ("", 249, 0, 1, 200)
GUICtrlSetColor($MINI_GUI_Line3, $Color2)
GUICtrlSetBkColor($MINI_GUI_Line3, $Color2)$MINI_GUI_LineMiddle = GUICtrlCreateLabel ("", 25, 50, 200, 3)
GUICtrlSetColor($MINI_GUI_LineMiddle, $Color2)
GUICtrlSetBkColor($MINI_GUI_LineMiddle, $Color2);~ WinMove ( "MINI_GUI", "", @DesktopWidth - 270, @DesktopHeight - 200, 250, 200, 5)
WinMove ( "MINI_GUI", "", @DesktopWidth/2 - 0, @DesktopHeight/2 - 200, 250, 200, 5) ; Hier anpassen, (nochmal das selbe rein)$MINI_GUI_begin = TimerInit()
Do
$MINI_GUI_dif = TimerDiff($MINI_GUI_begin)
$aMousePos1 = MouseGetPos()
$aWinPos1 = WinGetPos(WinGetTitle($MINI_GUI))
If $MINI_GUI_dif > $Wait/5 And $MINI_GUI_dif < $Wait/4 Then
Do
WinSetTrans("MINI_GUI", "", $MINI_GUI_Transwert)
Sleep(10)
$MINI_GUI_Transwert = $MINI_GUI_Transwert - 1
Until $MINI_GUI_Transwert = 200
EndIf
If $aMousePos1[0] > $aWinPos1[0] AND $aMousePos1[0] < $aWinPos1[0] + 250 AND $aMousePos1[1] > $aWinPos1[1] AND $aMousePos1[1] < $aWinPos1[1] + 200 Then
$MINI_GUI_begin = TimerInit()
If $MINI_GUI_Transwert < 255 Then
Do
WinSetTrans("MINI_GUI", "", $MINI_GUI_Transwert)
Sleep(10)
$MINI_GUI_Transwert = $MINI_GUI_Transwert + 1
Until $MINI_GUI_Transwert = 255
EndIf
EndIf
Until $MINI_GUI_dif > $WaitEndFunc
Dies wird nicht angezeigt:
[autoit]MsgBox(0,"Status der CAD-Installation","Folgende Programme wurden erfolgreich installiert:"&@CRLF&"-------------------------------------------------------------"&@CRLF&"PlotFlow"&@CRLF&"Sikla")
[/autoit]Das hier steht unten im Fenster:
ZitatAlles anzeigen>"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\dino8.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams
+>20:22:18 Starting AutoIt3Wrapper v.2.0.0.1 Environment(Language:0407 Keyboard:00000407 OS:WIN_XP/Service Pack 3 CPU:X64 OS:X86)
>Running AU3Check (1.54.14.0) from:C:\Programme\AutoIt3
C:\dino8.au3(16,56) : WARNING: $MINI_GUI_Transwert: possibly used before declaration.
WinSetTrans("MINI_GUI", "", $MINI_GUI_Transwert)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\dino8.au3(20,24) : WARNING: $MINI_GUI: possibly used before declaration.
GUIDelete($MINI_GUI)
~~~~~~~~~~~~~~~~~~~~~~~^
C:\dino8.au3 - 0 error(s), 2 warning(s)
->20:22:18 AU3Check ended.rc:1
>Running:(3.3.0.0):C:\Programme\AutoIt3\autoit3.exe "C:\dino8.au3"
C:\dino8.au3 (20) : ==> Variable used without being declared.:
GUIDelete($MINI_GUI)
GUIDelete(^ ERROR
->20:22:34 AutoIT3.exe ended.rc:1
+>20:22:35 AutoIt3Wrapper Finished
>Exit code: 1 Time: 22.242