Не проходит отправка писем
Добрый день, нужно было как-то систематизировать заявки, и за одно организовать какой-то лог, или статистику, было решено использовать для этого autoit. написал небольшой модуль, проверил, вроде весь код в порядке, но почему-то не отправляет письма, сначала пробовал отсылать через гугловский ящик, не получилось, выпадала ошибка 3, переделал под mail.ru, теперь вываливается ошибка 50. Подскажите что не так, ниже представлен полный код
PHP код:
#RequireAdmin
#Include <WinAPI.au3>
#Include <GUIConstantsEx.au3>
#Include <WindowsConstants.au3>
#Include <Inet.au3>
Local $Company = RegRead("HKEY_CURRENT_USER\SOFTWARE\BestIT\Informer\", "Company")
Local $eMail = RegRead("HKEY_CURRENT_USERSOFTWAREBestITInformer","Recipient")
Local $SmtpServer = "smtp.mail.ru"
Local $FromAddress ="моя почта"
Local $ToAddress = "моя почта2"
Local $AttachFiles = ""
Local $CcAddress = ""
Local $BccAddress = ""
Local $Importance = "High"
Local $Username = "мой логин"
Local $Password = "мой пароль"
Local $Body[3]
Local $IPPort=465
Local $ssl=1
If $eMail=True and $Company=True Then
$FromName = $Company
$BaseForm = GUICreate("Информер", 250, 350, 192, 124)
$Button1 = GUICtrlCreateButton("Не работает локальный принтер", 25, 30, 200, 25)
$Button2 = GUICtrlCreateButton("Не работает удалённый принтер", 25, 70, 200, 25)
$Button3 = GUICtrlCreateButton("Не печатает из терминала", 25, 110, 200, 25)
$Button4 = GUICtrlCreateButton("Не открываются некоторые сайты", 25, 150, 200, 25)
$Button5 = GUICtrlCreateButton("Не работает почта", 25, 190, 200, 25)
$Button6 = GUICtrlCreateButton("Не открывается сетевой каталог", 25, 230, 200, 25)
$Button7 = GUICtrlCreateButton("Ошибки доступа", 25, 270, 200, 25)
$Button8 = GUICtrlCreateButton("Другая проблема", 25, 310, 200, 25)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
$Subject = "Не работает локальный принтер"
$Body[0] = "Имя компьютера: " & @ComputerName
$Body[1] = "Имя пользователя: " & @UserName
$Body[2] = "Описание проблемы: " & $Subject
Local $Response = _INetSmtpMail($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body)
Local $err = @error
If $Response = 1 Then
MsgBox(0, "Выполнено!", "Уведомление отправлено")
Else
MsgBox(0, "Ошибка!", "Ошибка отправки уведомления, код ошибки: " & $err)
EndIf
Exit
Case $Button2
$Subject = "Не работает сетеой принтер"
$Body[0] = "Имя компьютера: " & @ComputerName
$Body[1] = "Имя пользователя: " & @UserName
$Body[2] = "Описание проблемы: " & $Subject
Local $Response = _INetSmtpMail($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body)
Local $err = @error
If $Response = 1 Then
MsgBox(0, "Выполнено!", "Уведомление отправлено")
Else
MsgBox(0, "Ошибка!", "Ошибка отправки уведомления, код ошибки: " & $err)
EndIf
Exit
Case $Button3
$Subject = "Не печатает из терминала"
$Body[0] = "Имя компьютера: " & @ComputerName
$Body[1] = "Имя пользователя: " & @UserName
$Body[2] = "Описание проблемы: " & $Subject
Local $Response = _INetSmtpMail($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body)
Local $err = @error
If $Response = 1 Then
MsgBox(0, "Выполнено!", "Уведомление отправлено")
Else
MsgBox(0, "Ошибка!", "Ошибка отправки уведомления, код ошибки: " & $err)
EndIf
Exit
Case $Button4
$Subject = "Не открываются некоторыее сайты"
$Body[0] = "Имя компьютера: " & @ComputerName
$Body[1] = "Имя пользователя: " & @UserName
$Body[2] = "Описание проблемы: " & $Subject
Local $Response = _INetSmtpMail($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body)
Local $err = @error
If $Response = 1 Then
MsgBox(0, "Выполнено!", "Уведомление отправлено")
Else
MsgBox(0, "Ошибка!", "Ошибка отправки уведомления, код ошибки: " & $err)
EndIf
Exit
Case $Button5
$Subject = "Не работает почта"
$Body[0] = "Имя компьютера: " & @ComputerName
$Body[1] = "Имя пользователя: " & @UserName
$Body[2] = "Описание проблемы: " & $Subject
Local $Response = _INetSmtpMail($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body)
Local $err = @error
If $Response = 1 Then
MsgBox(0, "Выполнено!", "Уведомление отправлено")
Else
MsgBox(0, "Ошибка!", "Ошибка отправки уведомления, код ошибки: " & $err)
EndIf
Exit
Case $Button6
$Subject = "Не открывается сетевой каталог"
$Body[0] = "Имя компьютера: " & @ComputerName
$Body[1] = "Имя пользователя: " & @UserName
$Body[2] = "Описание проблемы: " & $Subject
Local $Response = _INetSmtpMail($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body)
Local $err = @error
If $Response = 1 Then
MsgBox(0, "Выполнено!", "Уведомление отправлено")
Else
MsgBox(0, "Ошибка!", "Ошибка отправки уведомления, код ошибки: " & $err)
EndIf
Exit
Case $Button7
$Subject = "Ошибки доступа"
$Body[0] = "Имя компьютера: " & @ComputerName
$Body[1] = "Имя пользователя: " & @UserName
$Body[2] = "Описание проблемы: " & $Subject
Local $Response = _INetSmtpMail($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body)
Local $err = @error
If $Response = 1 Then
MsgBox(0, "Выполнено!", "Уведомление отправлено")
Else
MsgBox(0, "Ошибка!", "Ошибка отправки уведомления, код ошибки: " & $err)
EndIf
Exit
Case $Button8
$Subject = "Другая проблема"
$Body[0] = "Имя компьютера: " & @ComputerName
$Body[1] = "Имя пользователя: " & @UserName
$Body[2] = "Описание проблемы: " & $Subject
Local $Response = _INetSmtpMail($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body)
Local $err = @error
If $Response = 1 Then
MsgBox(0, "Выполнено!", "Уведомление отправлено")
Else
MsgBox(0, "Ошибка!", "Ошибка отправки уведомления, код ошибки: " & $err)
EndIf
Exit
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Else
$CompanyNameForm = GUICreate("Введите название своей компании", 300, 80, 200, 120)
$CompanyName = GUICtrlCreateInput("Название компании", 50, 20, 200, 20)
$Add = GUICtrlCreateButton("Добавить", 110, 50, 75, 25)
GUISetState(@SW_SHOW)
While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $Add
RegWrite("HKEY_CURRENT_USERSoftwareBestITInformer", "Company", "REG_SZ", GUICtrlRead($CompanyName))
RegWrite("HKEY_CURRENT_USERSoftwareBestITInformer", "Recipient", "REG_SZ", "info@bestit.kz")
Exit
EndSwitch
WEnd
EndIf
|
