Newsgroup: it.comp.appl.access
Titolo: OT: Software per gestire una mailing-list

Ciao ragazzi, scusate se faccio appello a voi postando un OT, ma penso
che l'esperienza di molti menbri di questo gruppo valga più di tante
altre in giro. Avrei bisogno di trovare un software che possa gestire
una piccola mailing-list. Devo spedire circa 1000 e-mail a settimana.
A parte il software (sempre che ci sia, free magari, ed in italiano)
sapete se un
account gratis come libero o virgilio o altri simili, mi potrà creare
dei
problemi spedendo circa 1000 e-mail tutte insieme?
Grazie.
Ciao.
Andrea Parrino

 Andrea Parrino
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

Ciao Massimiliano, è un pò che non ci si sente.
Il problema è che serve ad un amico che gestisce una piccola
attività, e non ha il pacchetto office, io volevo risolvere trovando
un piccolo programma in rete.
Cmq sei sempre con la risp. pronta ;-)
Ciao
Andrea Parrino


vbs con operazione pianificata


Scusami MA non capisco,
puoi essere un pò più esaustivo?
Grazie.
Andrea Parrino

 Andrea Parrino
Creati una file txt con la sua brava istruzione e dopo lo salvi come vbs.
Ora devo andare via, se non hai risolto, domani lo sistemiamo


 ha scritto nel messaggio news:1119542947.3...@g43g2000cwa.googlegroups.com...
Scusami MA non capisco,
puoi essere un pň piů esaustivo?
Grazie.
Andrea Parrino
[risposta]
MAssimiliano quando si avvicina l'ora di cena... Non ci vede piů dalla fame.
Lui intendeva l'utilizzo di script VBS e l'oggetto CDO/CDONTS.
Con VBS puoi (se necessario) connetterti ad un MDB e leggerti gli indirizzi e-mail; con CDO/CDONTS utilizzi un activex per 
confezionare la mail.
Con google, in questo NG, trovi molti suggerimenti su come fare. Considera che CDO/CDONTS viene utilizzato anche per le pagine ASP 
(web) quindi gli stessi esempi li puoi riconvertire...
Ciao.
-- 
Sergio MAZZA 

Grazie Sergio, sai qualche link dove potere scaricare qualche esempio?
non ho mai smanettato con script VBS e l'oggetto CDO/CDONTS.

[CUT]
Ciao Andrea,
continuando sulla linea di Massimo e Sergio il sito più completo (free 
naturalmente) che supporta asp ed access è il seguente 
http://www.domaindlx.com/
 ...
Non ti fanno utilizzare cmq CDONTS per motivi di sicurezza ...magari può 
servirti per "smanettare" con asp
Per CDONTS, come ti consigliano già, trovi ampia documentazione in 
giro...puoi iniziare da 
http://freeasp.html.it/
 ed in risorse trovi link 
utili per muoverti  un pò sulla rete e trovare esempi e script...
Per il VbScript trovi una guida a quest'url 
http://www.html.it/vbscript/
Ti passo cmq il codice per gestire una newsletter sul web: è necessario 
utilizzare un db (che risiede sullo spazio web nella cartella principale) 
con un tabella (tb) ed un campo chiamato email (testo)
Con il blocco note ti cotruisci una pagina html ed una pagina asp (anch'esse 
residenti sulla cartella principale del web server)
------------
index hml
------------
<html>
<head>
<title>NewsLetter</title>
</head>
<style>
 body { font-family: Verdana, Arial; font-size: 8pt }
</style>
<body>
<p align="center">Messaggio per la newsletter</p>
 Oggetto :<br>
   <form action="invia.asp" method="post">
   <input type="text" name="subject"></input><br><br>
   Messagio :<br><br>
   <textarea name="message" cols="60" rows="15"></textarea><br>
   <input type="submit" value="Invia">
</form>
</body>
</html>
------------
------------
invia.asp
------------
<%
 on error resume next
Dim ObjConn,db,rs
Set ObjConn = Server.CreateObject("ADODB.Connection")
db = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & 
Server.MapPath("db.mdb")
ObjConn.Open db
Set rs= Server.CreateObject("ADODB.Recordset")
Stringa = "SELECT email FROM tb"
rs.Open Stringa,ObjConn
rs.MoveFirst
x=0
WHILE NOT rs.EOF
    x=x+1
    if x=1 then
      mailing_list=rs("email")
    else
      mailing_list=mailing_list & ";" & rs("email")
    end if
rs.MoveNext
WEND
rs.Close
ObjConn.close
     Response.Write "Lista email inviate:" & "<BR>"
     Response.Write "-----------------------------" & "<BR>"
