Cum să trimiteți e-mailuri în bloc din Outlook utilizând Excel VBA

Trebuie să livrați e-mailuri în masă personalizate clienților, clienților, prietenilor sau altor persoane de contact? Vrei să faci asta cu un singur clic? Este posibil! Există un instrument magic în Microsoft Excel care face toate acestea. Este Visual Basic pentru aplicații, alias Excel VBA.

Continuați să citiți pentru a afla cum să trimiteți e-mailuri în bloc din Outlook utilizând Excel VBA . Mai este! Puteți practica asta urmând cei mai simpli pași menționați în tutorialul de mai jos. Să pătrundem!

Cum să trimiteți e-mailuri în bloc din Outlook utilizând Excel VBA

Tutorialul actual vă va oferi codul VBA de care aveți nevoie pentru a automatiza e-mailurile în bloc din Excel. Tot ce trebuie să faceți este să vă adunați datele într-un singur fișier Excel și să efectuați o formatare rapidă.

Programul VBA pe care îl veți rula va folosi Microsoft Outlook ca aplicație de trimitere a e-mailurilor. Astfel, trebuie să instalați și să configurați Outlook pe computer. Codul VBA nu va putea folosi programul Outlook bazat pe browser web.

După ce sunteți gata cu fișierul Excel și aplicația Outlook, efectuați acești pași:

• Organizați foaia de lucru prin e-mail în bloc în 6 coloane.
• Introduceți titlurile coloanelor din rândul A1: E-mail către (A); Email CC (B); Subiectul e-mailului (C); Corpul e-mailului (D), Atașamentul (E), Stare (F).
• Adăugați toate „Către adrese” sub titlul coloanei A. Puteți adăuga mii de e-mailuri dacă doriți.
• În mod similar, introduceți „Adresele CC” sub titlul coloanei B.
• Este timpul pentru personalizarea subiectului e-mailului. Puteți adăuga subiecte de e-mail personalizate pentru fiecare contact sub titlul coloanei C.
• Același lucru este valabil și pentru conținutul corpului de e-mail. Copiați și inserați conținutul de e-mail în rândurile de sub titlul coloanei D.
• Copiați-lipiți locațiile fișierelor atașate sub titlul coloanei E.
• Pentru a obține locația atașării, apăsați pe Shift și selectați fișierul țintă de pe computer.
• Acum, faceți clic dreapta și selectați Copiere ca cale pentru a copia adresa fișierului în clipboard-ul PC-ului.
• Acum puteți lipi adresa direct în rândurile coloanei E.
• Lăsați coloana F necompletată, deoarece codul VBA va completa automat stările.

• Salvați foaia Excel ca fișier activat pentru Macro.
• Acum, apăsați Alt+F11 pentru a afișa editorul de cod VBA.
• Faceți clic pe Instrumente în meniul de sus și apoi selectați Referințe .
• Căutați Biblioteca de obiecte Microsoft Office 16.0 în lista care urmează și bifați caseta.
• Faceți clic pe Ok pentru a salva Outlook ca obiect pentru VBA.

• Acum, faceți clic pe Inserare și apoi alegeți Modul pentru a deschide un editor de cod.
• Copiați și lipiți codul menționat mai jos în Modul .

Sub Send_Bulk_Mails() Dim sh As Worksheet Set sh = ThisWorkbook.Sheets("Worksheet_Name") Dim i As Integer Dim OA As Object Dim msg As Object Set OA = CreateObject("outlook.application") Dim last_row As Integer last_row = Application. CountA(sh.Range("A:A")) For i = 2 To last_row Set msg = OA.createitem(0) msg.to = sh.Range("A" & i).Value msg.cc = sh. Range(„B” și i).Valoare msg.Subject = sh.Range(„C” și i).Value msg.body = sh.Range(„D” și i).Value If sh.Range(„E” & i).Valoare <> "" Apoi msg.attachments.Add sh.Range("E" & i).Value End If msg.send sh.Range("F" & i).Value = "Sent" Next i MsgBox „Toate e-mailurile au fost trimise” End Sub

• Introduceți numele actual al foii de lucru, separat prin litere de subliniere în linia de cod 3, unde scrie (" Worksheet_Name ").
• Faceți clic pe Salvare din meniu pentru a salva scriptul.
• Puteți apăsa F5 pentru a rula macrocomanda și Excel va trimite automat e-mailurile prin Outlook.

• De asemenea, puteți accesa această macrocomandă mai târziu din fila Dezvoltator din meniul panglică Excel.

Concluzie

Acum că ați urmărit cum să trimiteți e-mailuri în bloc din Outlook folosind tutorialul Excel VBA, puteți trimite cu ușurință e-mailuri în masă fără a pierde timp cu trimiterea manuală de e-mailuri.

Vrei să înveți un alt truc VBA pentru Excel? Parcurgeți acest tutorial pentru a afla cum să automatizați verificarea ortografică în Excel folosind VBA.