Ecco un metodo per come inviare e-mail usando una macro VBA in Excel. In questo post, non farò una guida passo passo su come è possibile inviare email usando Excel usando macro e opzioni VBA in Microsoft Excel.
Questo perché il modello di foglio di calcolo che vorrei condividere è stato creato per uno scopo molto specifico, ed è improbabile che sia utile al lettore medio del blog.
Quello che vorrei fare invece è darvi un esempio del perché e come avevo bisogno di inviare email (con allegati) usando Excel. Questo potrebbe forse essere un’ispirazione per voi per rendere qualche processo con il vostro flusso di lavoro o colleghi più efficiente.
Ho imparato la formula di base del modello da questo video di YouTube qui sotto.
Vi spiego come ho usato il modello dettagliato nel video qui sopra, e l’ho usato per realizzare il compito che avevo bisogno di automatizzare.
Cosa avevo bisogno che la macro facesse per me
Quello che avevo bisogno di fare era quanto segue.
Da un database, potrei scaricare rapporti di vendita separati per ogni paese. Posso anche scaricare i dati (che contengono visitatori del sito web, lead e vendite) in una tabella in Excel.
Di seguito la tabella con i dati (i dati attualmente presenti sono tutti numeri casuali generati dalla formula =RANDBETWEEN()).
Ho bisogno di un modo per copiare e incollare la tabella in un foglio Excel, che poi crei automaticamente e-mail uniche per 23 diversi uffici vendite.
Ogni email unica avrebbe dovuto riassumere le prestazioni dell’ufficio vendite e avere un allegato email unico.
Ho finito con un modello di email qui sotto.
Ho quindi creato una macro VBA in Excel. Il testo della macro è qui sotto.
Sub Send_email_fromexcel()Dim edress As StringDim subj As StringDim message As StringDim filename As StringDim outlookapp As ObjectDim outlookmailitem As ObjectDim myAttachments As ObjectDim path As StringDim lastcol As IntegerDim attachment As StringDim x As Integer x = 2Do While Sheet7.Cells(2, x) <> "" Set outlookapp = CreateObject("Outlook.Application") Set outlookmailitem = outlookapp.createitem(0) Set myAttachments = outlookmailitem.Attachments path = Sheet7.Cells(5, x) edress = Sheet7.Cells(2, x) cc = Sheet7.Cells(3, x) subj = Sheet7.Cells(4, x) filename = Sheet7.Cells(6, x) attachment = path + filename outlookmailitem.to = edress outlookmailitem.cc = cc outlookmailitem.bcc = "" outlookmailitem.Subject = subj outlookmailitem.body = Sheet7.Cells(7, x) myAttachments.Add (attachment) outlookmailitem.display outlookmailitem.send lastcol = lastcol + 1 edress = "" x = x + 1LoopSet outlookapp = NothingSet outlookmailitem = NothingEnd Sub
Ho fornito il modello del file Excel se vuoi sperimentare e fare pratica con il file.
Purtroppo ho dovuto rimuovere la macro dal file, perché non sono in grado di caricare un file .xlsm su questo sito WordPress.
Scaricate il modello del file Excel
Scaricate il file modello cliccando sul link qui sotto:
Spero che questo post sia stato utile per chi è interessato ad automatizzare alcuni compiti che coinvolgono Excel e Outlook!
I miei altri post sul blog
Se vi è piaciuto questo post potreste apprezzare questi altri post che ho scritto.
Sono Michael
Sono un analista digitale Sudafricano che vive a Toronto, Canada. Scrivo sul blog di marketing digitale, web analytics e visualizzazione dei dati.
Entra in contatto con me!
LinkedIn
Twitter
Email
