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
