Kad lietotāji sūta e-pasta vēstules saviem klientiem vai priekšniekiem, ir diezgan grūti sekot līdzi. Šādā gadījumā Excel ir ļoti noderīgs. Tāpēc "sūtīt automātisku e-pastu no Excel uz Outlook" ir pierādījies, ka tā ietaupa laiku. Excel VBA makroekrāni un HYPERLINK funkcija var sūtīt automātiskus e-pasta ziņojumus vai izveidot projektu, izmantojot Excel ierakstus.

Pieņemsim, ka mums ir Darbinieka pārstrukturētā alga datus programmā Excel, un mēs vēlamies nosūtīt automātisku e-pastu, izmantojot Outlook .

Šajā rakstā mēs demonstrējam vairākus variantus VBA makroekrāni un HYPERLINK funkcija, lai nosūtītu automātisku e-pastu no Excel uz Outlook .

Lejupielādēt Excel darbgrāmatu

⧭ Microsoft Visual Basic atvēršana un koda ievietošana modulī

Pirms sākt demonstrēt jebkuras metodes, ir jāzina, kā atvērt un ievietot a Modulis in the Microsoft Visual Basic programmā Excel.

🔄 Microsoft Visual Basic atvēršana: Galvenokārt ir 3 veidi, kā atvērt Microsoft Visual Basic logs.

1. Tastatūras īsceļu izmantošana: Spiediet ALT+F11 pavisam atvērt Microsoft Visual Basic logs.

2. Izmantojot cilni Izstrādātājs: Excel darblapā dodieties uz Izstrādātāja cilne > Izvēlieties Visual Basic . Microsoft Visual Basic parādās logs.

3. Izmantojiet cilni Darblapa: Pārejiet uz jebkuru darblapu, Ar peles labo poguļa klikšķi par to> Izvēlieties Skatīt kodu (no Konteksts Izvēlne ).

🔄 Moduļa ievietošana programmā Microsoft Visual Basic: Ir 2 veidi, kā ievietot Modulis vietnē Microsoft Visual Basic logs,

1. Lapas opciju izmantošana: Pēc atvēršanas Microsoft Visual Basic logā atlasiet Darba lapa > Ar peles labo poguļa klikšķi par to> Izvēlieties Ievietot (no Konteksta izvēlne )> tad izvēlieties Modulis .

2. Rīkjoslas izmantošana: To var izdarīt arī, izvēloties Ievietot (no Rīkjosla )> tad izvēloties Modulis .

4 vienkārši veidi, kā automātiski nosūtīt e-pastu no Excel uz Outlook

1. metode: VBA makroekrānu izmantošana, lai automātiski nosūtītu e-pastu, izmantojot Outlook, atlasītajiem saņēmējiem

Mēs vēlamies izveidot makro izpildi Poga ar kuru mēs varam vienkārši nosūtīt pastu izvēlētajiem adresātiem, tikai klikšķinot.

1. solis: Dodieties uz Ievietot cilne> Formas > Izvēlieties jebkuru no piedāvātajām formām (t.i.., Taisnstūra formas: noapaļoti stūri ).

2. solis: Velciet Plus ikona kur vēlaties ievietot Forma kā parādīts attēlā zemāk.

3. solis: Izvēlieties vēlamo Formas aizpildījums un Kontūra Krāsa pēc tam noklikšķiniet uz tā ar peles labo pogu. Noklikšķiniet uz Rediģēt tekstu lai ievietotu tekstu.

4. solis: Izmantojiet instrukcija lai atvērtu Microsoft Visual Basic un ievietojiet Modulis . Ievietojiet šādu makro Modulis .

 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 ' Jūs varat izmantot .Send End With Next r End Sub 

➤ kodā,

1 - sākt makro procedūru, deklarējot mainīgos kā Objekts un Virknes .

2 - palaist VBA FOR cilpa katrai atlases rindai, lai piešķirtu e-pasta ziņu Nosūtīt uz , Temats , un Ķermenis izmantojot rindu ierakstus.

3 - piešķirt mainīgos.

