Siccome non ci capisco molto avrei bisogno di qualche chiarimento su come funziona CDOSYS o dove posso trovare tali chiarimenti. In particolare cosa significa (in particolare perchè si fa rimferimento a microsoft???"):
Const cdoSendUsingPort = 2
smtpserver = mailserver
set Messaggio = CreateObject("CDO.Message")
set Confcdo = CreateObject("CDO.Configuration")
Set Flds = Confcdo.Fields
' impostazioni dei campi di configurazione di CDOSYS per usare la porta 25 sul server SMTP
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 20
.Update
End With
With Messaggio
' applico i settaggi
Set .Configuration = Confcdo
.To = destinatario
.From = mittente
.Subject = titolo
.htmlbody = corpo
.Send
End With
E poi perchè su un'altro script per invio mail trovo invece altri metodi come questo:
dim oMessaggioTEXT
set oMessaggioTEXT = server.CreateObject("CDO.Message")
sBodyTEXT ="Visita http://www.moredev.com"
With oMessaggioTEXT
.To = stringamail
.From = MailAdmin
.Subject = oggetto
.Fields("urn:schemas:httpmail:importance").Value = cdoImpHig
.Fields("urn:schemas:httpmailriority").Value = cdoPriorityUrgent
.Fields("urn:schemas:mailheader:X-Priority").Value = priorita
.Fields.update()
End With
if htmlen = true then
oMessaggioTEXT.HTMLBody = corpo
else
oMessaggioTEXT.TEXTBody = corpo
end if
on error resume next
oMessaggioTEXT.Send
if err.number <> 0 then errore = true
set oMessaggioTEXT=nothing
Rispondi quotando