mailinglist segnalazione provider

**forte78** · 25-05-2011, 07:24

salve con la presente vi informo di questa situazione

abbiamo realizzato un applicazione di invio di email a piu destinatari , abbiamo verificato questo che dopo vani tentativi di invio ad alcuni utenti per i quali ci tornavano indietro puntualmente delle mailer daemon abbiamo testato ieri una possibilita quello di cambiare destinatario nello script cosi :
da

cdoMessage.To = "mauro@gmail.com"
'Indirizzo esistente

a

cdoMessage.To = "mauro@gmail1.com"

abbiamo verificato che il 99% dei messaggi è andato a buon fine

dopo alcune ore ci è arrivata questa email del provider

Gentile cliente,

sono stati rilevati invii di email promozionali non richieste con oggetto il dominio xxxxxx.net.
La invitiamo a verificare con accuratezza l'elenco dei destinatari così da non inviare email in assenza del consenso preventivo necessario secondo quanto stabilito dai correnti termini di legge: http://www.garanteprivacy.it/garante/doc.jsp?ID=432448.

In mancanza delle modifiche richieste e di ulteriori segnalazioni in merito saremo tuttavia costretti a bloccare il dominio.

La questione è abbastanza inquietante anche perche non so dove aver sbagliato o meglio se ho sbagliato a fare quella modifica da gmail.com a gmail1.com non dovrebbe essere un problema ma certo non possiamo permetterci di farci bloccare il dominio senza sapere se rinviare altre email, oppure c'è un modo come fa aruba nel caso delle sue newsletter che fa venire fuori la mia email sul destinatario l email mia di riferimento.

Come posso comportarmi.....

Grazie

Saluti.

**cavicchiandrea** · 25-05-2011, 08:14

Contatta il provider e fatti dire

**Vincent.Zeno** · 25-05-2011, 11:39

Originariamente inviato da forte78

abbiamo realizzato un applicazione di invio di email a piu destinatari , abbiamo verificato questo che dopo vani tentativi di invio ad alcuni utenti per i quali ci tornavano indietro puntualmente delle mailer daemon abbiamo testato ieri una possibilita quello di cambiare destinatario nello script cosi :
da

cdoMessage.To = "mauro@gmail.com"
'Indirizzo esistente

a

cdoMessage.To = "mauro@gmail1.com"

avete preventivamente controllato l'esistenza del destinatario?

inoltre l'avviso del provider non è detto si riferisca alla posta inviata verso il secondo tipo di indirizzo

**forte78** · 25-05-2011, 12:47

Direi proprio di si dato che fino a 2 giorni fa tutti i destinatari in ccn andavano oggi me ne tornano 29 con quegli indirizzi

il problema come ripeto è che ho provato su a: mauro@gmail1.com che non esiste a priori e tutte sono andate poi ci è arrivato questo messaggio.....

la mia domanda è questa come si puo risolvere ho visto che molte newsletter arrivano cosi

da EMAIL MITTENTE
a xxx@xxx.it EMAIL DEST.

Come riesco nel mio caso ad inviare con questa forma cioe come posso inserirla qua

anziche
cdoMessage.To = "mauro@gmail.com"
'Indirizzo esistente

cdoMessage.To = "QUELLA EMAIL SPECIFICA DEL DESTINATARIO"

Saluti

**Vincent.Zeno** · 25-05-2011, 13:47

Originariamente inviato da forte78
Direi proprio di si dato che fino a 2 giorni fa tutti i destinatari in ccn andavano oggi me ne tornano 29 con quegli indirizzi

il problema come ripeto è che ho provato su a: [*email]mauro@gmail1.com[/email] che non esiste a priori e tutte sono andate poi ci è arrivato questo messaggio.....

magari sono nella cloacla del server?
come fai a dire che sono arrivate se a priori dici che non esistono?

la mia domanda è questa come si puo risolvere ho visto che molte newsletter arrivano cosi

da EMAIL MITTENTE
a [*email]xxx@xxx.it[/email] EMAIL DEST.

Come riesco nel mio caso ad inviare con questa forma cioe come posso inserirla qua

anziche
cdoMessage.To = "mauro@gmail.com"
'Indirizzo esistente

cdoMessage.To = "QUELLA EMAIL SPECIFICA DEL DESTINATARIO"

prova con:

codice:

cdoMessage.To = "mauro@gmail.com" ' (destinatario)

cdoMessage.Sender= tuamaildominio '(spedizioniere)

**forte78** · 27-05-2011, 14:50

salve, aiutatemi a capire allora questa è l'attuale situazione

