inserendo questo modulo ..mi dice: e-mail inviata con successo ma non arriva ...dove sbaglio
Grazie per l'aiuto
contactfield1=Request("field1")
contactfield2=Request("field2")
contactfield3=Request("field3")
contactfield4=Request("field4")
mbody = "field1 : "&contactfield1&" | field2 : "&contactfield2&" | field3 : "&contactfield3&" | field4 : "&contactfield4
email object for cdonts
Set pmail = Server.CreateObject("CDONTS.Newmail")
'change the email to your email address
pmail.From = "midilandia@virgilio.it"
pmail.To = "midilandia@virgilio.it"
'pmail.Subject = " Website Contact enquiry "
pmail.Body = mbody
pmail.MailFormat = 0 'mime type
pmail.BodyFormat = 0 'default value 1 for plain text type
pmail.Send
Set pmail=Nothing
new mail
DIM Mailer
email object for CDO Windows 2003
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Website Contact Enquiry"
'change the email to your email address
objMessage.Sender = "in.virgilio.it"
objMessage.To = "in.virgilio.it"
objMessage.TextBody = mbody
objMessage.Send
set objMessage=Nothing
response.write("response=ok")


Rispondi quotando