mailing_list= "''"& mailing_list & "''"
Dim indirizzo
indirizzo=Split (mailing_list,";")
Redim Preserve indirizzo(x-1)
   for i=0 to x-1
     if i=0 then
       indirizzo(i)=REPLACE(indirizzo(i),"''","")
     elseif i=x-1 then
       indirizzo(i)=REPLACE(indirizzo(i),"''","")
     else
     end if
     Dim Email
     Set Email = Server.CreateObject("CDO.Message")
     Email.From = "tuoindirizzoemail"
     Email.To=indirizzo(i)
     Email.Subject = subject
     Email.TextBody = message & indirizzo(i)
     Response.Write indirizzo (i) & "<BR>"
     Email.Send()
     Set Email = Nothing
    next
   Response.Write "----------------------------------" &"<BR>"
   Response.Write "Newsletter spedita con successo"&"<BR>"
   if err.number<>0 then
      Response.Write "Si è verificato il seguente errore:" &"<BR>" & 
Err.Description
   end if
 %>
-------------------------------------------------------------------------------------------
Per il resto vedi un pò tu quale soluzione ritieni più idonea...segui anche 
i consigli degli altri
Notte
Gaspare 

[CUT]
Ciao Andrea,
rileggendo i post di Sergio e Ma (che ti suggeriscono di costruire uno 
script) considera che CDONTS è una libreria di nome cdonts.dll  (sui web 
server con sistemi operativi windows la trovi già e quindi no devi fare 
nulla) ma se devi creare degli script sul tuo pc devi copiarla nella 
directory di sistema e poi  registrarla cona la solita procedura ->Start / 
Esegui ->regsvr32 cdonts.dll...dopodichè la poi utilizzare prendendo spunto 
dal codice che ti ho postato ma "ovviamente" apportando le dovute 
modifiche...
Cmq siamo qui ;-)
Notte
Gaspare

Ragazzi, sarà l'ora ma mi sento un pò spaesato. Pensavo fosse
un'operazione più semplice.
Magari domani con più calma cercherò di fare mente locale.
Notte amici.
Ciao
Andrea Parrino

[CUT]
Puoi anche utilizzare l'ogetto ASPMail (gratuito) che puoi scaricare insieme 
alla documentazioen da quest'url:
http://www.persits.com/aspemail.exe
Alla prossima
Gaspare 

[CUT]
Notte...domani la risolviamo insieme ;-)

 Ciao.
-- 


 non ho mai smanettato con script VBS e l'oggetto CDO/CDONTS.
Per VBS non ci dovrebbero essere problemi visto che ha un set di istruzioni simile a VB/VBA.
I sistemi operativi che già supportano script VBS sono dalla 2000 in poi ma hai la possibilità di scaricarti/installarti l'ultima 
versione.
Questa è la pagina di riferimento per gli script: 
http://www.microsoft.com/italy/scripting/
Qui scarichi l'ultima versione del motore di script + help + debug: 
http://www.microsoft.com/downloads/details.aspx?displaylang=it&FamilyID=E74494D3-C4E1-4E18-9C6C-0EA28C9A5D9D
Per CDO/CDONTS come link per informazioni ti posso suggerire:
http://support.microsoft.com/kb/186204/it
http://msdn.microsoft.com/library/ita/default.asp?url=/library/ITA/dntaloc/html/cdo_roadmap.asp
http://www.cdolive.com/default.htm
Un esempio di uno script VBS è:
'-----
Dim myMail, testoMail
Set myMail = WScript.CreateObject("CDONTS.NewMail")
testoMail = "In allegato trovi il file."
myMail.From = "destin...@dominio.boh"
myMail.To = "
mitt...@dominio.it
"
myMail.Subject = "Invio Documento"
myMail.BodyFormat = 1 '<-- 0 per HTML
myMail.MailFormat = 1 '<-- 0 per HTML
myMail.Body = testoMail
myMail.AttachFile "c:\nomeFile.doc"
myMail.Send
Set myMail = Nothing
'---------
Ciao.
-- 
Sergio MAZZA 

[CUT]
Azz...Sergio -> "conosci una miniera d'informazioni"....quindi non mi ero 
sbagliato sul tuo conto ;-)
A dopo...ti aspetto dopo il lavoro al solito posto ;-)
Gaspare 

 Gaspare
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio 
news:d9h596$u7j$1...@domitilla.aioe.org...

Nel senso che sei uno che sŕ il fatto suo...anzi colgo l'occasione per farti 
i complimenti "sinceri" (tranquillo che non sono il tipo che fŕ le 
"sviolinate"...) per gli appunti presentati al CISA...sono molto chiari e 
ben fatti -> sinceramente ti vedo anche come "docente" che come 
"sviluppatore"...
Stasera sei impagnato ? Mannaggia!!! Famo domani sera che č sabato e quindi 
non mi dirai di no! ;-)
Alla prossima 

 Alla prossima
Grazie per i complimenti...
Ciao.
-- 
Sergio MAZZA 



Grazie.
Ciao.
Andrea Parrino
Ciao Andrea
Non ti basta la rubrica di outlook express?

Con più di cento e-mail incomincia ad avere problemi.
C'è qualcuno che può sventirmi?
Ciao.
Andrea Parrino

[CUT]
Ciao Andrea,
non complicarti la vita -> effettua il download di AspEmail 
http://www.aspemail.com/download.html
 ...ad installazione effettuata trovi 
