<% function sendMail(tipo_envio) Select Case tipo_envio Case 1 Set mMail = Server.CreateObject("Cdonts.Newmail") mMail.Subject = assunto mMail.From = ""&nome_remetente&" <"&remetente&">" mMail.To = destinatario mMail.CC = copia mMail.BCC = copia_oculta mMail.Importance = 1 'Baixa = 0, Normal (default) = 1 , Alta = 2 mMail.BodyFormat = 0 'US Ascii (Default) = 1, ISO-8859-1 = 0 mMail.MailFormat = 0 'UUEncoded (Default) = 1, MIME = 0 mMail.Body = email_corpo Case 2 Set mMail = Server.CreateObject("Persits.MailSender") mMail.Host = smtp mMail.From = remetente mMail.FromName = nome_remetente mMail.AddAddress destinatario mMail.AddCC copia mMail.AddBCC copia_oculta mMail.AddReplyTo email_resposta mMail.Subject = assunto mMail.Body = email_corpo mMail.Priority = 3 mMail.IsHTML = True Case 3 Set mMail = Server.CreateObject("CDO.Message") Set mCDOCon = Server.CreateObject ("CDO.Configuration") mCDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp mCDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 mCDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 mCDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 mCDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = remetente mCDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = senha_remetente mCDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 mCDOCon.Fields.update Set mMail.Configuration = mCDOCon mMail.From = ""&nome_remetente&" <"&remetente&">" mMail.To = destinatario mMail.CC = copia mMail.BCC = copia_oculta 'mMail.Headers.Add "Reply-To", email_resposta mMail.Subject = assunto mMail.HtmlBody = email_corpo End Select On Error Resume Next mMail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description End If Set mMail = Nothing end function %>