Prob com CC no contato

[MacX 0]

Pessoal, tenho um contato como o abaixo, funciona perfeito, mas como faço para ele enviar uma cópia carbono CC para outro email ?<%FirstName = Request.form("FirstName")Endereco = Request.form("Endereco")ToComments = Request.form("ToComments")Email = Request.form("Email")strName = "loja"strEmail = "loja@terra.com.br"strSubject = "contato via form site Loja"strBody = " Nome: " & FirstName & " E-mail: " & Email & " Endereço: " & Endereco & " Mensagem: " & ToComments Set Mailer = Server.CreateObject("SMTPsvg.Mailer")Mailer.RemoteHost = "mail.terraempresas.com.br"Mailer.FromName = FirstNameMailer.FromAddress = EmailMailer.AddRecipient strName, strEmailMailer.Subject = (strSubject)Mailer.BodyText = strBody%>

[wozniak 0]

assim:

 

<%

FirstName = Request.form("FirstName")

Endereco = Request.form("Endereco")

ToComments = Request.form("ToComments")

Email = Request.form("Email")

strName = "loja"

strEmail = "loja@terra.com.br"

 

 

strSubject = "contato via form site Loja"

strBody = " Nome: " & FirstName & " E-mail: " & Email & " Endereço: " & Endereco & " Mensagem: " & ToComments

 

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.RemoteHost = "mail.terraempresas.com.br"

Mailer.FromName = FirstName

Mailer.FromAddress = Email

Mailer.AddRecipient strName, strEmail

Mailer.Cc = "email@server.com"

Mailer.Subject = (strSubject)

Mailer.BodyText = strBody

 

 

%>

 

abraços

 

t+

[MacX 0]

Valeuwwwww !!!