Почему свойство cc электронной почты не работает должным образом в ASP classic?

Когда задание назначено кому-то, должно быть также уведомлено лицо, которому была назначено задание. Однако это не работает. Я не уверен, почему это письмо не отправляется в электронную почту .Cc. Кто-нибудь знает, как исправить этот код? (Электронная почта была отправить получателю msg.to, и «testcc» делает возвращает действительное значение адреса электронной почтыПочему свойство cc электронной почты не работает должным образом в ASP classic?

Set msg=Server.CreateObject("CDONTS.NewMail") 

strSQL = "select emailaddress from UserList where userid = "&assign&";" 
Set rs = objConnection.Execute(strSQL, ,adCmdText) 

if not(rs.BOF and rs.EOF) then 
    temp = rs("emailaddress") 
    if(temp<>"" and temp<>"NULL") then 
     msg.To = rs("emailaddress") 
    end if 
end if 

strSQL = "select emailaddress from UserList where username = '"&assignedTo&"';" 
Set rs = objConnection.Execute(strSQL, ,adCmdText) 
if not(rs.BOF and rs.EOF) then 
msg.Cc = rs("emailaddress") 
testcc = rs("emailaddress") 
end if 
Response.write(testcc) 

msg.From = "[email protected]" 
msg.Subject = relname & " TaskID: "&maintid&" - New Task Assignment" 
msg.MailFormat = CdoMailFormatMime 
msg.BodyFormat = CdoBodyFormatHTML 
Enotes = "" 
msg.Body = Body & Enotes 
msg.Send()

источник

2015-06-29 Jordan Johnson

Там, по крайней мере, один 'End If' ми ssing из вашего кода (в конце части с отступом). Я не знаю, может ли это быть причиной ваших неприятностей, или если это всего лишь артефакт, который вы пытаетесь изменить код только для соответствующих частей. У меня есть один жгучий вопрос: где вы когда-либо раскопали сервер, который все еще поддерживает CDONTS? – Martha

О, спасибо, я только что исправил это. Это было результатом моего предыдущего редактирования. Сервер немного стар, честно, ха-ха. –

Почему вы не правильно отформатируете свой код, чтобы он был более читабельным? – Paul

первую очередь:. CDONTS осуждался в Windows 2000 и полностью удалены в Windows 2003.

Я предлагаю использовать CDOSYS, которые можно использовать из окна 2000 до Windows 2008.

пример кода:

On Error Resume Next 
     Set myMail = Server.CreateObject("CDO.Message") 
     myMail.BodyPart.charset = "unicode-1-1-utf-8" 
     myMail.Subject = EmailSubject 
     myMail.HTMLBody = EmailBody 
     myMail.From = EmailFrom 
     myMail.To = EmailTO 
     myMail.Cc = EmailCC 
     myMail.BCc = EmailBCC 

     myMail.Send 
     Result = 2 
    If Err.Number <> 0 Then 
     Result = -1 
    End If 

    Set myMail = Nothing

источник

2015-06-30 07:42:18 Zam

Почему свойство cc электронной почты не работает должным образом в ASP classic?

ответ

Смежные вопросы