email da aruba a (ES) tiscali

**ser_god** · 02-04-2007, 16:24

salve, ho fatto una funzione per inviare email :

----------------------------------------------------
function inviaEmail(invioDa,invioA,oggetto,testo,fileAllega to)
if isEmpty(invioDa) then
'invioDa = application("emailSito")
nomeDominio = Request.ServerVariables("HTTP_HOST")
dominio = split(nomeDominio,".")
invioDa = "info@"&dominio(1)&"."&dominio(2)
end if
cartella = Server.MapPath("/public/mailing")

on error resume next
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

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

html = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"" ""http://www.w3.org/TR/html4/loose.dtd"">"&VbCrLf&_
"<html lang=""it""> "&VbCrLf&_
"<head>"&VbCrLf&_
"<title>"&Request.ServerVariables("HTTP_HOST") &" - email</title>"&VbCrLf&_
"<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">"&VbCrLf&_
"</head>"&VbCrLf&_
"<body>"&VbCrLf&_
"<font style='font-size:14px;font-weight:bold'>"&oggetto&"</font>

"&VbCrLf&_
testo&VbCrLf
html = html&"</body></html>"

With iMsg
Set .Configuration = iConf
.To = invioA
.From = invioDa
if len(fileAllegato)> 0 then .AddAttachment (cartella & "\" & fileAllegato)
.Sender = nomeDominio
.Subject = oggetto
.htmlBody = html
'.CreateMHTMLBody "http://"&Request.ServerVariables("HTTP_HOST")&"/vbs/email/email.asp?testo="&server.URLEncode(testo)&"&oggett o="&server.URLEncode(oggetto)&"&dest="&server.URLE ncode(request("dest"))&"&invioA="&server.URLEncode (invioA)
.Send
End With

Set iMsg = nothing
Set iConf = nothing
Set Flds = nothing
end function

-------------------------------------------------------------

per utilizzarla semplicemente faccio :

inviaEmail invioDa,invioA,oggetto,testo,fileAllegato

-------------------------------------------------------------

il problema è però che non arriva a tutte le caselle email, come ad esempio su tiscali non arrivano le email inviate.
volevo sapere, se qualcuno di voi ha il mio stesso problema:
dipende dallo script o da qualche tipo di filtro che tiene il server che riceve la mail la macata ricezione da parte del destinatario?

**yro** · 02-04-2007, 16:51

dovè invioA ? :master:

**ser_god** · 02-04-2007, 18:13

sono tutte variabili che gli passo tramite form.

inviaEmail "info@nomedominio.it","miamail@nomedominiodestinat ario.it","oggetto della email","corpo del messaggio","file.doc"

**ser_god** · 02-04-2007, 18:19

sottolineo il fatto che se provo a mettere come destinatario il mio indirizzo, configurato su domini sempre di aruba, funziona.

su tiscali, in particolar modo, non va.

**jet** · 03-04-2007, 15:16

Io per inviare mail faccio una select delle mail da un database e poi le invio così con il testo preso dalla variabile TestoMail:

Set oMessaggioTEXT = CreateObject("CDO.Message")

oMessaggioTEXT.From = "info@nomedominio.it"
oMessaggioTEXT.To = mailinglist
oMessaggioTEXT.Subject = "Servizio Newsletter dal sito...."
oMessaggioTEXT.htmlBody = TestoMail
BodyFormat = 1
MailFormat = 1
oMessaggioTEXT.Send
Set oMessaggioTEXT = Nothing

'routine
mailinglist=mailinglist2&rs("email")

**ser_god** · 03-04-2007, 17:30

il fatto è che a me le email le invia, come ho detto prima, ma non le invia a tutti gli indirizzi email..

non ci sono nè cicli nè operazioni elaborate, ma solo un semplice invio di email.

se al destinatario passo il mio indirizzo email l'email a me arriva, ma se lo invio ad esempio all'indirizzo xxxx@tiscali.it, non arriva.

ma non è mai successo a nessuno?

**Franz78** · 04-04-2007, 09:59

Prova a cambiare l'smpte
con l'ip o con localhost.

**michele.santoro** · 04-04-2007, 10:26

Se sei su A...a prova a fare

codice:

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

**ser_god** · 04-04-2007, 10:50

smtp.aruba.it ce l'ho in un'application nel global.asa che ha per valore appunto "smtp.aruba.it"

forse in precedenza ho posto male con la domanda.

quello che voglio sapere è perchè sulla mia email arriva e su un'altra mia email su tiscali non arriva?
server in spam?
mittente non accettato?
...nessuno di voi ha questo mio stesso problema?

Discussione: email da aruba a (ES) tiscali

Strumenti discussione

Ricerca discussione

Visualizza

email da aruba a (ES) tiscali

Permessi di invio