invio email a destinatari da file Excel o Open Office

[tranguill]

salve,
ho questa esigenza e mi sembra che non sia stata già affrontata sul sito
Ho un elenco Excel/Open Office di indirizzi email (lo stesso eventualmente in file TXT) (UNICA RIGA)
avrei necessità 1 volta al mese di inviare a ogni singolo destinatario, la stessa email singolarmente
Premetto che utilizzo Windows Live Mail e che non ho mai importato i contatti nel programma di posta stesso.

grazie in anticipo
Tonio

[sinner69]

Ciao,
se smanetti un pò nelle varie discussioni riesci a costruire la procedura che fa al caso tuo, poiche chi per una cosa chi per un altra l'invio di email tramite excel è già stato affrontato cmq in ogni caso come mai gli indirizzi email ce l'hai tutti su una riga nel foglio excel e non su un unica colanna?

Stasera provo a modificare la mia procedura e ti faccio vedere premesso che io però utilizzo Microsoft Outlook che si sposa bene con excel.

A Buon Rendere...

[sinner69]

Ciao,
come ti dicevo io utilizzo Microsoft Outlook per l'invio delle email
questa è la procedura inseriscila in un modulo del tuo file excel e poi crei una procedura che nel tuo giorno desiderato di ogni mese e nell'ora desiderata richiama la procedura invia email.

Codice: Seleziona tutto

Private Sub invia_Email()
Dim OLook As Object 'Outlook.Application
Dim MItem As Object 'Outlook.MailItem

Dim Inter As String, MSubj As String
Dim MAddr As String


MAddr = ""   '<<<< Destinatario
Inter = "G1:G3"    '<<<< Lista delle celle che contengono gli indirizzi email da allungare a piacimento
'
For Each Email In Range(Inter)
    MAddr = Email
    MSubj = " Email Generata Automaticamente" '<<<< Subject della mail da modificare in base al tuo caso
    Set OLook = CreateObject("Outlook.Application")
    Set MItem = OLook.createitem(0)
    MItem.to = MAddr
    MItem.Subject = MSubj
    MItem.body = " Email generata in automatico " ' corpo dell'email da modificare in base al tuo caso
    MItem.send
    Application.Wait (Now + TimeValue("0:00:05"))
    Set OLook = Nothing
    Set MItem = Nothing
    Next Email
End Sub



A Buon Rendere