Ver Mensaje Individual
  #5 (permalink)  
Antiguo 26/09/2007, 03:08
PALOMALU
 
Fecha de Ingreso: enero-2007
Mensajes: 3
Antigüedad: 17 años, 3 meses
Puntos: 0
Re: Correo Publicitario Con Flash

Tenia entendido que se podía hacer enviando el correo desde una web, con código html y embebiendo el objeto con el swf, pero me parece muy complicado. Porque necesitas tener una web dispuesta para ello. He conseguido un código que todavía no se si funciona. Si habeis hecho algo parecido, agradecería que me dijeseis si el código esta bien. Este está en ASP pero si lo teneis en php o actionscrip, muchisimo mejor.

<%
Set mimail = CreateObject("Persits.MailSender")
mimail.Host = "smtp.nombreweb.com"
mimail.Subject = "nombreweb.com :: INFORMACION"
mimail.From = "[email protected]"
mimail.FromName = "nombreweb.com"
mimail.AddAddress emailprop, nombreprop
mimail.AddBcc "[email protected]"
mimail.Body = "<HTML><BODY>"
mimail.Body =mimail.Body&"<b>Datos /b><br>Publicidad<br>Su Referencia: "&ref_inmo&"<br>"

mimail.Body = mimail.Body&"<object ><param name="movie" value="info.swf"></param>
<param name="quality" value="high"></param>
<embed src="info.swf" type="application/x-shockwave-flash"
pluginspage="http://www.macromedia.com/go/getflashplayer" wmode="transparent" ></embed>
</object>"

mimail.Body =mimail.Body&"</BODY></HTML>"
mimail.IsHTML = True

On Error Resume Next
mimail.Send
If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
End If
%>

Gracias