Salve stò provando a mandare e mail con cdosyscon il seguente codice
<%
'Impostiamo le nostre preferenze
Dim Destinatario, Mittente, Oggetto, Testo
Destinatario = "xxxx@xxxx.com"
Mittente = "yyy@yyy.com"
Oggetto = "Oggetto della mail..."
Testo = "Testo della mail..."
'Creiamo l'oggetto mail con CDOSYS
Dim eMail
Set eMail = CreateObject("CDO.Message")
'Definiamo i diversi attributi della nostra mail
eMail.From = Mittente
eMail.To = Destinatario
eMail.Subject = Oggetto
'Se il testo è in Html useremo HTMLBody al posto di TextBody
eMail.TextBody = Testo
'Stabiliamo il livello di importanza (1 o 2)
eMail.Fields("urn:schemas:httpmail:importance").Va lue = 2
eMail.Fields.Update()
'Inviamo la mail!
eMail.Send()
'Eliminiamo l'oggetto...
Set eMail = Nothing
%>
ma mi esce il seguente sulla riga eMail.Send()
errore:CDO.Message.1 error '80070005'
Accesso negato.
mi potete dare una mano?
Rispondi quotando