Ver Mensaje Individual
  #1 (permalink)  
Antiguo 05/12/2007, 11:43
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 que trae el siguente archivo

el flash esta disenado de la siguente forma

un espacio para

YourName:
YourEmail:
Message:

en el contenido trae un archivo llamado contac.asp

con el sieguente codigo

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 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