estrarre email

Hai un problema con Excel?

Nuova discussione

estrarre email
di biagnucco (utente non iscritto) data: 02/03/2014 21:37:12
ciao a tutti, sono nuovo e principiante, ma tanto principiante!
Ho un problema, al quale non sono riuscito a trovare risposta in nessun forum: in excel, ho una colonna nelle cui celle sono degli indirizzi mail, ma non visibili, solo linkati. Visibile è solo il testo "email" ripetutto identico in tutte le celle.
Dovrei spedire la stessa mail a tutti gli indirizzi, ma sono centinaia, e aprire ciascuno, copiare il testo e spedire, porta via tanto tempo.
Ho provato a fare una macro: visualizzo l'indirizzo, e lo copio nella cella successiva. Ma fatto questo, la macro che ho creato ripete sempre l'operazione su quelle 2 celle. Come si allarga l'operazione a tutta la colonna in modo automatico?
Spero di essere stato chiaro!
di Vecchio Frac data: 03/03/2014 09:40:19
Cioè vuoi realizzare un sistema di spam? ^_^
Io ho un meccanismo simile: elenco di indirizzi in colonna, testo in file separato, macro in Outlook che legge gli indirizzi, compone il testo a partire dal file, aggiunge gli allegati e spedisce. L'inconveniente è cliccare Yes ad ogni messaggio a causa della protezione antispam di Office (ma si ovvia con appositi programmini).
Cerca nello storico, se ne è parlato ancora.
Comunque potresti guardare come funziona MailChimp (www.mailchimp.com).

di Grograman (utente non iscritto) data: 03/03/2014 11:52:43
Bzzzt!

Sub Mail()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''' ATTENZIONE RICHIEDE L'ATTIVAZIONE DELLA LIBRERIA MICROSOFT OUTLOOK 14.0 OBJECT LIBRARY '''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''' Per l'attivazione andare su "Strumenti", "Riferimenti", cercare e spuntare il nome '''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  Dim indirizzo As String
  Dim oOUT As Outlook.Application
  Dim oML As MailItem
  Dim messaggio As String
  Dim oggetto As String
    
  messaggio = "tuo messaggio"
  oggetto = "tuo oggetto"
  indirizzo = "Pippo@Pappo.it"
  
  Set oOUT = CreateObject("Outlook.Application")
  Set oML = oOUT.CreateItem(olMailItem)
  
  With oML
    '.Attachments.Add ("C:	uo_file.pdf")
    .to = indirizzo
    .Subject = oggetto
    .body = messaggio
    .SentOnBehalfOfName = "ilmio@mittente.com"
    .Display
    '.Send
  End With
  
  Set oOUT = Nothing
  Set oML = Nothing
End Sub

spam?
di biagnucco data: 03/03/2014 20:14:25
grazie vecchiofrac, ma forse non mi sono spiegato bene. Ho cercato nel forum ma non ho trovato la soluzione che cerco. Mi rispiego: in tutte le celle della colonna c'è scritto solo "email", e passandoci sopra o clikkandolo, si può facilmente vedere il singolo indirizzo cui è linkata la cella. Ma non riesco a visualizzare, scoprire tutti gli indirizzi insieme: ho provato a salvare in csv, in formato testo, ecc, ma si salva solo "email" e perdo il link. E come detto, se faccio una macro in excel, riesco a farla per una sola cella, non per un insieme di celle: questo sarebbe il sistema per scoprire tutti gli indirizzi, ma non son capace! acc...
di Grograman (utente non iscritto) data: 04/03/2014 10:39:59
Non hai allegato un file di esempio.
Non hai postato il codice che riesci a utilizzare per solo due celle.

Impossibile aiutarti.

Vuoi Approfondire?