piccolo esempio
<%
Set objmail = CreateObject("CDO.Message")
objmail.configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'CdoSendUsingPort
objmail.configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "qui il tuo server"
objmail.configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objmail.configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0 'anonimo
objmail.configuration.fields.Update
objmail.From = "..."
objmail.To = "..."
objmail.Subject = "..."
objmail.TextBody = "..."
objmail.Send
%>

Rispondi quotando