Отправка электронной почты с использованием массива в ASP-Classic или VBScript ⇐ MySql

[Anonymous]

Using a sproc in MySQL 8 extracts the list below of user code


userCode




a1111111 < /td>
< /tr>

a2222222 < /td>
< /tr>

A333333 < /td>
< /tr>

a4444444 < /td>
< /tr>

a555555 < /td>
< /tr>
< /tbody>
< /table> < /div>
Теперь мне нужно отправить электронное сообщение для каждого пользовательского кода или VBSCR. /> Поэтому я подумал о том, чтобы вставить все пользовательские коды, извлеченные из Sproc, в Array> Array < /strong> и отправку сообщения электронной почты для каждого из них. Форматирование строк.
Вероятно, проблема заключается в том, что эта часть моего кода, но если я удаляю его, каждое отправленное сообщение увеличивается каждым кодом пользователя, и, следовательно, код последнего пользователя a555555 получает сообщение электронной почты со всеми другими кодами пользователя внутри.
.Send
msg = ""
msg = msg
< /code>
Первый msg < /p>



usercode < /th>
< /tr>
< /thead>

< /tr>
< /thead>
/> A1111111 < /td>
< /tr>
< /tbody>
< /table> < /div>
Второе сообщение без столбца и форматирования строк < /p>
a2222222 < /p>
my -код ниже < /p>
SQL = " Call `sp_send_eml_msg`(); "

Set RS = CreateObject("ADODB.Recordset")
RS.open SQL, cn

If Not RS.eof then

msg = msg & VBcrlf & ""
msg = msg & VBcrlf & ""
msg = msg & VBcrlf & ""
msg = msg & VBcrlf & ""

msg = msg & VBcrlf & ""
msg = msg & VBcrlf & "User Code"

Set objConfig = CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "xxx"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 60
.Update
End With

Set objMessage = CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig

Do While Not RS.EOF

a = Array(RS("userCode"))

For I = 0 To UBound(a)

msg = msg & VBcrlf & ""
msg = msg & VBcrlf & "" & a(I) & ""

With objMessage
.From = "sender address... "

For Each x In a
.To = x + "@mydomain.com"
Next

.Subject = "::: Alert :::"
.HtmlBody = msg
.Fields("urn:schemas:httpmail:importance").Value = 2
.Fields("urn:schemas:mailheader:X-MSMail-Priority") = 6
.Fields.Update()

.Send
msg = ""
msg = msg
End With

Next

RS.MoveNext()
Loop

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing

msg = msg & VBcrlf & ""
msg = msg & VBcrlf & ""
msg = msg & VBcrlf & ""
msg = msg & VBcrlf & ""
msg = msg & VBcrlf & ""

End IF

RS.Close()
Set RS = Nothing


Подробнее здесь: https://stackoverflow.com/questions/797 ... r-vbscript