Dim strErr
Dim objMes
'------------------------------------------------------------------------------
Set objMes = CreateObject("CDO.Message")
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sys.SmtpServer 'Почтовый сервер или IP адрес
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = sys.SendUserName 'Имя пользователя
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = sys.SendPassword 'пароль
objMes.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = sys.SmtpServerPort 'Порт сервера SMTP
' "smtp.mail.ru" 465
' "smtp.yandex.ru" 465
' "smtp.qip.ru" 25
' "smtp.gmail.com" 465
objMes.PopSsl = 1 'что мы хотим TLS / SSL
Set bundle = vSubject
For i = vi To bundle.MessageCount - 1
email = bundle.GetEmail(i)
outFile.WriteLine("From: " & vFrom)
outFile.WriteLine("Subject: " & vSubject)
Next
objMes.Send
If Err.Number = 0 then
sys.onSend 0
else
sys.onSend 1
End If
Set objMes = Nothing
Function GetVar(Data, Index)
Select Case Index
Case "vError" ' номер
strErr = Err.Number
GetVar = strErr
Case "vDesc" ' описание
strErr = Err.Description
GetVar = strErr
End Select
End Function
End Sub
Ответов: 632
Рейтинг: 4
|
|||
Кто знает, в чем ошибка? Код VBJSpript
|
|||
карма: 0 |
|