urrya
Новичок
- Сообщения
- 159
- Репутация
- 1
Доброго времени суток уважаемые.
Столкнулся с проблемой в работе функции:
Дело в том, что я в настройках брандмауэра всё запретил.
И теперь не знаю что разрешить во входящих и исходящих подключениях,
что бы функция заработала.
Прошу, помогите пожалуйста, что надо разблокировать?
Windows 7 x64
:stars:
Столкнулся с проблемой в работе функции:
Код:
Global $str = "http://schemas.microsoft.com/cdo/configuration/"
_Mail()
Func _Mail()
$hMAIL = ObjCreate("CDO.Message")
With $hMAIL.Configuration.Fields
.Item($str & "sendusing") = 2
.Item($str & "smtpserver") = 'smtp.gmail.com' ;SMTP Server
.Item($str & "smtpusessl") = True
.Item($str & "smtpauthenticate") = 1
.Item($str & "sendusername") = '[email protected]' ;E-mail отправителя
.Item($str & "sendpassword") = 'mypassword' ;Пароль SMTP-сервер
.Item($str & "smtpserverport") = 465 ;Порт
.Update
EndWith
With $hMAIL
.From = '[email protected]' ;E-mail отправителя
.To = '[email protected]' ;E-mail получателя
.Subject = '...' ; "Тема письма"
.TextBody = '...' ; "Текст письма"
.Send
EndWith
$hMAIL = 0
EndFunc
Дело в том, что я в настройках брандмауэра всё запретил.
И теперь не знаю что разрешить во входящих и исходящих подключениях,
что бы функция заработала.
Прошу, помогите пожалуйста, что надо разблокировать?
Windows 7 x64
:stars: