VBNet - Форум - Метод SEND объекта CDO.Message

Вопрос: Метод SEND объекта CDO.Message Добавлено: 23.11.10 09:59

Автор вопроса: SSV

Есть на 2000-м SQL сервере джоб с таким кодом:

Dim iMsg, iConf, Flds, rec, Conn
Set Conn = CreateObject("ADODB.Connection")
Set rec = CreateObject("ADODB.Recordset")
With Conn
    .Provider = "SQLOLEDB"
    .ConnectionString = "Driver={SQL Server};Server=crm;Database=Dertel;trusted_connection=yes;"
    .Open
End With

rec.Open "SELECT * FROM PostList", Conn, 3, 3
If rec.RecordCount > 0 Then

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("sendusing") = 2 'cdoSendUsingPort
Flds("smtpserver") = "mail.dertel.ru"
Flds.Update

With iMsg
Set .Configuration = iConf
     .MimeFormatted = true
     .AutoGenerateTextBody = False
End With

dim HTMLBodyHead, HTMLBodyFoot
HTMLBodyHead = "<html> <head> <Content-Type=text/html; charset=koi8-r></head><body>"
HTMLBodyFoot = "</body></html>"
    rec.MoveFirst
    While Not rec.EOF
        With iMsg
            If Not IsNull(rec.Fields("Recipients").Value) Then
                .To = rec.Fields("Recipients").Value
                If Not IsNull(rec.Fields("Copy_Recipients").Value) Then
                    .CC = rec.Fields("Copy_Recipients").Value
                End If
                If Not IsNull(rec.Fields("Blind_Copy_Recipients").Value) Then
                    .BCC = rec.Fields("Blind_Copy_Recipients").Value
                End If
                .Subject = rec.Fields("Subject").Value
.HTMLBody = HTMLBodyHead & rec.Fields("Message").Value & HTMLBodyFoot
                .From = "Auto@dertel.ru"
                .Send
End If
            End If
        End With
        rec.MoveNext
    Wend
    Conn.Execute "DELETE FROM PostList"
End If

set iMsg = nothing
set iConf = nothing
set Flds = nothing
set rec = nothing

этот код рассылает почтовые сообщения. с некоторых пор что-то в нем застопорилось. можно ли как-то получить значение, которое возвращает метод SEND? как это сделать?

Ответить

Ответы Всего ответов: 0

Нет ответов

Страница: