cdosys aruba mail bianca libero.it

**djjunior** · 20-04-2010, 17:06

Carissimi,
ho dato un'occhiata a vari post che indicano lo stesso mio problema, cioè l'utilizzo cdosys per l'invio delle mail, tutti parlano della modifica di un dato però se utilizzato in locale IIS, ma siccome sono su aruba, come posso ovviare al problema?
Le mail inviate a provider libero.it o inwind.it (cioè lo stesso) a chi le riceve risultano "bianche", come posso ovviare al problema?
Potete aiutarmi?
Grazie.
G.

**Roby_72** · 20-04-2010, 17:17

Il codice? Aruba ti fornisce quello da usare nel vademecum.

Roby

**djjunior** · 20-04-2010, 17:35

io utilizzo da tempo questo e ha sempre funzionato:

codice:

Dim iMsg
Dim iConf
Dim Flds
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.miosito.it" 

Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

Flds("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 240


Flds.Update

With iMsg
Set .Configuration = iConf

HTML = "<html><head>" &_
"<HEAD>"&_
"</HEAD>"&_
"<BODY bgcolor=""#FFFFFF"" text=""#000080"">"&_
"[img][/img]"&_
"
"&_
"<Font face=""Tahoma"" size=""2"">"&_
"Benvenuto sul mio sito.
"&_
"
"&_
"Per confermare la tua iscrizione: CLICCA QUI
"&_
"
"&_
"Di seguito il riepilogo dei dati che hai inserito
"&_
"
"&_
"Nome e Cognome: "& Nome &" " & Cognome &"
"&_
"
"&_
"</font>"&_
 "</body>" &_
 "</html>"

.To = email
.Bcc = "prova@libero.it"
.From = "IO<io@miosito.it>"
.Subject = "Registrazione "
.HTMLBody = HTML
.Send

End With

Come mai c'è questo problema?
Grazie
G.

**djjunior** · 20-04-2010, 17:51

Per la cronaca ho utilizzato anche il loro script e il problema rimane:

codice:

invioDa =  "io<io@miosito.it>"

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf

HTML = "<html><head>" &_
"<HEAD>"&_
"</HEAD>"&_
"<BODY bgcolor=""#FFFFFF"" text=""#000080"">"&_
"[img][/img]"&_
"
"&_
"<Font face=""Tahoma"" size=""2"">"&_
"Benvenuto sul mio sito.
"&_
"
"&_
"Per confermare la tua iscrizione: CLICCA QUI
"&_
"
"&_
"Di seguito il riepilogo dei dati che hai inserito
"&_
"
"&_
"Nome e Cognome: "& Nome &" " & Cognome &"
"&_
"
"&_
"</font>"&_
 "</body>" &_
 "</html>"
 
   .To = email
   .From = "IO<io@miosito.it>"
   .Bcc = "test@libero.it"
   .Sender = invioDa
   .Subject = "Registrazione"
   .HTMLBody = HTML 

   .Send
End With

Come mai?

**djjunior** · 20-04-2010, 18:24

Nessun aiuto?
Grazie
G.

**Vincent.Zeno** · 20-04-2010, 19:42

arrivano bianche o vuote?

qui c'è un head di troppo:

codice:

HTML = "<html><head>" &_
"<HEAD>"&_
"</HEAD>"&_

**djjunior** · 21-04-2010, 10:00

Grazie 100000000
era quel maledetto HEAD in più....
Ora arrivano correttamente..
Grazie ancora.
G.

Discussione: cdosys aruba mail bianca libero.it

Strumenti discussione

Ricerca discussione

Visualizza

cdosys aruba mail bianca libero.it

Permessi di invio