Ciao a tutti, qualcumo mi sabrebbe dire come configurare il server e inviare la posta in locale con CDOSYS?
Grazie a tutti![]()
Ciao a tutti, qualcumo mi sabrebbe dire come configurare il server e inviare la posta in locale con CDOSYS?
Grazie a tutti![]()
nello stesso modo che lo fai in rete...![]()
fai una ricerca sul forum con cdosys, ne trovi a bizzeffe
se poi il tuo problema è riceverla in rete locale (da locale a locale) allora devi avere un server di posta che offra anche il pop![]()
no e che quando ci provo mi da sempre errore.
Vorrei fare delle prove in loacle sui script che creo sulle email.
Ho provato con questo code:
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "mail.libero.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous
Flds.Update
eml.From= email
eml.to ="xxx@xxxxxx.com"
eml.Subject= "NUOVO CONTATTO"
eml.HTMLBody= txt
eml.Send
Set eml= nothing
Set flds= nothing
set config= nothing
Mi d questo errore:
Errore di run-time di Microsoft VBScript (0x800A01AD)
Il componente ActiveX non può creare l'oggetto: 'CDO.Message'
ora o provato in questo modo:
DIM objMail, objConfig
Set objConfig=Server.CreateObject("CDO.Configuration")
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 ' cdoSendUsingPickup
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")= 0 ' cdoAnonymous
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")= "c:\inetpub\mailroot\pickup"
objConfig.Fields.Update
Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = objConfig
e mi da questo errore:
Oggetto Server, ASP 0177 (0x800401F3)
Stringa dell'interfaccia non valida.
alla riga:
Set objConfig=Server.CreateObject("CDO.Configuration")