UTILIZANDO O COMPONENTE CDOSYS
O CDOSYS é o novo componente da Microsoft para envio de e-mail. É uma atualização do CDONTS e de melhor performance.
Você cliente Iron poderá utilizar o código abaixo para sites hospedados em nossos servidores Windows.
<% dim myCDO, sFrom, sTo, sSubject, sBody sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") Set myCDO = Server.CreateObject("CDO.Message") With cdoConfig.Fields .Item(sch & "sendusing") = 2 .Item(sch & "smtpserver") = "127.0.0.1" .update End With sFrom = "remetente" sTo = "e-mail de destino" sSubject = "Envio do formulário de contato" sBody = request("mensagem") Set myCDO.Configuration = cdoConfig with myCDO .From = sFrom .To = sTo .Subject = sSubject .HTMLBody = sBody .Send end with Set myCDO = Nothing Set cdoConfig = Nothing %>
Clique aqui para voltar