Envio de mail

[hpires24 0]

oi estou com problemas no envio de mail o codigo é o seguinte:

%' Envio de mensagem de emailDIM strName, strReason, strComments, Mailersql = sql_reencaminharpara(session("id_assuntoshelpdesk"),session("gravidade") )Call RunSQL(sql, rs)if not rs.eof  then	strEmail= rs("Email")	strAss = rs("descricao_assuntoshelpdesk")	strGrav = rs("descricao_gravpedhelpdesk")End If'response.Write("aki:"+strEmail+"-"+strAss+"-"+strGrav+"-"+"Assunto: " & strAss & vbCrLf & _ '"Gravidade: " & strGrav & vbCrLf & _ '"Descrição: " & Session("descricao_pedidohelpdesk")) 'response.End Const cdoSendUsingPickup = 1 Const cdoSendUsingPort = 2 Const cdoAnonymous = 0 Const cdoBasic = 1 Const cdoNTLM = 2 Set Mailer = CreateObject("CDO.Message")Mailer.Subject ="HELP-DESK"Mailer.From = "acarlos@cm-braganca.pt" 'Quem envia Mailer.To = strEmail  'Quem recebe rs("USERName") & "@MyCompany.com"Mailer.TextBody = "Assunto: " & strAss & vbCrLf & _"Gravidade: " & strGrav & vbCrLf & _"Descrição: " & Session("descricao_pedidohelpdesk") Mailer.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Enter the domain SMTP address for your address"Mailer.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.cm-braganca.pt"Mailer.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 Mailer.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = FalseMailer.Configuration.Fields.Item _("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 Mailer.Configuration.Fields.Update Mailer.Send	Set Mailer = Nothing%>

so q esse codigo qd envio um mail fixo ou seja Mailer.To = "blabal@cm-braganca.pt" o mail é enviado se colocar mailer.to= strEmail da um erro na linha do mailer.send

 

 

alguem me poderia ajudar

[rOcKLoCo 0]

veja se está vindo realmente algum valor pelo Recordset onde você está passando o valor para a variável... pode ser isso!!Att,Carlos

[hpires24 0]

era mesmo isso amigo carlos posso saber se tens msn????

[explore 3]

Veja se esta vindo alguma coisa!

ASP

[*]strEmail = rs("Email")

 

[*]Response.write(strEmail)

 

[*]Response.end