mandar correos en asp

[GauTxori]

Iepa Silvy, yo tengo la siguiente funcion para mandar emails.

Código:

sub e_mail (remitente,destinatario,tema,contenido)
	
Dim Mail 
	set Mail = CreateObject("CDONTS.NewMail")
	Mail.From = remitente
	Mail.Subject=tema
	Mail.Body=contenido
	Mail.BodyFormat = 0
	Mail.MailFormat = 0
	if destinatario&""<>"" then
		Mail.cc=destinatario
		Mail.Send
	end if
	set Mail=nothing
end sub