Atunci când utilizatorii trimit e-mailuri către clienții sau șefii lor, este destul de greu să țină evidența. În acest caz, Excel vine la îndemână. Prin urmare, "trimite automat e-mailuri din Excel la Outlook" s-a dovedit a fi o abordare care economisește timp. Macros Excel VBA și HYPERLINK funcția poate trimite e-mailuri automate sau poate crea un proiect folosind intrări Excel.

Să spunem că avem Salariul restructurat al angajatului date în Excel și dorim să trimitem un e-mail automat folosind Outlook .

În acest articol, demonstrăm mai multe variante de Macros VBA și HYPERLINK pentru a trimite automat un e-mail de la Excel la Outlook .

Descărcați Excel Workbook

⧭ Deschiderea Microsoft Visual Basic și inserarea codului în modul

Înainte de a trece la demonstrarea oricărei metode, este necesar să cunoaștem modalitățile de deschidere și de inserare a unui fișier Modul în Microsoft Visual Basic în Excel.

🔄 Deschiderea Microsoft Visual Basic: Există în principal 3 modalități de a deschide Microsoft Visual Basic fereastră.

1. Utilizarea comenzilor rapide de la tastatură: Apăsați ALT+F11 cu totul pentru a deschide Microsoft Visual Basic fereastră.

2. Folosind Developer Tab: Într-o foaie de calcul Excel, accesați Fila Dezvoltator > Selectați Visual Basic . Microsoft Visual Basic apare fereastra

3. Utilizând fila Worksheet (Foaie de lucru): Mergeți la orice foaie de lucru, Faceți clic dreapta pe pe ea> Alege Vezi codul (din Context Meniu ).

🔄 Inserarea unui modul în Microsoft Visual Basic: Există 2 modalități de a introduce un Modul în Microsoft Visual Basic fereastră,

1. Utilizarea opțiunilor din Sheet: După ce a fost deschis Microsoft Visual Basic selectați un Fișa de lucru > Faceți clic dreapta pe pe ea> Selectați Introduceți (din Meniul contextual )> apoi alegeți Modul .

2. Utilizarea barei de instrumente: De asemenea, puteți face acest lucru selectând Introduceți (din Bara de instrumente )> atunci alegând Modul .

4 Modalități simple de a trimite e-mailuri automate din Excel în Outlook

Metoda 1: Utilizarea macro VBA pentru a trimite automat e-mailuri utilizând Outlook către destinatarii selectați

Dorim să creăm o execuție Macro Buton prin care putem trimite pur și simplu e-mailuri către destinatarii selectați cu un simplu clic.

Pasul 1: Mergeți la Introduceți tab> Forme > Selectați oricare dintre formele oferite (de ex, Rectangular: Colțuri rotunjite ).

Pasul 2: Trageți de butonul Pictograma Plus oriunde doriți să introduceți Formă așa cum se arată în imaginea de mai jos.

Pasul 3: Alegeți o preferință Umplerea formei și Schiță Culoare apoi faceți clic dreapta pe el. Faceți clic pe Editare text pentru a insera text.

Pasul 4: Utilizați instrucțiuni pentru a deschide Microsoft Visual Basic și introduceți Modul Lipiți următoarea macro în fereastra Modul .

 Sub ExcelToOutlookSR() Dim mApp As Object Dim mMail As Object Dim SendToMail As String Dim MailSubject As String Dim mMailBody As String For Each r In Selection SendToMail = Range("C" & r.Row) MailSubject = Range("F" & r.Row) mMailBody = Range("G" & r.Row) Set mApp = CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) With mMail .To = SendToMail .Subject = MailSubject.Body = mMailBody .Display ' Puteți folosi .Send End With Next r End Sub 

➤ în cod,

1 - începeți macroprocedura prin declararea variabilelor ca fiind Obiect și Șir de caractere .

2 - executați un VBA PENTRU buclă pentru fiecare rând din selecție pentru a atribui Email's Trimite la , Subiect , și Corp utilizând intrări de rânduri.

3 - să atribuie variabile.

