[Resolvido] Como Enviar mail Asp Mail

[webmind 5]

Instalei um componente chamado ASPmail, saquei um exemplo e corre ate a validacao depois da sempre erros que tem a ver com a configuracao do smtp, do host, gostava que me explicassem como fazer isso, se nao se importarem passo-a-passo

 

eu instalei o aspmail eu meu computador para testar, mas nao deu.

 

O site onde tenho hospedado meus trabalhos e

 

www.nofeehost.com

 

e quero mandar e-mail atraves do gmail

 

luis.mindweb.luis01@gmail.com (meu mail e esse)

 

 

O objectivo e eu conseguir cirar esse sistema para enviar por mail os dados referentes a conta dos usuarios, que se cadastrem em um site que estou criando

 

 

Agradeço vossa ajuda

[xanburzum 169]

Como você setou o Mailer.RemoteHost = " seu_site.com", abaixo um exemplo, e qualquer coisa entra no site do ASPMail.

 

'SERVIDOR DE EMAIL

mailserver = "mail.nofeehost.com.br"

 

para mais detalhe consulte:

Documentação

 

 

 

<table>
<form name="FormName" method="Post" action="confirmation.asp">
<tr><td>Email: </td>
<td><input type="text" name="Email" size="50"></td></tr>
<tr><td>First Name: </td>
<td><input type="text" name="FirstName" size="50"></td></tr>
<tr><td>Last Name: </td>
<td><input type="text" name="LastName" size="50"></td></tr>
<tr><td>Assunto: </td>
<td><input type="text" name="Subject" size="50"></td></tr>
<tr><td>Comentário: </td>
<td><textarea name="Comments"></textarea></td> 
</table>
<input type="submit" name="Submit" value="Submit Form"> 
</form>
confirmation.asp:
<%
DIM strEmail, strFirstName, strLastName, strSubject, strComments, Mailer
strEmail = request.form("Email")
strFirstName = request.form("FirstName")
strLastName = request.form("LastName") 
strSubject = request.form("Subject")
strComments = request.form("Comments")
DIM Mailer, strMsgHeader, qryItem, strMsgInfo
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Admin"
Mailer.FromAddress= "root@seu_site.com"
Mailer.ReplyTo = strEmail
Mailer.RemoteHost = " nofeehost.com"
Mailer.AddRecipient " seu_site ", "general@ seu_site.com"
Mailer.Subject = " Form Online "
strMsgHeader = " Esta mensagem foi enviada por email DE XXX" & vbCrLf & vbCrLf
Mailer.BodyText = strMsgHeader & vbCrLf & "Email: " & Request.Form("Email") & _
vbCrLf & "First Name: " & Request.Form("FirstName") & _
vbCrLf & "Last Name: " & Request.Form("LastName") & _
vbCrLf & "Assunto: " & Request.Form("Subject") & _
vbCrLf & " Comentário: " & Request.Form("Comments")
IF Mailer.SendMail THEN
Response.Write strFirstName & ",<br>"
Response.Write " Sua mensagem foi enviada com sucesso."
ELSE
Response.Write " Ocorreu o seguinte erro ao enviar a sua mensagem
: " & Mailer.Response
END IF
%>

[webmind 5]

obrigado!