4 - veikt VBA ar paziņojums, lai aizpildītu Outlook tādus priekšmetus kā Sūtīt uz , Pasta priekšmets , utt. Šajā gadījumā makro izpildīs tikai Displejs komandu, lai izceltu Outlook ar e-pasta projektu. Tomēr, ja Sūtīt komandu izmanto vietā vai pēc Displejs, Outlook nosūtīs izveidoto e-pastu atlasītajiem adresātiem.

5 - pabeigt VBA FOR cilpa.

5: Atgriezieties darblapā. Ar peles labo pogu noklikšķiniet uz Forma pēc tam atlasiet Piešķirt makro no Konteksta izvēlne iespējas.

6. solis: Izvēlieties makrokonsoli (t. i., ExcelToOutlookSR ) saskaņā ar Makro nosaukums un izvēlieties Makro in opciju kā Šī darba burtnīca . Noklikšķiniet uz LABI .

7. solis: Tagad darblapā atlasiet vienu vai vairākus darbiniekus, pēc tam noklikšķiniet uz Formas poga .

8. solis: Excel uzvedņi Outlook uz pusdienām un izveido vai nosūta e-pasta ziņojumus atlasītajiem darbiniekiem. Atlasot divus darbiniekus, Outlook ģenerē divus dažādus e-pasta projektus, kas ir gatavi nosūtīšanai.

Tā kā makro nodrošina tikai Displejs komanda, Outlook tikai parāda e-pasta melnrakstu, bet to nenosūta. Izmantojiet Sūtīt komandu, lai automātiski nosūtītu e-pasta ziņojumus no Excel uz Outlook izmantojot šūnu ierakstus.

Lasīt vairāk: Excel makro programma automātiskai e-pasta sūtīšanai (3 piemēroti piemēri)

2. metode: Automātiska e-pasta sūtīšana no Excel uz Outlook atkarībā no konkrētas šūnas vērtības

Ko darīt, ja mēs vēlamies nosūtīt automātisku e-pastu pēc mērķu sasniegšanas no Excel uz Outlook ? Šo uzdevumu var viegli veikt ar makrokodu.

Pieņemsim, ka mums ir Ceturkšņa pārdošanas dati kā parādīts turpmāk, pēc mērķa sasniegšanas (t.i., Pārdošana> 2000 ) automātiski parādīsies Outlook lai nosūtītu e-pastu no programmas Excel uz piešķirto e-pasta id.

1. solis: Ievadiet šādu makrokodu jebkurā Modulis .

 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 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 = "Sveiciens, kungs" & vbNewLine & vbNewLine & _ "Mūsu tirdzniecības vietā ir ceturkšņa Pārdošana vairāk nekā mērķis." & vbNewLine & _ "Tas ir apstiprinājuma vēstule." & vbNewLine & vbNewLine & _ "Ar sveicienu" & vbNewLine & _ "Izstādes komanda" On Error Resume Next With mMail .To = "[email protected]" .CC = "".BCC = "" .Subject = "Paziņojums par pārdošanas mērķa sasniegšanu" .Body = mMailBody .Display 'vai varat izmantot .Send End With On Error GoTo 0 Set mMail = Nothing Set mApp = Nothing End Sub 

➤ No iepriekš redzamā attēla sadaļās,

1 - piešķirt šūnai (t. i., F17 ) diapazonā, lai izpildītu VBA IF Ja izteikuma rezultāts ir True , makro izsauc citu makro, lai to izpildītu.

2 - deklarēt mainīgo tipus un piešķirt tos, lai aizpildītu Outlook ierakstus.

3 - veikt VBA ar paziņojums, lai piešķirtu mainīgos e-pasta ierakstiem. Izmantojiet Sūtīt komandu, nevis Displejs ja vēlaties tieši nosūtīt e-pasta ziņojumus, tos nepārskatot. Saņēmēja e-pasta adrese tiek ievietota makrā. Ja vēlaties automātiski ievietot saņēmēja e-pasta id, izmantojiet alternatīvas metodes.

4 - dzēst noteiktus mainīgos no piešķiršanas.

