urrya
Новичок
- Сообщения
- 159
- Репутация
- 1
Всем привет.
В созданном GUI окне ввожу текст, вытаскиваю и отправляю на почту, но приходит лишь только цифра "1" :blink:
подскажите пожалуйста, что я не так делаю :-[
В созданном GUI окне ввожу текст, вытаскиваю и отправляю на почту, но приходит лишь только цифра "1" :blink:
Код:
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button2
Exit
Case $Button1
_send("темка", "кое что новое", "")
Call('_send')
Exit
EndSwitch
WEnd
Func _send($Body, $Subject, $Attachment)
$Text = ControlGetText("AutoIt v3 GUI", "", "[CLASS:Edit; INSTANCE:1]")
$FromAddress = '[email protected]'
$ToAddress = '[email protected]'
$Body = StringRegExp($Text,'\w+\d+', 3)
$SMTPServer = 'smtp.yandex.ru'
$Username = '[email protected]'
$Password = "..."
$str = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate ("CDO.Message")
With $hMAIL
.From = $FromAddress
.To = $ToAddress
.Subject = $Subject
.TextBody = $Body
.AddAttachment ($Attachment)
EndWith
With $hMAIL.Configuration.Fields
.Item ($str & "sendusing") = 2
.Item ($str & "smtpserver") = $SMTPServer
.Item ($str & "smtpauthenticate") = 1
.Item ($str & "sendusername") = $Username
.Item ($str & "sendpassword") = $Password
.Item ($str & "smtpserverport") = $Port
.Update
EndWith
$hMAIL.Send
EndFunc
подскажите пожалуйста, что я не так делаю :-[