un problemino ..one!! con la posta!!

[robotsite]

Ciao a tutti!
e` un po` di tempo che sto cercando di far inviare delle mail da un form!!
ora....visto che non riesco e che gli esempi di script sono sempre gli stessi ma spesso uno mette smtp..uno www... prima di impazzire del tutto chiedo gentilmente se qualcuno di voi sa se sul sito www.7host.com dove e` installato codsys sia possibile inviare mail con account free!!
e nel caso mi potete indicare un server che lo permetta?

grazie a tutti
ciao!!

[mexican]

Originariamente inviato da robotsite
Ciao a tutti!
e` un po` di tempo che sto cercando di far inviare delle mail da un form!!
ora....visto che non riesco e che gli esempi di script sono sempre gli stessi ma spesso uno mette smtp..uno www... prima di impazzire del tutto chiedo gentilmente se qualcuno di voi sa se sul sito www.7host.com dove e` installato codsys sia possibile inviare mail con account free!!
e nel caso mi potete indicare un server che lo permetta?

grazie a tutti
ciao!!

Prova

function invia_email(da, a, oggetto, corpo)

Dim myMail
Set myMail = CreateObject("CDO.Message")
myMail.From = da
myMail.To = a
myMail.Subject = oggetto
myMail.HTMLBody = corpo
myMail.Send
Set myMail = Nothing
end function

call invia_email("info@sasa.it", "xxx@sasa.it", "prova cdo", "prova cdo")