Colocar CC na função de email

[tuhajo 0]

Boa Tarde,

 

Tenho a seguinte função em asp para envio de email:

 

Function EnviaEmail(De, Para, Assunto, Msg)
	Dim Mail, i
	
	Set Mail = Server.CreateObject("Persits.MailSender")
	Mail.Charset = "us-ascii"
	Mail.Host = "xxxx" ' SMTP
	Mail.From = De

	Mail.AddAddress Para	
	
	Mail.AddReplyTo De	
	Mail.Subject = Assunto
	Mail.Body = Msg	
	
	On Error Resume Next
	Mail.Send
	If Err <> 0 Then
	   Response.Write "Error encountered: " & Err.Description
	   response.end
	End If
	EnviaEmail = Err
End Function

 

Quero colocar CC nela mas já tentei de várias formas, inclusive com Mail.Addcc e sempre dá erro. Como posso usar CC para enviar email?

 

Grata.

[xanburzum 169]

Sub AddCC(Address As String, Optional Name = "")

Adiciona um endereço de email e opcionalmente o nome completo correspondente ao CC da mensagem: (cópia carbono) da lista. Este método pode ser chamado várias vezes por mensagem

 

link

[tuhajo 0]

Sub AddCC(Address As String, Optional Name = "")

Adiciona um endereço de email e opcionalmente o nome completo correspondente ao CC da mensagem: (cópia carbono) da lista. Este método pode ser chamado várias vezes por mensagem

 

link

 

Não funcionou.

Eu estou chamando a função da seguinte maneira:

 

strDe = "xxx@xxx.com.br"

strPara = "xxx@xxx.com.br"

strAssunto = "xxx"

 

EnviaEmail strDe, strPara, strAssunto, xHtml

Queria colocar o CC.

[Dee 0]

Mail.Cc = "email@email.com.br"

Mail.BCc = "email@email.com.br"

[tuhajo 0]

Mail.Cc = "email@email.com.br"

Mail.BCc = "email@email.com.br"

 

 

Ele dá o seguinte erro: "Object doesn't support this property or method: 'Mail.Cc' "

[xanburzum 169]

tenta assim:

 

AddCC(destinatarios@xxx.com)