könnte jemand bitte mein Skript testen.
Es funktioniert zwar aber, das senden dauert schon so 30 sec und das ist mir recht lang.
Jetzt will ich wissen ob es an der Funktion liegt oder an meinem Server.
schon mal danke euch allen, habt ein erholsames Wochenende.
C
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <Inet.au3>
Global Const $iAnzahl_Zeilen = 10
Global $s_ToAddress
Global $s_Subject
Global $as_Body
Global $betreff
Global $msg
GUI_Mailfenster()
Func GUI_Mailfenster()
#Region ### START Koda GUI section ### Form=
$Mail = GUICreate("Email senden", 482, 451, 192, 124)
$Fname = GUICtrlCreateLabel("Geben Sie hier bitte Ihren Namen ein", 32, 24, 179, 17)
$name = GUICtrlCreateInput("", 32, 48, 177, 21)
$femail = GUICtrlCreateLabel("Geben Sie hier bitte Ihre Email Adresse ein", 248, 24, 205, 17)
$sAddress = GUICtrlCreateInput("", 248, 48, 201, 21)
$fbetreff = GUICtrlCreateLabel("Bitte geben Sie hier den Betreff ein", 32, 104, 169, 17)
$betreff = GUICtrlCreateInput("", 32, 128, 417, 21)
$fnachricht = GUICtrlCreateLabel("Geben Sie hier die Nachricht ein", 32, 168, 154, 17)
;$msg = GUICtrlCreateInput("", 32, 192, 417, 200,$ES_MULTILINE )
$msg = GUICtrlCreateEdit("", 32, 192, 417, 200, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
$Senden = GUICtrlCreateButton("Senden", 160, 408, 153, 25)
GUICtrlSetTip($Senden, "kann bis zu 40 sec dauern, bitte haben Sie geduld", "Info")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $s_SmtpServer = "" ;Smtp Server
Local $s_ToAddress = "" ;Empfänger
Local $s_Subject = "" ;Betreff
Local $as_Body[$iAnzahl_Zeilen]
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Senden
$as_Body[0] = ""
$as_Body[1] = GUICtrlRead($betreff, $GUI_READ_DEFAULT)
$as_Body[2] = GUICtrlRead($msg, $GUI_READ_DEFAULT)
;_ArrayDisplay($as_Body)
$iResponse = _INetSmtpMail($s_SmtpServer, GUICtrlRead($name), GUICtrlRead($sAddress), $s_ToAddress, $s_Subject, $as_Body, @ComputerName, -1)
Global $iErr = @error
If $iResponse = 1 Then
MsgBox($MB_SYSTEMMODAL, "Success!", "Mail wurde erfolgreich versendet")
Else
MsgBox($MB_SYSTEMMODAL, "Error!", "Mail konnte nicht verschickt werden" & @CRLF & @CRLF & "Error Code" & $iErr)
EndIf
Exit
EndSwitch
WEnd
EndFunc ;==>GUI_Mailfenster
