Ver Mensaje Individual
  #1 (permalink)  
Antiguo 18/12/2007, 12:05
vcorp11
 
Fecha de Ingreso: abril-2005
Mensajes: 36
Antigüedad: 19 años
Puntos: 0
enviar email desde flash

saldos mi duda es simple compre un templated en flash que tiene una opcion de contacto donde el usuario escribe sus datos unde send y esta supuesto a enviarm eso a mi email.

el flash esta disenado de la siguente forma

YourName:aqui escbrie tu nombre
YourEmail:aqui escbrie tu email
Message:el mensaje
unde send y esta supuesto a enviarme esto a mi email

junto al flash "*.swf" trae un archivo .asp lamado contac.asp

con el sieguente codigo en su interior

Código:
for i=1 to 7
	 	message=Request("message")
	next
	 	message=message + Request("message")	
		smtpServer = "smtpout.secureserver.net" <---- este ya lo cambie
		smtpPort = 25
		

		name = Request("Your_Name:")
		Set myMail = CreateObject("CDO.Message") 
		myMail.Subject = "from " & name
		myMail.From = Request "Your_Email:"
		myMail.To = Request("recipient")
		myMail.HTMLBody = "<html><head><title>Contact letter</title></head><body><br>" & message & "</body></html>"
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
		myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtpPort
		myMail.Configuration.Fields.Update 
		myMail.Send

pero no entiendo varias cosas primero en mi servidor es nesesario usa pssword para enviar y resivir email y este codigo no pose algo para poner el pass alguien me puede aclarar esta duda