indirizzo mittente : XXX@XXX.IT
indirizzo dest : quello in archivio della mailing list (quello reale)
su bcc non ho inserito nulla

dopo un 1° invio della mailing list tutti i messaggi sono andati a buon fine non è tornata indietro nessuna mailer daemon

abbiamo provato una 2° volta e ne sono tornati 30 sembra dopo la 1° volta il loro server cataloghi questa email come spam e me la fa tornare

allora ho testato cosi

da outlook ho provato con lo stesso mittente ad inviare lo stesso messaggio con lo stesso dest ed è andato a buon fine......

Perchè cosa devo cambiare del mio codice per farlo andare a buon fine ?

A questo punto c'è qualcosa che non va nel codice

ve lo mostro:

if mailComp = "CDOSYS" then

Set rsNews = Server.CreateObject("ADODB.Recordset")
rsNews.Open "SELECT * FROM anagrafica WHERE confirm = 'SI' and bloccoutente<>'on';", objConn, adOpenForwardOnly, adLockOptimistic, adCmdText
If Not rsNews.EOF Then
Do While Not rsNews.EOF

set cdoMessage = Server.CreateObject("CDO.Message")
set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
cdoConfig.Fields.Update
set cdoMessage.Configuration = cdoConfig
cdoMessage.From = fromAddr
cdoMessage.To = rsNews("email")
' cdoMessage.Bcc = rsNews("email")
cdoMessage.Subject = subject

If Request.Form("version") = "html" Then
cdoMessage.HtmlBody = "<html><head></head><body>[img][/img]
<table border=""0"" width=""100%"" height=""30"" cellspacing=""0"" cellpadding=""0""><tr><td>"& Request.Form("dicitura1") &"</td></tr></table>
<table border=""0"" width=""100%"" height=""30"" cellspacing=""0"" cellpadding=""0""><tr><td><font size=""2"" color=""#9A9A9A"" face=""arial"">"& Request.Form("msg1") &"</font></td></tr></table>

<table border=""0"" width=""100%"" height=""30"" cellspacing=""0"" cellpadding=""0""><tr><td><font size=""2"" color=""#9A9A9A"" face=""arial"">"& Request.Form("utente1") &"</font></td></tr></table></body></html>"
Else
cdoMessage.TextBody = strEmailMsg
End If

on error resume next
cdoMessage.Send
intErrNumber = Err.Number
set cdoMessage = Nothing
set cdoConfig = Nothing

rsNews.MoveNext
Loop

saluti

**Vincent.Zeno** · 27-05-2011, 15:17

non sono un esperto sulla posta...
(intanto metti il codice sempre nel tag CODE, grazie

)

ho dato un'occhiata alle mail in html che ricevo,
in nessuna compare il tag head, che possa influire?

il ciclo d'invio quante mail manda alla volta?
se sono tante alcuni server non gradiscono
(non so come facciano a capirlo

)

fromAddr è un indirizzo valido, vero?

**forte78** · 27-05-2011, 15:31

Posso inviarti il codice dove lo vedo ?

codice:






<%Case "Invia"%>	

	<div style="display:none;">
		<iframe id="frm_sms1" src="frameconfermano.asp"></iframe>
	</div>




	<div style="display:none;">
		<iframe id="frm_sms2" src="framecarichino.asp"></iframe>
	</div>




<table border="0" width="100%" height="600" cellspacing="0" cellpadding="0"><tr><td class="normalemail" VALIGN="top">
<%
	strEmail = Request.Form("recipients") ' "xxx@xxx.it"  ' 
	subject = Request.form("nwsubject")
    'send email so subscriber can confirm
'	strEmailMsg = Replace(Request.Form("msg"),Chr(13) & Chr(10),"
")
	strEmailMsg = Request.Form("msg")
