Script (o simili) per invio mail personalizzato

[dario1990]

Buonasera a tutti.
Dovrei inviare a 500 persone una mail con un allegato personalizzato.
Nel dettaglio:

- ho un elenco in formato csv contenente il "codice socio" e "Indirizzo mail".
- in una cartella (chiamiamola "Allegati") sul disco c:\ ho tanti file quanti sono i soci e ciascun file ha come nome il codice socio (più l'estensione doc)

Esempio:

- codice socio: 34
- indirizzo mail: [email protected]
- allegato: 34.doc

Quindi lo script dovrebbe:

- prelevare l'indirizzo mail dalla colonna "Indirizzo mail"
- inserire un oggetto del tipo "Prova..."
- inserirte un testo uguale del tipo "prova...."
- prelevare il file dalla cartella su indicata e inserirlo come allegato della mail

Troppo complesso?

[Daniels118]

Puoi facilmente realizzare quanto chiedi in vb script. La lettura del csv dovrebbe essere abbastanza semplice, mi limito alla parte di invio mail che richiede qualche sforzo in più:

Set objEmail = CreateObject("CDO.Message")
objEmail.To = "[email protected]"
objEmail.Subject = "Oggetto"
objEmail.Textbody = "Messaggio"
objEmail.From = "[email protected]"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.it" 
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.AddAttachment Allegato
objEmail.Send