del codice d'esempio con la spedizione di una newsletter che attinge ad un 
db...
Con quella o con CDONTS ci arrivi a 1000 email...
Gaspare 

[CUT]
Se vuoi usare CDONTS, come suggerito da Sergio, la trovi a quest'url -> 
http://www.aspcode.it/tips/tips.asp?act1=show_tip&idx=70
L'unica cosa da cambiare e quindi utilizzare , in entrami i casi, è l'SMTP 
del tuo provider di connessione ad internet...non devi modificare 
alcun'altra cosa!
Ovviamente devi disporre di iis...
The example shows how to send an email with ASP. This is possible using a 
CDO (Collaboration Data Objects), a COM library created to send email via 
SMTP protocol or Microsoft Exchange.
All you need is IIS 4.0 and SMTP installed on your machine. In order to run 
this example you must set the correct value for "from" and "to" properties 
of objCDO.
<HTML>
<HEAD>
  <title> Here is the code for sending an email using ASP </title>
</HEAD>
<BODY>
<!-- This is an HTML comment -->
<%
  ' declare a CDO object
  dim objCDO
  ' create a CDO object
  set objCDO = Server.CreateObject("CDONTS.NewMail")
  ' set the properties
  objCDO.From = "yourAccount@domain"
  objCDO.To = "anotherAccount@domain"
  objCDO.Subject = "Test"
  objCDO.Body = "Hello this is a Test"
  ' send the email
  objCDO.Send
  set objCDO = Nothing
%>
</BODY>
</HTML>
Cmq se hai difficoltà con il codice etc...fatti sentire
Gaspare

[CUT]
Pardon...per CDONTS non occorre l'SMTP
Prova a copiare il seguente codice nel blocco note e lo salvi come 
"email.asp" facendo attenzione che dal combo tipo di file togli "txt" ed 
attivi "tutti i file"
--------------------
<%
Dim MiaMail
Set MiaMail = Server.CreateObject("CDONTS.NewMail")
MiaMail.From = "tuoindirizzo@email"
MiaMail.To = "tuoindirizzo@email"
'MiaMail.Cc = ""
'MiaMail.Bcc = ""
MiaMail.Subject = "invio tramite CDONTS NewMail"
MiaMail.BodyFormat = 1
MiaMail.MailFormat = 0
MiaMail.Importance = 2
MiaMail.Body = "invia email tramite CDONTS NewMail" &_
"oggetto dismesso da Microsoft"
'MiaMail.Attachfile "d:\inetpub\webs\miodominio\file.gif", 1
MiaMail.Send
Set MiaMail = Nothing
%>
------------
dopodichč la copi in c:\inetpub\wwwroot e dopo aver avviato iis  la richiami 
dal browser nel seguente modo : 
http://localhost/email.asp
Alla prossima
Gaspare 

[CUT]
Oppure come ti ha suggerito Sergio apri il blocco note e salvi il seguenet 
codice come nomefile.vbs (stando attento a deselezionare "txt" e selezionare 
"tutti i file)
--------
Dim myMail, testoMail
Set myMail = WScript.CreateObject("CDONTS.NewMail")
testoMail = "In allegato trovi il file."
myMail.From = "tuoindirizzo@email"
myMail.To = "tuoindirizzo@email"
myMail.Subject = "Invio Documento"
myMail.BodyFormat = 1 '<-- 0 per HTML
myMail.MailFormat = 1 '<-- 0 per HTML
myMail.Body = testoMail
myMail.AttachFile "c:\nomeFile.doc"
myMail.Send
Set myMail = Nothing
-------------
e quindi doppio click sul file... 

[CUT]
In quest'utlimo caso non ti serve iis ma solo cdonts.dll che trovi all'url 
di cui sopra ;-) 

Andrea Parrino
Scusa Andrea, che genere di problemi?
Io ho su un client una rubrica di outlook express con circa 6.000 contatti e
5 liste di distribuzione o gruppi (una per ogni area commerciale) e non ho
nessun problema.
Per l'invio il provider non ha problemi, semmai ne avrà il collegamento
internet che risulterà ovviamente più lento.
Ciao

Scusami Olmo,
quindi tu spedisci contemporaneamente di di 6.000 email e non hai
problemi?
Il mio amico dice che ha 100 email outlook express gli da problemi.
Tu che account usi? E' free o a pagamento?
Grazie.
Ciao 
Andrea Parrino

Ciao Gaspare,
per prima cosa ti ringrazio per la mole di consigli che mi hai dato.
Non ho avuto tempo per risponderti, e neanche per provare i tuoi
suggerimenti.
Ma la cosa di potere gestire una newsletter senza essere costretto ad
usare i programmi soliti è molto interessante.
Appena trovo il tempo cercherò di provarci, magari con un tuo
ulteriore aiuto.
C'è l'amico Olmo che mi ha detto che outlook express funziona bene
anche con più di 1000 email. Quindi il mio amico nel suo pc avrà
casini che non gli permettono di operare bene.
A presto.
Ciao
Andrea Parrino