Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

invio email a destinatari da file Excel o Open Office

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

invio email a destinatari da file Excel o Open Office

Postdi tranguill » 06/06/12 09:55

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
tranguill
Newbie
 
Post: 1
Iscritto il: 06/06/12 09:48

Sponsor
 

Re: invio email a destinatari da file Excel o Open Office

Postdi sinner69 » 11/06/12 13:59

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...
A Buon Rendere...
Avatar utente
sinner69
Utente Junior
 
Post: 44
Iscritto il: 03/06/12 20:59
Località: Avola

Re: invio email a destinatari da file Excel o Open Office

Postdi sinner69 » 11/06/12 18:16

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
A Buon Rendere...
Avatar utente
sinner69
Utente Junior
 
Post: 44
Iscritto il: 03/06/12 20:59
Località: Avola


Torna a Applicazioni Office Windows


Topic correlati a "invio email a destinatari da file Excel o Open Office":


Chi c’è in linea

Visitano il forum: Nessuno e 16 ospiti

cron