Hallo Sprenger.
Wilkommen im Forum und viel SPASS !
Hallo Sprenger.
Wilkommen im Forum und viel SPASS !
Läuft einwandfrei bei mir !!!
Spontan würde ich es so lösen:
#include <GUIConstantsEx.au3>
#include <Inet.au3>
Global $section
; kann man auch via INI-Datei einlesen mit IniRead
$signatur = "Ich bin die erste Zeile der Signatur"
$signatur2 = "Ich bin die zweite Zeile der Signatur"
$signatur3 = "Ich bin die dritte Zeile der Signatur"
$signatur4 = "Ich bin die vierte Zeile der Signatur"
$section = IniReadSection("Email.ini", "Emails")
Dim $Checkbox[$Section[0][0]+1]
$Form1 = GUICreate("Email Prog", 400, Round($section[0][0]/2)*30+290)
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
$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
_INetMail(GUICtrlRead($Input2), GUICtrlRead($Input1), GUICtrlRead($Edit1) & @CRLF & @CRLF & $signatur &@CRLF & $signatur2 & @CRLF & $signatur3 & @CRLF & $signatur4)
sleep(500)
Send("!s")
EndSwitch
WEnd
Button 2 so wie hier, dann klappt es. Ist nur die Farge, ob es mit jedem Outlook so arbeitert.
Case $Button2
_INetMail(GUICtrlRead($Input2), GUICtrlRead($Input1), GUICtrlRead($Edit1))
sleep(500)
Send("!s")
Dann erst einmal: HERZLICH WILLKOMMEN !
Dir viel Spass im Forum.
Also mit folgendem Script gibt es bei mir keine Probleme.
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.12.1
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
;
;##################################
; Include
;##################################
#Include<file.au3>
;##################################
; Variables
;##################################
$SmtpServer = "MailServer" ; address for the smtp-server to use - REQUIRED
$FromName = "Name" ; name from who the email was sent
$FromAddress = "your@Email.Address.com" ; address from where the mail should come
$ToAddress = "your@Email.Address.com" ; destination address of the email - REQUIRED
$Subject = "Userinfo" ; subject from the email - can be anything you want it to be
$Body = "" ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = "" ; the file you want to attach- leave blank if not needed
$CcAddress = "CCadress1@test.com" ; address for cc - leave blank if not needed
$BccAddress = "BCCadress1@test.com" ; address for bcc - leave blank if not needed
$Importance = "Normal" ; Send message priority: "High", "Normal", "Low"
$Username = "******" ; username for the account used from where the mail gets sent - REQUIRED
$Password = "********" ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 25 ; port used for sending the mail
$ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465 ; GMAIL port used for sending the mail
;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS
;##################################
; Script
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
EndIf
;
; The UDF
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
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 StringInStr($as_Body, "<") And StringInStr($as_Body, ">") 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] = _PathFull($S_Files2Attach[$x])
ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment ($S_Files2Attach[$x])
Else
ConsoleWrite('!> File not found to attach: ' & $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 "High"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
Case "Normal"
$objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
Case "Low"
$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
;
;
; Com Error Handler
Func MyErrFunc()
$HexNumber = Hex($oMyError.number,
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description, 3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc ;==>MyErrFunc
Vorausgesetz, die Daten in Zeile 20 bis 33 sind richtig angegeben. Diese bekommst Du zumeist von Deinem Provider.
Dann mal herzlich willkommen !
Hallo Dino.
Bin zwar kein "Schnitzel", aber die Funktion hast Du hier:
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)
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
Willkommen hier :D... *lol*
Wäre interessant, ob man da echt rechtliche Schritte für einleiten könnte... *lol*...
Vergiss nicht, dann auch deine Skype-ID zu ändern! xD
LG
Ich sage dazu mal, das Chip.de klar hier im Recht ist und sogar eine Unterlassungserklärung zustellen kann. Hier kommen bereits an dieser Stelle Kosten auf den zu, der ohne Genehmigung den Namen verwendet. Aus diesem Grund würde ich den Usernamen umgehend ändern.
Dazu kommt ja auch noch, das Du ein Logo verwendest, das klar auf die Zeitung / den Verlag von Chip.de hindeutet. Somit sehe ich die Bedenken von Gun-Food als sehr begründet.
Sollte eine Unterlassungserklärung bei Dir oder bei Gun-Food eintreffen, so dann wegen einer Markenrechtsverletzung nach § 14 und / oder § 15 MarkenG.
Weiterhin ist es unlautere Wettbewerbshandlung nach §§ 3, 4 Nr. 10 UWG sowie eine vorsätzliche sittenwidrige Schädigung nach § 826 BGB. Welche Rechtsverstöße dann genau genauut werden, liegt am RA und an dem Umfang der Schädigung. Schau Dir einfach mal die o. g. §§ genau an und lese diese mit der Sicht eines Geschädigten.
Gruss, Alina.
Meinst Du evtl. dieses hier?
#include <GUIConstants.au3>
$gui = GUICreate('', 100, 100, 300, 200)
$kontext = GUICtrlCreateContextMenu(-1) ; -1 bedeutet für das gesamte GUI
$kon_start = GUICtrlCreateMenuItem("Upload starten", $kontext)
$kon_anhalten = GUICtrlCreateMenuItem("Upload anhalten", $kontext)
$kon_fortsetzen = GUICtrlCreateMenuItem("Upload fortsetzen", $kontext)
GUICtrlCreateMenuItem("", $kontext)
$kon_del = GUICtrlCreateMenuItem("Datei entfernen", $kontext)
GUICtrlCreateMenuItem("", $kontext)
$kon_liste_speichern = GUICtrlCreateMenuItem("Liste speichern", $kontext)
$kon_liste_laden = GUICtrlCreateMenuItem("Liste laden", $kontext)
GUICtrlCreateMenuItem("", $kontext)
$kon_archiv = GUICtrlCreateMenuItem("Archiv erstellen", $kontext)
GUICtrlCreateMenuItem("", $kontext)
$kon_info = GUICtrlCreateMenuItem("Info", $kontext)
GUISetState()
While(1)
$msg = GUIGetMsg()
Switch $msg
Case $kon_start
MsgBox(0, '', 'start')
Case $kon_anhalten
MsgBox(0, '', 'anhalten')
Case $kon_fortsetzen
MsgBox(0, '', 'fortsetzen')
; usw.
EndSwitch
WEnd
[/autoit]Herzlichen Glückwunsch!
Herzlichen Glückwunsch!
Herzlichen Glückwunsch!
Lina & Pia Zoe
Wieso machst Du es nicht abhängig, ob die Datei funktioniert oder nicht, wie die MAC-ADR ist. ISt die MAC-ADR richtig, dann starten, ansonsten nicht starten.
Ist nur eine Idee, aber diese wäre mit AutoIt sehr gut umsetzbar. Ist klar, wenn jemand an die Daten möchte, dann bekommt er sie leider auch, wenn ausgereichen kriminelle Energie (VERBOTEN) vorhanden ist.
Ich habe VM sowohl Vista-Ultimate als auch das gewünschte Windows-7 installieren und es arbeitet super !!!
Ich möchte mich bei Euch bedanken für die hilfreichen Worte und wünsche Euch ein schönes Wochenende.
Schönes Spiel.
Aber über 16 Sec. komme ich nicht. Aber ich habe es ja auf PC und werde ab und an mal schauen ob es besser wird.
Schnitzel: BOT? Nein, dann brauchst doch nicht spielen. Stelle die Tastaturgeschwindigkeit mal um, dann geht es besser. Ich teste das auch mal durch
Also ich habe den PC zur Verfügung mit folgenden Eigenschaften und so das ich diesen hier nicht gleich nutzen muss:
Motherboard:
CPU Typ Intel Pentium 4A, 2400 MHz (6 x 400)
Motherboard Chipsatz Intel Brookdale i845D
Arbeitsspeicher 2048 MB (DDR SDRAM)
BIOS Typ Award Modular (08/15/02)
Anschlüsse (COM und LPT) Kommunikationsanschluss (COM1)
Anschlüsse (COM und LPT) Kommunikationsanschluss (COM2)
Anschlüsse (COM und LPT) ECP-Druckeranschluss (LPT1)
Anzeige:
Grafikkarte NVIDIA GeForce4 MX 420 (Microsoft Corporation) (64 MB)
Multimedia:
Soundkarte C-Media CMI8738 Audio Chip
Soundkarte TerraTec Aureon 5.1 Fun Sound Card
Datenträger:
Floppy-Laufwerk Diskettenlaufwerk
Festplatte ST3120023A (120 GB, 7200 RPM, Ultra-ATA/100)
Festplatte ST380020A (80 GB, 5400 RPM, Ultra-ATA/100)
Optisches Laufwerk HL-DT-ST DVD-RAM GSA-H20L
Optisches Laufwerk SONY DVD RW DRU-710A
Eingabegeräte:
Tastatur Standardtastatur (101/102 Tasten) oder Microsoft Natural Keyboard (PS/2)
Maus PS/2-kompatible Maus
Netzwerk:
Netzwerkkarte D-Link DFE-530TX-PCI-Fast Ethernet-Adapter (rev.A) (192.165.0.27)
BIOS Eigenschaften:
Anbieter Award Software International, Inc.
Version 6.00 PG
Freigabedatum 08/15/2002
Größe 256 KB
Bootunterstützung Floppy Disk, Hard Disk, CD-ROM, ATAPI ZIP, LS-120
Fähigkeiten Flash BIOS, Shadow BIOS, Selectable Boot, EDD
Unterstützte Standards DMI, APM, ACPI, ESCD, PnP
Erweiterungen ISA, PCI, AGP, USB
Arbeitsspeicher:
Gesamt 2047 MB
Belegt 544 MB
Frei 1503 MB
Ausgenutzt 27 %
Modulname TMS1GB164C081403EP
Seriennummer Keine
Modulgröße 1024 MB (2 rows, 4 banks)
Modulart Unbuffered
Speicherart DDR SDRAM
Speichergeschwindigkeit PC3200 (200 MHz)
Modulbreite 64 bit
Modulspannung SSTL 2.5
Fehlerkorrekturmethode Keine
Auffrischungsrate Reduziert (7.8 us), Self-Refresh
Maximale CAS Wartezeit 3.0 (5.0 ns @ 200 MHz)
2te Maximale CAS Wartezeit 2.5 (6.0 ns @ 166 MHz)
Chipsatz Eigenschaften:
Motherboard Chipsatz Intel Brookdale i845D
In-Order Queue Depth 12
CAS Latency 2.5T
RAS To CAS Delay 2T
RAS Precharge 2T
Speichersteckplätze:
DRAM Steckplatz #1 1024 MB (DDR SDRAM)
DRAM Steckplatz #2 1024 MB (DDR SDRAM)
Dieser PC sollte doch erst einmal ausreichend sein für mein Vorhaben, oder?
Werde auf diesem PC das VM wie o. g. installieren und dann dort die BS/OS installieren. Habe die Nacht gelesen, das ich dann im VM sowohl Vista-Ultimate als auch das gewünschte Windows-7 installieren kann.
Eine Frage habe ich nochmals bezüglich der Aktivierung bei Microsoft. Muss ich jedes mal oder einmnal dann das jeweilige BS/OS aktivieren oder jedes mal wenn ich das VM einsetze? Habe ja alle Versionen im Original ab Windows-ME bis Windows-7, aber ich habe nichts gefunden, wo steht, wie das im VM mit der Aktivierung läuft.
Ich entscheide mich mal dazu, am kommenden Wochenende "Virtual Box" zu testen.
Ich werde berichten
So, hier mal eine Lsg. aus den Finger gesaugt, aber sie macht was Du möchtest.
Schau mal beim Feld I2. Hier gebe ich vor, was eingetragen werden kann und nur diese Wörter sind gültig.
Ansonsten schaue einfach was Du dazu sagst. Du kannst NUR in I2 bis I10 Änderungen vornehmen.
Hallo sc4ry.
Also ich kann Dir gerne noch weitere Lsg. erstellen, da ich ab morgen wieder mein 750 S. Excel-Buch habe und dort alles echt super erklärt ist. Wenn ich dazu komme, übersetze ich Dir dann auch die zuhörigen Bereiche in "Deutsch".
Aber ich muss sagen, das auf Grund des kleinen Bsp. die W-D-S ausreichend ist. Aber ich werde mich an die Index-Version setzen und evtl. auch eine mit einem SVerweis nach links (ist möglich, auch wenn es in Foren als unmöglich dargestellt wird). Wenn Du möchtest, dann auch gerne eine Matrix-Lsg, aber diese ist dann evtl. nicht gerade leicht zu verstehen.
Excel ist eine feine Sache, ich habe damit für meine Abt. die gesamte Std. Abrechnung gemacht und Formeln sind meine ich reine Verständnissachen. Ansonsten gibt es ein super Forum, das ich Dir nennen könnte. Bei Bedarf frag einfach via PN nach und ich sende es Dir.
Hallo, ich bin es nochmals.
Welche "Virtuellen Maschine" kann man denn am besten empfehlen? Hatte bereits einmal eine ausprobiert, aber da konnte ich dann den USB nicht nutzen und das sollte ja nicht sein.