2. solis: Izmantojiet F5 taustiņu, lai palaistu makro. Pēc brīža Excel iegūst Outlook ar automātiski izveidoto e-pasta melnrakstu, kā parādīts turpmāk. Jūs varat noklikšķināt uz Sūtīt vai automātiski nosūtīt, izmantojot Sūtīt makro komandu.

Lasīt vairāk: Automātiska e-pasta sūtīšana no Excel, pamatojoties uz šūnu saturu (2 metodes)

Līdzīgi lasījumi

• Kā noskaidrot, kas ir kopīgajā Excel failā (ar ātriem soļiem)
• Iespējot kopīgot darbgrāmatu programmā Excel
• Kā kopīgot Excel failu vairākiem lietotājiem
• Kā lietot makro, lai nosūtītu e-pastu no Excel ar pielikumu

3. metode: Izmantojot VBA makro, lai nosūtītu e-pastu ar aktīvu darblapu no Excel, izmantojot Outlook

Alternatīvi var būt gadījumi, kad mums ir nepieciešams nosūtīt visu Aktīvā lapa uz piešķirto e-pasta adresi. Šādā gadījumā mēs varam izmantot VBA pielāgotā funkcija izsaukt makroprogrammā.

1. solis: Ievietojiet tālāk norādīto makro Modulis .

 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 'or you can use .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 = "Ceturkšņa pārdošanas dati" mBd = "Sveiciens, kungs" & vbNewLine & vbNewLine & _ "Kindly find Outlet's Quarterly Sales data attached with this mail." & vbNewLine & _ "It's a notification mail." & vbNewLine & _ "Ar sveicienu" &vbNewLine & amp; _ "Outlet Team" If ExcelOutlook(mTo, mSub, , mBd) = True Then MsgBox "Veiksmīgi izveidots pasta projekts vai nosūtīts" End If End If End Sub 

➤ No iepriekš redzamā attēla, koda sadaļas,

1 - deklarēt un iestatīt mainīgos.

2 - piešķirt komandas, izmantojot VBA ar paziņojums. Izmantojiet Displejs vai Sūtīt komandu, lai attiecīgi pārskatītu vai tieši nosūtītu e-pasta ziņojumus.

3 - dzēst iepriekš iestatītos mainīgos.

4 - piešķirt VBA ar komandas ar tekstiem.

5 - izpildīt VBA pielāgotā funkcija .

2. solis: Lai izpildītu makro, nospiediet F5 , un Excel uzreiz parādīs Outlook ar e-pasta ziņojuma projektu, lai to pārskatītu, līdzīgi kā attēlā zemāk. Pēc tam varat to nosūtīt.

Lasīt vairāk: Kā sūtīt liela apjoma e-pastu no Outlook, izmantojot Excel (3 veidi)

4. metode: Automātiskā e-pasta sūtīšana no Excel uz Outlook, izmantojot HYPERLINK funkciju

Portāls HYPERLINK funkcija ģenerē klikšķināmu saiti Excel šūnās, lai Outlook kā līdzekli automātisku e-pasta vēstuļu sūtīšanai no Excel.

1. solis: Ievadiet šādā šūnā šādu formulu H5 .

Portāls HYPERLINK funkcija uzņem "MailTo:"&C5&"?Subject="&F5&"&cc="&$D$2&"&body="G 5 kā link_location , un "Noklikšķiniet šeit" kā friendly_name .

2. solis: Hit IEVADIET lai ielīmētu saiti. Pēc tam noklikšķiniet uz saites.

3. solis: Excel jūs aizvedīs uz Outlook . Un jūs redzat visus Outlook ieraksti ir aizpildīti ar piešķirtajiem datiem no Excel. Noklikšķiniet uz Sūtīt .

4. solis: Velciet Uzpildes rokturis lai piemērotu formulu citām šūnām.

Lasīt vairāk: Kā automātiski sūtīt e-pastu, kad izpildīts nosacījums programmā Excel

Secinājums

VBA makroekrānu varianti un HYPERLINK funkcija var būt noderīga, vienlaikus nosūtot automātiskus e-pastus no Excel uz Outlook. Ceru, ka jūs atradīsiet vēlamo metodi iepriekš aprakstītajās. Komentējiet, ja jums ir papildu jautājumi vai ir ko pievienot.