mail che non partono sempre in automatico

[robbe2000]

ciao a tutti è da un pò che ho problemi con l'invio di email da moduli asp.
Non ho ancora capito il motivo ma sembra che su certi indirizzi email arrivano i moduli che spedisco dai moduli on line invece su alcuni non arrivano. Qualcuno mi sa dare qualche consiglio?

In base ai dati inputati dall'utente creo un file RTF che allego all'email.


Ecco il testo per inviare l'email tutte le variabili sono riempite completamente


'invio email
dim objEmailCli
Set objEmailCli = CreateObject("CDONTS.NewMail")


objEmailCli.BodyFormat = 0 ' 0=html 1=testo
objEmailCli.MailFormat = 0


objEmailCli.Bcc = strFrom & "," & strEmailCli
objEmailCli.From = strFrom


strOggetto = strrich & " - Conferma XXXX dal sito: www." & nome_sito
objEmailCli.Subject = strOggetto


dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
path = Server.MapPath("allegati/modulo_"& nomefile &".rtf")

objEmailCli.Body = strcontr
objEmailCli.Send

[tiger255]

So dirti per certo che questo funziona:

Dim Mail

Set Mail=CreateObject("CDO.Message")
Mail.Subject="oggetto" 
Mail.From="utente (at) server.com"
Mail.Cc=""
Mail.BCc=""
Mail.To="utente (at) ovunque.it"
Mail.ReplyTo ="utente (at) server.com"
Mail.HTMLBody = "Gentile utente, Ti ringraziamo per la  richiesta.Distinti saluti"
Mail.Send

set Mail = nothing

Prova ad eliminare temporaneamente l'allegato per vedere se la invia sempre.
Naturalmente sostituisci nel codice "(at)" con il simbolo della chiocciola perchè il forum non me lo lascia mettere ...