\r\n \t\t\t\t\t
J\u00e1 para ASP, o c\u00f3digo a ser usado \u00e9 o descrito abaixo:<\/p>\n
<!DOCTYPE HTML>\r\n<html>\r\n\r\n<head>\r\n <meta http-equiv=\"Content-Type\" content=\"text\/html;charset=ISO-8859-1\">\r\n<title>Formul\u00e1rio<\/title>\r\n<link href=\"styles\/style_formulario.css\" rel=\"stylesheet\" type=\"text\/css\" \/>\r\n<script type=\"text\/javascript\">\r\n <!--\r\n function Incluir(varForm){\r\n if (varForm.Campo1.value == \"\"){\r\n window.alert ('O campo \"Nome\" \u00e9 de preenchimento obrigat\u00f3rio');\r\n varForm.Campo1.focus();\r\n return false;\r\n }\r\n\r\n if (varForm.Campo3.value == \"\"){\r\n window.alert ('O campo \"E-mail\" \u00e9 de preenchimento obrigat\u00f3rio');\r\n varForm.Campo3.focus();\r\n return false;\r\n }\r\n else{\r\n if (varForm.Campo3.value.search(\"@\") == -1 || varForm.Campo3.value.search(\"[.*]\") == -1){\r\n window.alert (\"O e-mail n\u00e3o \u00e9 v\u00e1lido\");\r\n varForm.Campo3.focus();\r\n return false;\r\n }\r\n }\r\n\r\n varForm.submit();\r\n }\r\n\r\n -->\r\n<\/script>\r\n<\/head>\r\n\r\n<body>\r\n\r\n<%\r\nResponse.Charset = \"ISO-8859-1\"\r\n\r\n\r\nAssunto = \"Fale Conosco - Envio com Autentica\u00e7\u00e3o!\"\r\n\r\nIf Not IsEmpty(Request.Form) Then\r\n Mensagem = \"<B>Nome:<\/B><BR><BR>\" & Trim(Request.Form(\"Campo1\")) & \"<HR size=1 color=gainsboro>\"\r\n Mensagem = Mensagem & \"<B>Email:<\/B><BR><BR>\" & Trim(Request.Form(\"Campo3\")) & \"<HR size=1 color=gainsboro>\"\r\n Mensagem = Mensagem & \"<B>Telefone:<\/B><BR><BR>\" & Trim(Request.Form(\"Campo4\")) & \"<HR size=1 color=gainsboro>\"\r\n Mensagem = Mensagem & \"<B>Assunto:<\/B><BR><BR>\" & Trim(Request.Form(\"Campo8\")) & \"<HR size=1 color=gainsboro>\"\r\n Mensagem = Mensagem & \"<br><br><br><b>IP: <\/b>\" &request(\"REMOTE_ADDR\")\r\n\r\nSet objMail = Server.CreateObject(\"CDO.Message\")\r\nSet objCDOSYSCon = Server.CreateObject (\"CDO.Configuration\")\r\nobjCDOSYSCon.Fields.Item (\"http:\/\/schemas.microsoft.com\/cdo\/configuration\/sendusing\") = 2 'Send the message using the network (SMTP over the network).'\r\nobjCDOSYSCon.Fields.Item (\"http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpserver\") =\"smtp.dominio.com\"\r\nobjCDOSYSCon.Fields.Item (\"http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpserverport\") = 587\r\nobjCDOSYSCon.Fields.Item (\"http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpusessl\") = False 'Use SSL for the connection (True or False)'\r\nobjCDOSYSCon.Fields.Item (\"http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpconnectiontimeout\") = 60\r\nobjCDOSYSCon.Fields.Item (\"http:\/\/schemas.microsoft.com\/cdo\/configuration\/smtpauthenticate\") = 1 'basic (clear-text) authentication'\r\nobjCDOSYSCon.Fields.Item (\"http:\/\/schemas.microsoft.com\/cdo\/configuration\/sendusername\") =\"email@dominio.com\"\r\nobjCDOSYSCon.Fields.Item (\"http:\/\/schemas.microsoft.com\/cdo\/configuration\/sendpassword\") =\"senha\"\r\nobjCDOSYSCon.Fields.update\r\nSet objMail.Configuration = objCDOSYSCon\r\n\r\n 'Para definir o charset da mensagem'\r\nobjMail.BodyPart.Charset = \"ISO-8859-1\"\r\nobjMail.From = \"email@dominio.com\"\r\nobjMail.To = Trim(Request.Form(\"Campo3\"))\r\nobjMail.ReplyTo = \"email@dominio.com\"\r\nobjMail.Subject = Assunto\r\nobjMail.HTMLBody = Mensagem\r\nobjMail.HTMLBodyPart.Charset = \"ISO-8859-1\"\r\nobjMail.Send\r\n\r\nSet objMail = Nothing\r\nSet objCDOSYSCon = Nothing\r\n\r\n%>\r\n<p class=\"center\"><b>Dados enviados<\/b><br \/>\r\nObrigado, seus dados foram enviados com sucesso. <\/p>\r\n<%\r\nElse\r\n%>\r\n<p class=\"center\"><b>Enviar Dados<\/b><br \/>\r\nInforme os dados abaixo:<\/p>\r\n<form action='<%=Request.ServerVariables(\"SCRIPT_NAME\")%>' method=\"post\" name=\"formIncluir\" accept-charset=\"ISO-8859-1\">\r\n <table width=\"250px\" height=\"250px\">\r\n <tr><td>\r\n <fieldset>\r\n <legend>Fale Conosco!<\/legend>\r\n <label>Nome: <input class=\"input_form\" name=\"Campo1\" type=\"text\" \/><\/label><br\/>\r\n <label>Email: <input class=\"input_form\" name=\"Campo3\" type=\"text\" \/><\/label><br\/>\r\n <label>Telefone: <input class=\"input_form\" name=\"Campo4\" type=\"text\" \/><\/label><br\/>\r\n <label>Assunto: <textarea class=\"input_formtextarea\" name=\"Campo8\"><\/textarea><\/label>\r\n <label>\r\n <input id=\"botao_enviar\" name=\"enviar\" onclick=\"JavaScript:Incluir(formIncluir);\" type=\"button\" value=\"Enviar\" \/><\/label>\r\n <\/fieldset>\r\n <\/td><\/tr>\r\n <\/table>\r\n<\/form>\r\n<%\r\nEnd If\r\n%>\r\n\r\n<\/body>\r\n\r\n<\/html><\/pre>\n:<\/p>\n \t\t\t\t<\/div>\r\n \t\t\t<\/div>\r\n \t\t<\/div>\r\n \t\t\n \t\t
\r\n \t\t\t
ASP Email<\/div>\r\n \t\t\t
\r\n \t\t\t\t
\r\n \t\t\t\t\t
E para ASP Email, siga com os passos abaixo:<\/p>\n
O componente Persits.MailSender ( AspEmail ) \u00e9 um componente utilizado para o envio de mensagens de e-mail utilizando a linguagem de programa\u00e7\u00e3o ASP.<\/p>\n
Se voc\u00ea precisa criar um formul\u00e1rio que envie de forma autenticada no servidor SMTP, implemente na sua aplica\u00e7\u00e3o dos c\u00f3digos abaixo.<\/p>\n
Copie o c\u00f3digo abaixo e salve com o nome de\u00a0formulario.asp<\/strong>\u00a0este \u00e9 o arquivo do seu formul\u00e1rio.<\/p>\nC\u00f3digo:<\/strong><\/p>\n\n\n\n\n<html>\u00a0\r\n\r\n<head>\u00a0\r\n\r\n<title>Formul\u00e1rio - Persits MailSender<\/title> \r\n\r\n<\/head>\u00a0\r\n\r\n<body>\u00a0\r\n<p align=\"center\"><font face=\"Arial\">Exemplo de formul\u00e1rio\r\nPersits MailSender<br> \r\n<\/font> \r\n<\/p> \r\n<form method=\"POST\" action=\"enviar.asp\" name=\"form\" target=\"_self\"> \r\n<div align=\"center\"> \r\n<table border=\"0\" width=\"43%\"> \r\n<tr> \r\n<td width=\"23%\"><font face=\"Arial\">Nome:<\/font><\/td> \r\n<td width=\"74%\"><font face=\"Arial\"><input type=\"text\" name=\"fromnome\" \r\nsize=\"20\"><\/font><\/td> \r\n<\/tr> \r\n<tr> \r\n<td width=\"23%\"><font face=\"Arial\">E-Mail:<\/font><\/td> \r\n<td width=\"74%\"><font face=\"Arial\"><input type=\"text\" name=\"fromemail\" \r\nsize=\"20\"><\/font><\/td> \r\n<\/tr> \r\n<tr> \r\n<td width=\"23%\"><font face=\"Arial\">Assunto:<\/font><\/td> \r\n<td width=\"74%\"><font face=\"Arial\"><input type=\"text\" name=\"assunto\" \r\nsize=\"20\"><\/font><\/td> \r\n<\/tr> \r\n<tr> \r\n<td width=\"23%\" valign=\"top\"><font face=\"Arial\">Mensagem:<\/font><\/td> \r\n<td width=\"74%\"><font face=\"Arial\"><textarea rows=\"5\" name=\"mensagem\" \r\ncols=\"30\"><\/textarea><\/font><\/td> \r\n<\/tr> \r\n<tr> \r\n<td width=\"23%\"><\/td> \r\n<td width=\"74%\"><font face=\"Arial\"><input type=\"submit\" value=\"enviar\" \r\nname=\"botao\"><\/font><\/td> \r\n<\/tr> \r\n<\/table> \r\n<p><font face=\"Arial\" size=\"1\">\r\n<a target=\"_self\" href=\"http:\/\/www.seudominio.com\"> \r\n<span style=\"text-decoration: none\">\r\n<font color=\"#000000\">www.seudominio.com<\/font>\r\n<\/span><\/a><\/font> \r\n<\/div> \r\n<\/form> \r\n<\/body> \r\n<\/html><\/pre>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n \n- Copie o c\u00f3digo abaixo e salve com o nome de enviar.asp<\/strong>;<\/li>\n
- O arquivo que vai pegar todas as informa\u00e7\u00f5es do seu formul\u00e1rio e enviar para o e-mail descrito na linha Mail.AddAddress.<\/li>\n<\/ul>\n
C\u00f3digo:<\/strong><\/p>\n<%\u00a0\r\nDIM Mail\u00a0\r\nSet Mail = Server.CreateObject(\"Persits.MailSender\")\u00a0\r\nMail.IsHTML = True\u00a0\r\nMail.Host = \"smtp.seudominio.com.br\" \r\nMail.Username = \"seuemail@seudominio.com.br\" \r\nMail.Password = \"senhadoseuemail\"\u00a0\r\nMail.AddReplyTo Request<\/span>.Form(\"fromemail\"<\/span>) , Request<\/span>.Form(\"fromnome\"<\/span>)\r\nMail.From = Request.Form(\"fromemail\")\u00a0\r\nMail.FromName = Request.Form(\"fromnome\")\u00a0\r\nMail.AddAddress \"seuemail@seudominio.com.br\"\u00a0\r\nMail.Subject = Request.Form(\"assunto\")\u00a0\r\nMail.Body = Request.Form(\"mensagem\")\u00a0\r\n\r\nOn Error Resume Next\u00a0\r\nMail.Send\u00a0\r\nIf Err <> 0 Then\u00a0\r\n \u00a0Response.Write \"<h3>Ocorreu um erro: \" & Err.Description & \"<\/h3>\" \r\nEnd If\u00a0\r\n\r\nIf Err = 0 Then\u00a0\r\n \u00a0Response.Write(\"<h3>Obrigado Sr(a) \" & Request.Form(\"fromnome\") & \", seu e-mail foi enviado com sucesso!<\/h3>\") \r\nEnd If\u00a0\r\n\r\nSet Mail = Nothing\u00a0\r\n\r\n%><\/pre>\n\n \t\t\t\t<\/div>\r\n \t\t\t<\/div>\r\n \t\t<\/div>\r\n \t\t\n \t\t \r\n \t\t\t Conhe\u00e7a!<\/strong><\/span> \t\t\t \t\t\t\t\r\n \t\t\t\t\tAproveite e conhe\u00e7a outros produtos da Locaweb, como o Hospedagem de Sites, clique aqui<\/a>\u00a0e saiba mais! \t\t\t\t<\/p>\r\n \t\t\t \t\t\t\r\n \t\t<\/div>\r\n \t\t\n","protected":false},"excerpt":{"rendered":"Se voc\u00ea precisa criar um formul\u00e1rio que envie de forma autenticada no servidor SMTP, implemente na sua aplica\u00e7\u00e3o os c\u00f3digos abaixo.<\/p>\n","protected":false},"author":6,"comment_status":"closed","ping_status":"closed","template":"","format":"standard","meta":{"footnotes":""},"ht-kb-category":[111,112,424],"ht-kb-tag":[495,367,377],"class_list":["post-4271","ht_kb","type-ht_kb","status-publish","format-standard","hentry","ht_kb_category-revenda-cpanel","ht_kb_category-revenda-plesk","ht_kb_category-vps-cpanel","ht_kb_tag-categoriacloud-e-dedicados","ht_kb_tag-categoriarevenda-cpanel","ht_kb_tag-categoriavps-locaweb"],"_links":{"self":[{"href":"https:\/\/www.locaweb.com.br\/ajuda\/wp-json\/wp\/v2\/ht-kb\/4271","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.locaweb.com.br\/ajuda\/wp-json\/wp\/v2\/ht-kb"}],"about":[{"href":"https:\/\/www.locaweb.com.br\/ajuda\/wp-json\/wp\/v2\/types\/ht_kb"}],"author":[{"embeddable":true,"href":"https:\/\/www.locaweb.com.br\/ajuda\/wp-json\/wp\/v2\/users\/6"}],"replies":[{"embeddable":true,"href":"https:\/\/www.locaweb.com.br\/ajuda\/wp-json\/wp\/v2\/comments?post=4271"}],"version-history":[{"count":35,"href":"https:\/\/www.locaweb.com.br\/ajuda\/wp-json\/wp\/v2\/ht-kb\/4271\/revisions"}],"predecessor-version":[{"id":31195,"href":"https:\/\/www.locaweb.com.br\/ajuda\/wp-json\/wp\/v2\/ht-kb\/4271\/revisions\/31195"}],"wp:attachment":[{"href":"https:\/\/www.locaweb.com.br\/ajuda\/wp-json\/wp\/v2\/media?parent=4271"}],"wp:term":[{"taxonomy":"ht_kb_category","embeddable":true,"href":"https:\/\/www.locaweb.com.br\/ajuda\/wp-json\/wp\/v2\/ht-kb-category?post=4271"},{"taxonomy":"ht_kb_tag","embeddable":true,"href":"https:\/\/www.locaweb.com.br\/ajuda\/wp-json\/wp\/v2\/ht-kb-tag?post=4271"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}} |