Inviare Una Mail Con Persits

[abbath]

Ciao a tutti raga... devo inviare una mail, i cui campi provengono da un form, con il PERSITS.

Non lo ho mai usato... mi sapere aiutare per quanto riguarda il codice da utilizzare?

Grassie...

[Mems]

Sul sito del produttore non ci stanno gli esempi?
Su Google?

[abbath]

Ho dato una occhiata ma non riesco mica a trovarli...

[Mems]

Originariamente inviato da abbath
Ho dato una occhiata ma non riesco mica a trovarli...

No, eh?
http://www.google.com/search?q=Manua...e7&rlz=1I7ADBF

[abbath]

<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.vostrodominio.it" ' Indicare il vostro dominio
Mail.From = "info@vostrodominio.it" ' Indicare l'indirizzo del mittente
Mail.FromName = "Azienda ABC" ' Specificare il nome del mittentee

Mail.AddAddress "m.rossi@dominioXYZ.it", "Marco Rossi" ' Il destinatario
Mail.AddAddress "paolo@dominioXYZ.it" ' Altri destinatari opzionali
Mail.AddReplyTo "info@vostrodominio.it" ' Indirizzo per la risposta
Mail.AddAttachment "d:\path-reale\listino.doc" ' Allegato Opzionale

Mail.Subject = "Grazie di aver contattao!"
Mail.Body = "Gentile Cliente," & Chr(13) & Chr(10) &
"Grazie di averci visitato!"

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>


Ho usato questo codice... non mi dà nessun errore in fase di invio ma le mail comunque non arrivano...

[abbath]

Dove si dice "indicare il vostro dominio" se metto il dominio del sito non dà errore ma non arrivano mail... se invece metto l'smtp mi viene risposto "errore, destinatario sconosciuto"

[abbath]

Io lo ho così personalizzato... dove sto sbagliando??

<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.miosito.it" ' Indicare il vostro dominio
Mail.From = request.form("email") ' Indicare l'indirizzo del mittente - arriva dal form
Mail.FromName = request.form("name") ' Specificare il nome del mittentee - arriva dal form

Mail.AddAddress "friz1980@hotmail.com" ' Il destinatario
Mail.AddReplyTo "info@mail.com" ' Indirizzo per la risposta

Mail.Subject = request.form("subject")
Mail.Body = request.form("msg")

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
else
response.write "tutto ok"
End If
%>