Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa Tarde a todos !!!Será que alguém pode me explicar uma parte do código que não entendi ?A parte que não entendi foi esta:'Cria o objeto set mailer = server.createobject("SMTPsvg.Mailer") // Nesta parte ele cria o objeto mas tem que instalar alguma coisa ??? Mailer.FromName = sNameFrom Mailer.FromAddress = sEmailFrom'Host para envio de emails Mailer.RemoteHost = "smtp2.locaweb.com.br" // Aqui teria que ser o endereço SMTP do provedor é isso ??? Mailer.AddRecipient sEmailTo, sNameTo Mailer.Subject = sAssunto & " - E-mail"O código completo esta aí !!!Se alguém puder ajudar agradeço muito...Obrigado Jeferson *************<%'Declarando variveisDim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto'Pegando os dados digitados nos campos e colocando em variaveissNameFrom = Request.Form("nome")sEmailFrom = Request.Form("email")sEmailTo = "seuemailaqui@teste.com.br"sNameTo = "Teste"sText = Request.Form("mensagem")sAssunto = Request.Form("assunto")'Cria o objeto set mailer = server.createobject("SMTPsvg.Mailer") Mailer.FromName = sNameFrom Mailer.FromAddress = sEmailFrom'Host para envio de emails Mailer.RemoteHost = "smtp2.locaweb.com.br" Mailer.AddRecipient sEmailTo, sNameTo Mailer.Subject = sAssunto & " - E-mail"'Monta a texto para o envio strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf strMsgFooter = sText Mailer.BodyText = strMsgHeader & strMsgFooter' Se for enviado redirecionar para obrigado.asp if Mailer.SendMail then Response.Redirect "obrigado.asp" else' Se não for enviado mostra o erro que ocoreu Response.Write ("Ocorreu um erro.<BR>") Response.Write ("O Erro é " & Mailer.Response) end if%>
Carregando comentários...