4 - efectua VBA cu pentru a completa Outlook elemente precum Trimite la , Mail Subiect , etc. Aici macroul execută doar Afișare comanda pentru a scoate la iveală Outlook cu un proiect de e-mail. Cu toate acestea, dacă Trimiteți este utilizată în locul sau după Afișaj, Outlook va trimite e-mailul creat către destinatarii selectați.

5 - terminați VBA PENTRU buclă.

Pasul 5: Reveniți la foaia de lucru. Faceți clic dreapta pe Formă apoi selectați Atribuire macro de la Meniul contextual opțiuni.

Pasul 6: Selectați Macro (de ex, ExcelToOutlookSR ) în cadrul Numele macroului și alegeți Macro în opțiune ca Acest caiet de lucru . Faceți clic pe OK .

Pasul 7: Acum, în foaia de lucru, selectați unul sau mai mulți angajați, apoi faceți clic pe butonul Butonul de formă .

Pasul 8: Solicitări Excel Outlook la prânz și creează sau trimite e-mailuri angajaților selectați. Pe măsură ce selectați doi dintre angajați, Outlook generează două proiecte de e-mail diferite, gata de a fi trimise.

Deoarece macroul oferă doar Afișare comandă, Outlook afișează doar proiectul de e-mail fără a-l trimite. Utilizați opțiunea Trimiteți pentru a trimite automat e-mailuri de la Excel la Outlook utilizând intrări în celule.

Citește mai mult: Macro Excel pentru trimiterea automată a e-mailurilor (3 exemple adecvate)

Metoda 2: Trimiterea automată a e-mailului din Excel în Outlook în funcție de valoarea specifică a celulei

Ce se întâmplă dacă dorim să trimitem un e-mail automat după atingerea obiectivelor din Excel la Outlook ? un cod macro poate face această treabă cu ușurință.

Să presupunem că avem Date trimestriale de vânzări așa cum este ilustrat mai jos, după atingerea unui obiectiv (adică, Vânzări> 2000 ) va solicita automat Outlook pentru a trimite un e-mail din Excel către un ID de e-mail atribuit.

Pasul 1: Introduceți următorul cod macro în orice Modul .

 Option Explicit Dim Rng As Range Sub Worksheet_Change(ByVal mRng As Range) On Error Resume Next If mRng.Cells.Count> 1 Then Exit Sub Set Rng = Intersect(Range("F17"), mRng) If Rng Is Nothing Then Exit Sub If IsNumeric(mRng.Value) And Target.Value> 2000 Then Call ExcelToOutlook End If End If End Sub Sub ExcelToOutlook() Dim mApp As Object Dim mMail As Object Dim mMailBody As String Set mApp =CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) mMailBody = "Greetings Sir" & vbNewLine & vbNewLine & _ "Punctul nostru de vânzare are vânzări trimestriale mai mari decât ținta." & vbNewLine & _ "Este un mail de confirmare." & vbNewLine & vbNewLine & vbNewLine & _ "Cu drag" & vbNewLine & _ "Outlet Team" On Error Resume Next With mMail .To = "[email protected]" .CC = "".BCC = "" .Subject = "Notification on Achieving Sales Target" .Body = mMailBody .Display 'sau puteți folosi .Send End With On Error GoTo 0 Set mMail = Nothing Set mApp = Nothing End Sub 

➤ Din imaginea de mai sus, în secțiunile,

1 - atribuiți o celulă (adică, F17 ) în cadrul unui interval pentru a executa VBA IF În cazul în care declarația are ca rezultat Adevărat , macroul cheamă un alt macro pentru execuție.

2 - să declare tipuri de variabile și să le atribuie pentru a popula Outlook 's entries.

3 - efectua VBA cu pentru a atribui variabile la intrările de e-mail. Utilizați instrucțiunea Trimiteți în loc de Afișare în cazul în care doriți să trimiteți direct e-mailuri fără a le revizui. E-mailul destinatarului este inserat în cadrul macroului. Utilizați metode alternative în cazul în care doriți o inserare automată a ID-ului de e-mail al destinatarului.

4 - șterge anumite variabile de la atribuire.

Pasul 2: Utilizați butonul F5 pentru a rula macroul. Într-o clipă, Excel extrage Outlook cu un proiect de e-mail creat automat, așa cum se arată în cele ce urmează. Puteți face clic pe Trimiteți sau trimiterea automată folosind Trimiteți în macro.

