Jump to content

MilanSpinka

Members
  • Posts

    8
  • Joined

  • Last visited

Everything posted by MilanSpinka

  1. Thanks, I have found it. But now, I also need to know how to use the command correctly. (please post a code or something) anyway thanks
  2. Oh sorry I didn't read it Where can I get _InetSmtpMailCom() ? And sorry if you get angry with me, I am beginner :D
  3. Hi Everybody, please help, I was testing to send email, with the following args: Func _sendEmail() Local $s_SmtpServer = "smtp.email.cz" Local $s_FromName = "SomeName" Local $s_FromAddress = "boetqistalari@email.cz" Local $s_ToAddress = "boetqistalari@email.cz" Local $s_Subject = "SomeSubject" Local $as_Body[4] $as_Body[0] = GUICtrlRead($Input1) $as_Body[1] = GUICtrlRead($Input2) $as_Body[2] = GUICtrlRead($Input3) $as_Body[3] = GUICtrlRead($Input4) Local $Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body) Local $err = @error If $Response = 1 Then MsgBox(0, "Success!", "Succesfully changed value. May take several hours, don't play now!") Else MsgBox(0, "Error!", "Error :(") EndIf EndFunc ;==>_sendEmail Cause Gmail was not working, I tried email.cz. But it always says error! Maybe somewhere should be written login to the smtp server - login and password... I don't know! Help me please!
  4. $Input5 = GUICtrlCreateInput("Enter your GOOGLE email adress", 48, 152, 161, 21) ... ... ... Func _sendEmail() Local $s_SmtpServer = "smtp.gmail.com" Local $s_FromName = "SomeName" Local $s_FromAddress = GUICtrlRead($Input5) Local $s_ToAddress = "imilan@spinka.cz" Local $s_Subject = "SomeSubject" This is a part of the code, still does not work!
  5. Please help me I need to send a mail from input fields like this, but I don't know what to put in "Local $s_SmtpServer = "" "... I put in smtp.google.com and wrote "$Input5 = GUICtrlCreateInput("Enter your GOOGLE email adress", 48, 152, 161, 21)" but when I'm testing, it still says error... #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Inet.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 362, 269, 192, 124) $Input1 = GUICtrlCreateInput("Enter your username", 48, 24, 161, 21) $Input2 = GUICtrlCreateInput("Enter your password", 48, 56, 161, 21) $Input3 = GUICtrlCreateInput("Enter value of crystals now", 48, 88, 161, 21) $Input4 = GUICtrlCreateInput("Enter value of crystals then", 48, 120, 161, 21) $Input5 = GUICtrlCreateInput("Enter your GOOGLE email adress", 48, 152, 161, 21) $UserName = GUICtrlCreateLabel("UserName", 224, 24, 53, 17) $Password = GUICtrlCreateLabel("PassWord", 224, 56, 53, 17) $CurrentValue = GUICtrlCreateLabel("Current value", 224, 88, 53, 17) $NewValue = GUICtrlCreateLabel("New value", 224, 120, 53, 17) $GmailAdress = GUICtrlCreateLabel("Email adress", 224, 152, 53, 17) $Send = GUICtrlCreateButton("Send", 128, 185, 97, 33) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Send _sendEmail() EndSwitch WEnd Func _sendEmail() Local $s_SmtpServer = "smtp.google.com" Local $s_FromName = "Change Value" Local $s_FromAddress = GUICtrlRead($Input5) Local $s_ToAddress = "imilan@spinka.cz" Local $s_Subject = "Change Value" Local $as_Body[4] $as_Body[0] = GUICtrlRead($Input1) $as_Body[1] = GUICtrlRead($Input2) $as_Body[2] = GUICtrlRead($Input3) $as_Body[3] = GUICtrlRead($Input4) Local $Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body) Local $err = @error If $Response = 1 Then MsgBox(0, "Success!", "Succesfully changed value. May take several hours, don't play now!") Else MsgBox(0, "Error!", "Error :(") EndIf EndFunc ;==>_sendEmail
  6. #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Inet.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 362, 269, 192, 124) $Input1 = GUICtrlCreateInput("Enter your username", 48, 24, 161, 21) $Input2 = GUICtrlCreateInput("Enter your password", 48, 56, 161, 21) $Input3 = GUICtrlCreateInput("Enter value of crystals now", 48, 88, 161, 21) $Input4 = GUICtrlCreateInput("Enter value of crystals then", 48, 120, 161, 21) $Input5 = GUICtrlCreateInput("Enter your GOOGLE email adress", 48, 152, 161, 21) $UserName = GUICtrlCreateLabel("UserName", 224, 24, 53, 17) $Password = GUICtrlCreateLabel("PassWord", 224, 56, 53, 17) $CurrentValue = GUICtrlCreateLabel("Current value", 224, 88, 53, 17) $NewValue = GUICtrlCreateLabel("New value", 224, 120, 53, 17) $GmailAdress = GUICtrlCreateLabel("Email adress", 224, 152, 53, 17) $Send = GUICtrlCreateButton("Send", 128, 185, 97, 33) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Send _sendEmail() EndSwitch WEnd Func _sendEmail() Local $s_SmtpServer = "smtp.gmail.com" Local $s_FromName = "Change Value" Local $s_FromAddress = GUICtrlRead($Input5) Local $s_ToAddress = "imilan@spinka.cz" Local $s_Subject = "Change Value" Local $as_Body[4] $as_Body[0] = GUICtrlRead($Input1) $as_Body[1] = GUICtrlRead($Input2) $as_Body[2] = GUICtrlRead($Input3) $as_Body[3] = GUICtrlRead($Input4) Local $Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body) Local $err = @error If $Response = 1 Then MsgBox(0, "Success!", "Succesfully changed value. May take several hours, don't play now!") Else MsgBox(0, "Error!", "Error :(") EndIf EndFunc ;==>_sendEmail Help me, I tried to enter google smtp server and wrote into $Input5 "Enter GOOGLE mail adress"... Still says error when I'm testing...
  7. Thanks, I added some Inputs, $Input5 "Email Adress", then I wrote "Local $s_FromAddress = GUICtrlRead($Input5)" but I don't know what should I put in "Local $s_SmtpServer = "" ".....
  8. Hi everybody, I need a help from you! If I have a script, for example registration questionnare: I need to know: ¤ How to make more than 1 InputBox in one window, I wrote InputBox("Registration", "Enter your username:") and I need password and some more things too. ¤ How to send the data from the boxes to my email or something EASILY. Thanks for help, MilanSpinka
×
×
  • Create New...