Tavola: Criou página com 'Category:Linguagens de ProgramaçãoCategory:ASPCategory:Componentes ASP {|style="background: #A0BCDE; vertical-align:top; border-top: 1px solid #000000; border-ri...'

2021-06-28T15:52:35Z

Criou página com 'Category:Linguagens de Programação Category:ASP Category:Componentes ASP {|style="background: #A0BCDE; vertical-align:top; border-top: 1px solid #000000; border-ri...'

Página nova

[[Category:Linguagens de Programação]][[Category:ASP]][[Category:Componentes ASP]]
{|style="background: #A0BCDE; vertical-align:top; border-top: 1px solid #000000; border-right: 1px solid #000000; border-left: 1px solid #000000; border-bottom: 1px solid #000000; padding: 5px;width:100%;"
!style="width:77px;text-align:left;"|[[Imagem:atencao.png]]
|Este componente teve o suporte descontinuado, recomendamos o uso do JMAIL
[[Enviando e-mails com o JMAIL]].
|}

'''Segue abaixo exemplo para envio de e-mails via ASP com o CDOSYS:'''

<%

'Cria o objeto para o envio de e-mail
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'Cria o objeto para configuração do SMTP
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP Coloque aqui o IP do servidor aonde consta o seu domínio
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.seudominio.com.br"

'Porta do SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25

'Porta do CDO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Timeout
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

'Atualiza a configuração do CDOSYS para o envio do e-mail
Set objCDOSYSMail.Configuration = objCDOSYSCon

'E-mail do remetente.
objCDOSYSMail.From = request.form("email")

'E-mail do destinatário. Coloque aqui o seu e-mail
objCDOSYSMail.To = "seuemail@seudominio.com.br"

'Assunto da mensagem
objCDOSYSMail.Subject = "Assunto"

'Mensagem em HTML
'objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS"

'Envia o e-mail
objCDOSYSMail.Send

'Limpa objetos
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

response.write "E-mail Enviado"

%>

Enviando e-mails com o CDOSYS - Histórico de revisão

Tavola: Criou página com 'Category:Linguagens de ProgramaçãoCategory:ASPCategory:Componentes ASP {|style="background: #A0BCDE; vertical-align:top; border-top: 1px solid #000000; border-ri...'