'	If Request.Form("version") = "html" Then
'	  strEmailMsg = strEmailMsg & strFooter
'	Else
'	  strEmailMsg = Replace(strEmailMsg & strFooter,"
",Chr(13) & Chr(10))
'	End If
    'Send email based on mail component.
	
	'Send email (CDONTS version). Note: CDONTS doesn't support a reply-to
    'address and has no error checking.
	
	if mailComp = "CDONTS" then
	  set mailObj = Server.CreateObject("CDONTS.NewMail")
	  If Request.Form("version") = "html" Then
	    mailObj.BodyFormat = 0
	    mailObj.MailFormat = 0
	  Else
	    mailObj.BodyFormat = 1
	  End If

	  mailObj.From = fromAddr
	  mailObj.To = strEmail
	  mailObj.Subject = subject
	  mailObj.Body = strEmailMsg
	  mailObj.Send
	  set mailObj = Nothing
	end if
	
	'Send email (CDOSYS version).
	
	if mailComp = "CDOSYS" then
	
  Set rsNews = Server.CreateObject("ADODB.Recordset")
  rsNews.Open "SELECT * FROM anagrafica WHERE confirm = 'SI' and bloccoutente<>'on';", objConn, adOpenForwardOnly, adLockOptimistic, adCmdText
  If Not rsNews.EOF Then
    Do While Not rsNews.EOF

				  set cdoMessage = Server.CreateObject("CDO.Message")
				  set cdoConfig = Server.CreateObject("CDO.Configuration")
				  cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
				  cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
				  cdoConfig.Fields.Update
				  set cdoMessage.Configuration = cdoConfig
				  cdoMessage.From =  fromAddr 
				  cdoMessage.To = rsNews("email")
'				  cdoMessage.Bcc = rsNews("email")
				  cdoMessage.Subject = subject
				  
				  If Request.Form("version") = "html" Then
cdoMessage.HtmlBody = "<html><head></head><body>[img][/img]
<table border=""0"" width=""100%"" height=""30"" cellspacing=""0"" cellpadding=""0""><tr><td>"& Request.Form("dicitura1") &"</td></tr></table>
<table border=""0"" width=""100%"" height=""30"" cellspacing=""0"" cellpadding=""0""><tr><td><font size=""2"" color=""#9A9A9A"" face=""arial"">"& Request.Form("msg1") &"</font></td></tr></table>



<table border=""0"" width=""100%"" height=""30"" cellspacing=""0"" cellpadding=""0""><tr><td><font size=""2"" color=""#9A9A9A"" face=""arial"">"& Request.Form("utente1") &"</font></td></tr></table></body></html>"
Else
				  cdoMessage.TextBody = strEmailMsg
				  End If
				  
				  on error resume next
				  cdoMessage.Send
				  intErrNumber = Err.Number
				  set cdoMessage = Nothing
				  set cdoConfig = Nothing

	  rsNews.MoveNext
	Loop

%>


<%
				  if intErrNumber <> 0 then
					SendMail = "Email send failed: " & Err.Description & "."
				  else
				  Response.Write "<div align=""center""><font color=""#9A9A9A"" face=""arial"" size=""6"">La email sono state inviate con successo!</font></div>"

				  end if

  End If
  rsNews.Close
  Set rsNews = Nothing

	end if
	
	'Send email (JMail version).
	
	if mailComp = "JMail" then
	  set mailObj = Server.CreateObject("JMail.SMTPMail")
	  mailObj.Silent = true
	  mailObj.ServerAddress = smtpServer
	  mailObj.Sender = fromAddr
	  mailObj.ReplyTo = fromAddr
	  mailObj.Subject = subject
	  addrList = Split(strEmail, ",")
	  for each addr in addrList
        mailObj.AddRecipient Trim(addr)
      next
	  If Request.Form("version") = "html" Then mailObj.ContentType = "text/html"
	  mailObj.Body = strEmailMsg
	  if not mailObj.Execute then
		SendMail = "Email send failed: " & mailObj.ErrorMessage & "."
	  end if
	end if
	
	'Send email (ASPMail version).
	
	if mailComp = "ASPMail" then
	  set mailObj = Server.CreateObject("SMTPsvg.Mailer")
	  mailObj.FromAddress = fromAddr
	  mailObj.RemoteHost  = smtpServer
	  mailObj.ReplyTo = fromAddr
	  for each addr in Split(strEmail, ",")
        mailObj.AddRecipient "", Trim(addr)
      next
	  mailObj.Subject = subject
	  If Request.Form("version") = "html" Then mailObj.ContentType = "text/html"
	  mailObj.BodyText = strEmailMsg
	  if not mailObj.SendMail then
		SendMail = "Email send failed: " & mailObj.Response & "."
	  end if
    end if
	
End Select 


  objConn.Close
  Set objConn = Nothing









%>

si fromaddr è un indirizzo valido

**Vincent.Zeno** · 27-05-2011, 15:38

siamo un po' al punto di prima

prova ad inserire :

cdoMessage.Sender= fromaddr '(spedizioniere)
e a togliere head dell'html

Discussione: mailinglist segnalazione provider

Strumenti discussione

Ricerca discussione

Visualizza

mailinglist segnalazione provider

Re: mailinglist segnalazione provider

Permessi di invio