inviare email dal proprio sito
salve ho trovato questo codice per inviare le mail dal proprio sito funziona?
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form name="form1" method="post" action="InvioEmail.asp">
<table width="50%" border="0" cellpadding="2" cellspacing="0" class="testo">
<tr>
<td width="30%" align="right">Tua Mail:</td>
<td><input name="from" type="text" id="from"></td>
</tr>
<tr>
<td width="30%" align="right">Mail della Vittima:</td>
<td><input name="to" type="text" id="to"></td>
</tr>
<tr>
<td align="right">Oggetto:</td>
<td><input name="oggetto" type="text" id="oggetto"></td>
</tr>
<tr>
<td align="right">Messaggio:</td>
<td><textarea name="msg" cols="25" rows="7" id="msg"></textarea></td>
</tr>
<tr>
<td align="right">Numero Messaggi:</td>
<td><input name="num" type="text" id="num"></td>
</tr>
<tr>
<td align="right"> </td>
<td><input name="Submit" type="submit" class="submit" value="Invia"></td>
</tr>
</table>
</form>
e poi cè questo pezzo
for i = 0 to request.Form("num")
Dim mail
set mail = createobject("CDONTS.NewMail")
mail.from = request.Form("from")
mail.to = request.Form("to")
mail.subject = request.Form("oggetto")
mail.bodyformat = 1
mail.mailformat = 1
mail.body = request.Form("msg")
mail.send
next
response.Write(""&request.Form("num")&" Mail Inviate!")
%>
