Com esta função você pode configurar o envio de email através dos componentes ASPMAIL, ASPEMAIL, CDONTS ou pelo CDOSYS basta alterar a constante “strComponenteEmail” como desejar.
Será preciso também configurar a constante “strSMTP” que representa o endereço do Servidor de SMTP que será utilizado
" & p_strEmailTO & " e escreva o erro abaixo."
End If
'Destruindo Objetos
Set objAspMail = Nothing
If Err.Number <> 0 Then
EnviaEmail = EnviaEmail & "
Erro:" & Err.Description
End If
Exit Function
End If 'Fim da Utilização do ASPMAIL
' *********************
' Utilizando o ASPEMAIL
' *********************
If strComponenteEmail = "ASPEMAIL" Then
'Variáveis e Objetos
Dim objASPEMail
Set objASPEMail = Server.CreateObject ("Persits.MailSender")
objASPEMail.FromName = p_strNomeFROM
objASPEMail.From = p_strEmailFROM
objASPEMail.Host = ServidorSMTP
objASPEMail.AddAddress p_strEmailTO, p_strNomeTO
If Not p_strEmailCC = "" Then
objASPEMail.AddCc p_strEmailCC, ""
End If
If Not p_strEmailBCC = "" Then
objASPEMail.AddBcc p_strEmailBCC, ""
End If
objASPEMail.Subject = p_strAssuntoEmail
objASPEMail.Body = p_strMensagem
'Verificando o tipo de mensagem (default é TEXTO)
If p_strTipoEmail = "HTML" Then
objASPEMail.IsHTML = True
End If
'Verifica se a mensagem foi enviada com sucesso e retorna a funcao
If objASPEMail.Send Then
EnviaEmail = "OK"
Else
EnviaEmail = "Não foi possível enviar o email, por favor entre em contato com " & p_strEmailTO & " e escreva o erro abaixo."
End If
'Destruindo Objetos
Set objASPEMail = Nothing
If Err.Number <> 0 Then
EnviaEmail = EnviaEmail & "
Erro:" & Err.Description
End If
Exit Function
End If 'Fim da Utilização do ASPEMAIL
' *********************
' Utilizando o CDONTS
' *********************
If strComponenteEmail = "CDONTS" Then
'Variáveis e Objetos
Dim objCDONTS
Set objCDONTS = Server.CreateObject ("CDONTS.NewMail")
objCDONTS.From = p_strEmailFROM
objCDONTS.To = p_strEmailTO
objCDONTS.CC = p_strEmailCC
objCDONTS.BCC = p_strEmailBCC
objCDONTS.Subject = p_strAssuntoEmail
objCDONTS.Body = p_strMensagem
'Verificando o tipo de mensagem (default é TEXTO)
If p_strTipoEmail = "HTML" Then
objCDONTS.BodyFormat = 0
objCDONTS.MailFormat = 0
End If
'Verifica se a mensagem foi enviada com sucesso e retorna a funcao
Call objCDONTS.Send
If Err.Number = 0 Then
EnviaEmail = "OK"
Else
EnviaEmail = "Não foi possível enviar o email, por favor entre em contato com " & p_strEmailTO & " e escreva o erro abaixo."
End If
'Destruindo Objetos
Set objCDONTS = Nothing
If Err.Number <> 0 Then
EnviaEmail = EnviaEmail & "
Erro:" & Err.Description
End If
Exit Function
End If 'Fim da Utilização do CDONTS
' *********************
' Utilizando o CDOSYS
' *********************
If strComponenteEmail = "CDOSYS" Then
Dim objCDOSYS
Dim objCDOSYSConf
Set objCDOSYS = Server.CreateObject("CDO.Message")
Set objCDOSYSConf = Server.CreateObject ("CDO.Configuration")
'Configurando o envio de e-mail
objCDOSYSConf.Fields("https://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP
objCDOSYSConf.Fields("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSConf.Fields("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSConf.Fields("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSConf.Fields.update
Set objCDOSYS.Configuration = objCDOSYSConf
objCDOSYS.From = p_strEmailFROM
objCDOSYS.To = p_strEmailTO
objCDOSYS.CC = p_strEmailCC
objCDOSYS.BCC = p_strEmailBCC
objCDOSYS.Subject = p_strAssuntoEmail
'Verificando o tipo de mensagem (default é TEXTO)
If p_strTipoEmail = "HTML" Then
objCDOSYS.HTMLBody = p_strMensagem
Else
objCDOSYS.TextBody = p_strMensagem
End If
'Verifica se a mensagem foi enviada com sucesso e retorna a funcao
Call objCDOSYS.Send
If Err.Number = 0 Then
EnviaEmail = "OK"
Else
EnviaEmail = "Não foi possível enviar o email, por favor entre em contato com " & p_strEmailTO & " e escreva o erro abaixo."
End If
'Destruindo Objetos
Set objCDOSYSConf = Nothing
Set objCDOSYS = Nothing
If Err.Number <> 0 Then
EnviaEmail = EnviaEmail & "
Erro:" & Err.Description
End If
Exit Function
End If 'Fim da Utilização do CDOSYS
End Function
%>
Alo VOCÊ isso é um teste de envio de email com HTML.")
Response.Write strComponenteEmail & "
" & strResultado
%>
