codice:<% ' stringa HTML da inviare strHTML = strHTML & "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'>" strHTML = strHTML & "<html>" strHTML = strHTML & "<head>" strHTML = strHTML & "<title>Documento senza titolo</title>" strHTML = strHTML & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>" strHTML = strHTML & "</head>" strHTML = strHTML & "<body bgcolor='#D2D2D2'>" strHTML = strHTML & "<div align='center'>" strHTML = strHTML & "<table width='600' border='0' cellspacing='0' cellpadding='0'>" strHTML = strHTML & "<tr>" strHTML = strHTML & " <td height='46' style='background-image:url(http://www.infogolf.info/restyling ig pro shop/immagini/testata-email.gif);background-repeat:no-repeat; background-position:right bottom;'></td>" strHTML = strHTML & "</tr>" strHTML = strHTML & "<tr>" strHTML = strHTML & " <td bgcolor='#FFFFFF' style='background-image:url(http://www.infogolf.info/restyling ig pro shop/immagini/sfondo-email.gif); background-position:right bottom;'>Ciao</td>" strHTML = strHTML & "</tr>" strHTML = strHTML & "<tr>" strHTML = strHTML & "<td height='43' style='background-image:url(http://www.infogolf.info/restyling ig pro shop/immagini/piede-email.gif);background-repeat:no-repeat; background-position:right bottom;'></td>" strHTML = strHTML & " </tr>" strHTML = strHTML & "</table>" strHTML = strHTML & "</div>" strHTML = strHTML & "</body>" strHTML = strHTML & "</html>" Set link = CreateObject("CDONTS.Newmail") With link .BodyFormat = 1 .MailFormat = 1 .To = "prova3@prova.it" ' Inserisci qui il tuo indirizzo email .Bcc = "prova2@prova.info" .From = "prova@prova.it" .Subject = "Newsletter IG Pro Shop" .Body = strHTML .Send End With Set link = Nothing %>
Rispondi quotando