Un envio a un email

[lily_cv]

hola a todos necesito que me auyden en esto pleaseee

necesito saber como mando un mail en asp, en que el usuario ingrese su nombre direccion, correo y un coment.

y que le llege el mail a la persona que uno destine

de la forma mas sencilla posbible

[u_goldman]

Muchisima info al respecto, te sugiero utilizar el buscador, aqui hay un ejemplo del caballero del zodiaco:

http://www.forosdelweb.com/f15/tipic...0/#post1975818

[lily_cv]

ok muchiimas gracias empezare por esto para seguir con lo de AspMail CDONTS y todo eso :D

[u_goldman]

Claro, solamente una cosa: No utilices CDONTS, fué descontinuado a partir de Win2000, utiliza CDO en sus lugar, hay también muchos ejemplos en el foro.

Saludos

[jocaorsa]

hola yo tengo una paginita que manda el mail y y una copia al usuario que lo envia es en asp si te interesa te lo paso y le echas un vistaso o mandame un mensaje privado

[Oscar Correa]

Puedes usar el CDO como función y utilizarlo cuantas veces lo quieras .

function sendemail(toemail,subject,mensaje,smtpserver,conta ctemail,passemail)


NewLine = chr(13) & chr(10)




//Primero definimos algunas variables
Dim MyBody,sFrom, x , NewLine , urlmicrosoft
strErr = ""
NewLine = chr(13) & chr(10)
MyBody = ""

//en las siguientes tres lineas reemplace lo que esta en maysculas y color marrn por su informacion particular
//adicionalmente no olvide cambiar el URL en la penultima linea de este script.

smtpserver = smtpserver
youremail = contactemail
yourpassword = passemail

//Ahora colocamos la informacion adicional
Dim iMsg
Set iMsg = CreateObject("CDO.Message")

//Configuracion del servidor SMTP.

urlmicrosoft = "http://schemas.microsoft.com/cdo/configuration/"
iMsg.Configuration.Fields.Item (urlmicrosoft & "sendusing") = 2
iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpserver") = smtpserver
iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpserverport") = 25
iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpusessl") = False
iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpconnectiontimeout") = 60

//basic (clear-text) authentication
iMsg.Configuration.Fields.Item (urlmicrosoft & "smtpauthenticate") = 1
iMsg.Configuration.Fields.Item (urlmicrosoft & "sendusername") = youremail
iMsg.Configuration.Fields.Item (urlmicrosoft & "sendpassword") = yourpassword

iMsg.Configuration.Fields.Update
//End remote SMTP server configuration section==

iMsg.To = toemail
iMsg.Subject = subject
iMsg.From = youremail
iMsg.Sender = youremail
//iMsg.Bcc = "[email protected]" - copia de carbon
//iMsg.Cc = "[email protected]" - copia
//iMsg.TextBody = MyBody
iMsg.HTMLBody = mensaje
On Error Resume Next ' catch errors'
iMsg.Send
if Err <> 0 Then ' error occurred'
sendemail = Err.Description
else
sendemail = "ok"
End if


Set iMsg = Nothing
End function



y para enviarlo

mensaje = "test"
toemail = "[email protected]"
toemail = correodelcliente
subject = "hola"
smtpserver = tusmtp
contactemail = tucorreo
passemail = tucontraseña
repuesta = sendemail(toemail,subject,mensaje,smtpserver,conta ctemail,passemail)

respuesta te muesta ok si funciona o el error


Puedes recibir las varibles por request y armar el mensaje que te va a llegar

[lily_cv]

Oigan muchisimas gracias por ayudarme en esto la verdad es que me ayudan mucho bueno ahora mi pregunta es si puedo subir la pagina en un ftp o en mi servidor en realidad ya lo subi pero me sale el sgte error:

************************************************** ****
No se puede mostrar la página
No se puede mostrar la página porque la dirección no es correcta.

--------------------------------------------------------------------------------

Pruebe lo siguiente:

Si escribió la dirección de la página en la barra de direcciones, compruebe que esté escrita correctamente.

Abra la página principal de www.midominio.com y busque vínculos a la información que desea.
Haga clic en Búsqueda para buscar información en Internet.



HTTP 405 - Recurso no permitido
Internet Explorer

************************************************** ********

Para esto estoy usando el ASPEmail diganme como es que si puedo correrlo en mi localhost y no en mi hosting, hay una cosa que supongo es irrelevante y es que instale el ASPEmail en mi compu y asi funciona con mi localhost ahora como hago para subirlo :( Pleaseee

Este es mi codigo:

strHost = "mbox.midominio.com"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject ("Persits.MailSender")
Mail.Host = strHost
Mail.From = Request("From")
Mail.FromName = Request("FromName")
Mail.AddAddress Request("To")
Mail.Subject = Request("Subject")
Mail.Body = Request("Body")
strErr = ""
bSuccess = False
On Error Resume Next
Mail.Send
If Err <> 0 Then
strErr = Err.Description
else
bSuccess = True
End If
End If
%>

y todos los valores los recojo de un formulario
La cosa es que todo me sale a la perfeccion, el envio, el recogimiento de datos todo "pero" en mi localhost mas no en mi hosting.

Ayudenme Please

[lily_cv]

O tendria que solucinar ste problema con mi proveedor de mi hosting

[JuanRAPerez]

ASPEmail, es un componente de pago, si tu proveedor de hostin no te lo proporciona, no podrias usarlo, ni cargarlo.

lo correcto es que te comuniques con tu proveedor de hosting, y le preguntes que compoenentes usan para el envio de correo, si usan sguridad para el envio de correo.

y luego usas la funcion que creo que te pasaron o encotnrastes en el foro, luego la tropicalizar para tu proveedor de hostin y luego veremos si te da error para ayudarte

suert

[lily_cv]

:D Si defeinitivamente fue eso JuanRaPerez, GRaciasssss a todos :D

[JuanRAPerez]

oki :)

busca en las FAQ ahi hay una funcion completa donde solo tienes que cambiar un numerito para usar otro componente, es muy buena sobre todo cuando cambias de hosting y usasn otro componente.

Suerte