Europeanwebhost.com
Sei tu il cambiamento che vuoi vedere nel mondo.

In questo breve tutorial vedrò di illustrarvi l’invio di una semplice mail con CDOSYS…

<%

‘ Controlla invio
if Request.QueryString(”invia”) = “true” then

‘Impostiamo le nostre preferenze
Dim iMsg, iConf, Flds

‘Crea l’oggetto email
Set iMsg = CreateObject(”CDO.Message”)
‘Crea l’oggetto configurazione
Set iConf = CreateObject(”CDO.Configuration”)
‘Impostazione delle configurazioni per l’invio remoto
Set Flds = iConf.Fields
Flds(”http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion”) = True

‘Spedizione: mittente, destinatario, oggetto, messaggio
mittente = “xxxx@tuosito.com”
destinatario = request.form(”to”)
oggetto = request.form(”object”)
messaggio =  request.form(”msg”)

With iMsg

‘Assegnazione delle configurazioni
Set .Configuration = iConf

.From = mittente
.To = destinatario
.Subject = oggetto

‘Formato HTML
.HTMLBody = messaggio
‘Formato testo (scegliere)
.TextBody = messaggio

‘Se avessimo voluto inserire un’allegato alla nostra mail avremmo aggiunto questo codice:

.AddAttachment(”x:\path_del_sito\file.zip”)
‘Invia l’email
.Send()

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing

else %>
<form name=”formail” method=”post” action=”invioasp.asp?invia=true”>
<table align=”center” cellpadding=”3″ cellspacing=”1″>
<tr>
<td>to</td>
<td><input type=”text” name=”to” /></td>
</tr>

<tr>
<td>object</td>
<td><input type=”text” name=”object” /></td>
</tr>

<tr>
<td>Msg</td>
<td><input type=”text” name=”msg” /></td>
</tr>

<tr>
<td colspan=”2″> <input type=”submit” value=”invia” name=”submit” /> </td>
</tr>
</table>
</form>
<% end if %>

This entry was posted on Giovedì, Ottobre 25th, 2007 at 15:09 and is filed under Guide. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.