ASP Mail
Alguien podria ayudarme a hacer un asp mail
poder enviar mails por codigo
please
les agradecere muchiisimo
poder enviar mails por codigo
please
les agradecere muchiisimo
Debes usar el componente ASP.MailSender. Con ese componente mandas mails por código. Es fácil de usar. Te pongo un ejemplo:
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "direccionmaildetuservidor" ' Specify a valid SMTP server
Mail.From = "unadireccioncualquiera" ' Specify sender's address
Mail.FromName = "S.A.T. Diccionario" ' Specify sender's name
Mail.AddAddress "maildestino"
Mail.AddBcc "maildestino"
'termino = Cstr((termino.Fields.Item("termino").Value))
'email = Cstr((termino.Fields.Item("email").Value))
'fecha = (termino.Fields.Item("fecha").Value)
cuerpo = "<html><body bgcolor=""#FFFFFF"" text=""#000000""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">"
'cuerpo = cuerpo & termino
'cuerpo = cuerpo & " introducido en la sección Diccionario el día "
'cuerpo= cuerpo & fecha
'cuerpo = cuerpo & ". <br><br>Devolver la respuesta al email: "
'cuerpo = cuerpo & email
cuerpo = cuerpo & "<br><br>Para mas información consulte su panel de control.<br><br><a href=""http://www.tuweb.es/pc"">www.tuweb.es/pc</a> y entra en la sección Diccionario en Registro de términos.</font> </body></html>"
subject = subject & "Se ha realizado una petición de definición de término"
Mail.Subject = subject
Mail.Body = cuerpo
Mail.IsHTML = True
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "direccionmaildetuservidor" ' Specify a valid SMTP server
Mail.From = "unadireccioncualquiera" ' Specify sender's address
Mail.FromName = "S.A.T. Diccionario" ' Specify sender's name
Mail.AddAddress "maildestino"
Mail.AddBcc "maildestino"
'termino = Cstr((termino.Fields.Item("termino").Value))
'email = Cstr((termino.Fields.Item("email").Value))
'fecha = (termino.Fields.Item("fecha").Value)
cuerpo = "<html><body bgcolor=""#FFFFFF"" text=""#000000""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2"">"
'cuerpo = cuerpo & termino
'cuerpo = cuerpo & " introducido en la sección Diccionario el día "
'cuerpo= cuerpo & fecha
'cuerpo = cuerpo & ". <br><br>Devolver la respuesta al email: "
'cuerpo = cuerpo & email
cuerpo = cuerpo & "<br><br>Para mas información consulte su panel de control.<br><br><a href=""http://www.tuweb.es/pc"">www.tuweb.es/pc</a> y entra en la sección Diccionario en Registro de términos.</font> </body></html>"
subject = subject & "Se ha realizado una petición de definición de término"
Mail.Subject = subject
Mail.Body = cuerpo
Mail.IsHTML = True
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>