Citește mai mult: Trimiteți automat e-mailuri din Excel pe baza conținutului celulelor (2 metode)

Lecturi similare

• Cum să vedeți cine se află într-un fișier Excel partajat (cu pași rapizi)
• Activați partajarea registrului de lucru în Excel
• Cum să partajați fișierul Excel pentru mai mulți utilizatori
• Cum să aplicați macro pentru a trimite e-mailuri din Excel cu atașament

Metoda 3: Utilizarea macro VBA pentru a trimite e-mail cu foaie de lucru activă din Excel de către Outlook

Alternativ, pot exista cazuri în care trebuie să trimitem un întreg fișier Foaie activă la o adresă de e-mail atribuită. În acest caz, putem folosi un Funcție personalizată VBA să fie apelată în cadrul unei macro.

Pasul 1: Introduceți macroul de mai jos în fișierul Modul .

 Function ExcelOutlook(mTo, mSub As String, Optional mCC As String, Optional mBd As String) As Boolean On Error Resume Next Dim mApp As Object Dim rItem As Object Set mApp = CreateObject("Outlook.Application") Set rItem = mApp.CreateItem(0) With rItem .To = mTo .CC = "" .Subject = mSub .Body = mBd .Attachments.Add ActiveWorkbook.FullName .Display 'sau puteți folosi .Send End With Set rItem = NothingSet mApp = Nothing End Function Sub OutlookMail() Dim mTo As String Dim mSub As String Dim mBd As String mTo = "[email protected]" mSub = "Date de vânzări trimestriale" mBd = "Salutări domnule" & vbNewLine & vbNewLine & _ "Vă rugăm să găsiți datele de vânzări trimestriale ale Outlet atașate la acest e-mail." & vbNewLine & _ "Este un e-mail de notificare." & vbNewLine & vbNewLine & vbNewLine & _ "Salutări" &vbNewLine & _ "Outlet Team" If ExcelOutlook(mTo, mSub, , mBd) = True Then MsgBox "A creat cu succes proiectul de mail sau a trimis" End If End Sub 

➤ Din imaginea de mai sus, secțiunile codului,

1 - declarați și setați variabilele.

2 - atribuiți comenzile cu ajutorul funcției VBA cu Utilizați declarația Afișare sau Trimiteți pentru revizuirea sau trimiterea directă a e-mailurilor.

3 - șterge variabilele setate anterior.

4 - atribuie VBA cu comenzi cu texte.

5 - executați Funcție personalizată VBA .

Pasul 2: Pentru a executa macroul, apăsați F5 , și instantaneu Excel scoate la iveală Outlook cu un proiect de e-mail pentru a fi revizuit, similar cu imaginea de mai jos. După aceea, puteți să-l trimiteți.

Citește mai mult: Cum să trimiteți e-mailuri în masă din Outlook utilizând Excel (3 moduri)

Metoda 4: Trimiterea automată de e-mail din Excel la Outlook folosind funcția HYPERLINK

The HYPERLINK generează un link pe care se poate da click în celulele Excel pentru a aduce Outlook ca mijloc de a trimite e-mailuri automate din Excel.

Pasul 1: Introduceți următoarea formulă în celulă H5 .

The HYPERLINK funcția ia "MailTo:"&C5&"?Subject="&F5&"&cc="&$D$2&"&body="G 5 ca link_location , și "Click aici" ca nume_prietenos .

Pasul 2: Hit ENTER pentru a lipi link-ul. Apoi faceți clic pe link.

Pasul 3: Excel vă duce la Outlook . și vezi toate Outlook intrările sunt completate cu datele alocate din Excel. Faceți clic pe Trimiteți .

Pasul 4: Trageți de butonul Mâner de umplere pentru a aplica formula în alte celule.

Citește mai mult: Cum să trimiteți automat un e-mail atunci când se îndeplinește o condiție în Excel

Concluzie

Variante de macro VBA și HYPERLINK funcția poate fi utilă în timpul trimiterii automate de e-mailuri din Excel în Outlook. Sper să găsiți metoda preferată printre cele descrise mai sus. Comentați, dacă aveți întrebări suplimentare sau dacă aveți ceva de adăugat.