strURL = “http://www.montagemdoemail.com.br?” ‘pagina com a montagem do e-mail
    Set objHttp = Server.CreateObject(“Dynu.HTTP”)
    objHttp.SetUrl strURL
   
    objHttp.SetFormData “Nome” , Server.URLEncode(Request.Form(“Nome”))
    objHttp.SetFormData “Email” , Server.URLEncode(Request.Form(“Email”))
    objHttp.SetFormData “Mensagem” , Server.URLEncode(Request.Form(“Mensagem”))
    strResultado= objHttp.PostURL()

    Set objMailer = Server.CreateObject(“SoftArtisans.SMTPMail”) ‘objeto usado para enviar e-mail
    objMailer.FromName = “Heitor” ‘nome de quem enviou
    objMailer.FromAddress = “heitor@heitor.com.br” ‘de quem
    objMailer.RemoteHost = “localhost” ‘hots
    objMailer.AddRecipient “Heitor”, “heitor@heitor.com.br”     ‘para quem
    objMailer.ContentType = “text/html” ‘tipo do conteudo do e-mail
    objMailer.Subject =  “Enviando E-Mail ASP” ‘assundo to email
    objMailer.BodyText = strResultado ‘variavel com o HTML retornado da pagina com a montagem
    objMailer.CharSet = 2 ‘Charset para aceitar carateres como ç e acentos…
       
    If objMailer.SendMail Then  
        Response.Write “<BR /><center><h1>E-mail enviado com sucesso!</h1></center>”
    Else
        Response.Write “<BR /><center><h1>Não foi possivel enviar seu e-mail!</h1></center>”
    End If
    Set objMailer = Nothing