Scusate il disturbo, ma sto cercando di inviare mail attraverso questo script. Non mi da errori, ma non invia la mail.
Sto lavorando in locale e con SO windows XP.
Grazie
L.
<%
Dim Destinatario, Mittente, Oggetto, Testo
Destinatario = "xx@libero.it"
Mittente = "yy@libero.it"
Oggetto = "Oggetto della mail..."
Testo = "Testo della mail..."
Dim eMail
Set eMail = CreateObject("CDO.Message")
eMail.From = Mittente
eMail.To = Destinatario
eMail.Subject = Oggetto
eMail.TextBody = Testo
eMail.Fields("urn:schemas:httpmail:importance").Va lue = 2
eMail.Fields.Update()
eMail.Send()
Set eMail = Nothing
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
%>
Rispondi quotando
