Ciao a tutti,
se per caso questo thread fosse già stato affrontato chiedo scusa in anticipio, in caso contrario vi chiedo cortesemente aiuto.
Ho un piccolo form email crerato in cdo con asp:
Dim iMsg
Dim iConf
Dim Flds
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update
With iMsg
Set .Configuration = iConf
.CreateMHTMLBody "http://xxxxxxxx.com"
.Bcc = email
.From = "email"
.Sender = "xxxxxxxxxxxx"
.Subject = "xxxxxxxx"
.Send
Il problema e che l'email arrivano come spam. Ho ovviamente anche provato a levare .Bcc con .TO ma il risultato non cambia. Qualcuno, per piacere, sà dirmi come risolvere questo antipaticissimo problema?
Grazie 1000
se per caso questo thread fosse già stato affrontato chiedo scusa in anticipio, in caso contrario vi chiedo cortesemente aiuto.
Ho un piccolo form email crerato in cdo con asp:
Dim iMsg
Dim iConf
Dim Flds
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update
With iMsg
Set .Configuration = iConf
.CreateMHTMLBody "http://xxxxxxxx.com"
.Bcc = email
.From = "email"
.Sender = "xxxxxxxxxxxx"
.Subject = "xxxxxxxx"
.Send
Il problema e che l'email arrivano come spam. Ho ovviamente anche provato a levare .Bcc con .TO ma il risultato non cambia. Qualcuno, per piacere, sà dirmi come risolvere questo antipaticissimo problema?
Grazie 1000
