Amikor a felhasználók e-maileket küldenek ügyfeleiknek vagy főnökeiknek, elég nehéz nyomon követni. Ebben az esetben az Excel jól jön. Ezért az "automatikus e-mail küldés a Excel a címre. Kilátások" bizonyítottan időtakarékos megközelítésnek bizonyult. Excel VBA makrók és a HYPERLINK funkcióval automatikus e-maileket küldhet, vagy tervezetet hozhat létre Excel bejegyzések segítségével.

Tegyük fel, hogy Alkalmazott átszervezett fizetés adatokat Excelben, és automatikus e-mailt szeretnénk küldeni a Outlook .

Ebben a cikkben bemutatjuk a VBA makrók és a HYPERLINK funkció automatikus e-mail küldésére a Excel a címre. Outlook .

Excel munkafüzet letöltése

⧭ Microsoft Visual Basic megnyitása és kód beillesztése a modulba

Mielőtt bármilyen módszert bemutatnánk, ismernünk kell, hogyan lehet megnyitni és beilleszteni egy Modul a Microsoft Visual Basic Excelben.

🔄 Microsoft Visual Basic megnyitása: Főleg a következők vannak 3 nyitási módok Microsoft Visual Basic ablak.

1. Billentyűparancsok használata: Sajtó ALT+F11 összességében kinyitni Microsoft Visual Basic ablak.

2. A Fejlesztő lap használata: Egy Excel munkalapon, Menjen a Fejlesztő lap > Válassza ki Visual Basic . Microsoft Visual Basic ablak jelenik meg.

3. A Munkalap lap használatával: Menjen bármelyik munkalapra, Jobb klikk a on it> Válassza ki Kód megtekintése (a Kontextus Menü ).

🔄 Modul beszúrása a Microsoft Visual Basicben: Vannak 2 a beillesztés módjai Modul a oldalon. Microsoft Visual Basic ablak,

1. A Sheet opcióinak használata: Miután megnyitotta a Microsoft Visual Basic ablakban válasszon egy Munkalap > Jobb klikk a on it> Select Beillesztés (a Kontextus menü )> majd válassza a Modul .

2. Eszköztár használata: Megteheti ezt úgy is, hogy kiválasztja a Beillesztés (a Eszköztár )> akkor a Modul .

4 Egyszerű módja az automatikus e-mail küldésének az Excelből az Outlookba

Módszer 1: VBA makró használata az Outlook segítségével automatikusan e-mailt küld a kiválasztott címzetteknek

Makró végrehajtást szeretnénk létrehozni Gomb amellyel egyszerűen, egyetlen kattintással küldhetünk levelet a kiválasztott címzetteknek.

1. lépés: Menjen a Beillesztés tab> Formák > Válassza ki a felkínált formák bármelyikét (pl., Téglalap alakú: lekerekített sarkok ).

2. lépés: Húzza a Plusz ikon ahová be akarja illeszteni a Shape ahogy az alábbi képen látható.

3. lépés: Válasszon egy preferált Shape kitöltés és Vázlat Színes majd kattintson rá a jobb gombbal. Kattintson a Szöveg szerkesztése a szöveg beillesztéséhez.

4. lépés: Használja a utasítás kinyitni Microsoft Visual Basic és helyezze be Modul Illessze be a következő makrót a 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 ' Használhatod a .Send-et End With Next r End Sub 

➤ a kódban,

1 - kezdjük a makróeljárást a változók deklarálásával, mint Objektum és String .

2 - futtasson egy VBA FOR ciklus a kiválasztás minden egyes sorára, hogy hozzárendelje az Email Send To , Tárgy: , és Test sorbejegyzések használatával.

3 - változók hozzárendelése.

4 - elvégezni a VBA-val utasítás a Outlook olyan tételek, mint például Send To , Mail Tárgy , stb. Itt a makró csak a Megjelenítés parancsot, hogy előhozza Outlook egy e-mail tervezettel. Azonban, ha Küldje el a parancsot a Megjelenítés, Outlook elküldi a létrehozott e-mailt a kiválasztott címzetteknek.

5 - befejezni a VBA FOR hurok.

5. lépés: Térjen vissza a munkalapra. Kattintson a jobb gombbal a Shape majd válassza a Makró hozzárendelése a Kontextus menü lehetőségek.

6. lépés: Válassza ki a makrót (pl, ExcelToOutlookSR ) a Makró neve és válassza a Makró a opciót, mint Ez a munkafüzet . Kattintson a OK .

7. lépés: Most a munkalapon jelölje ki az egyik vagy több alkalmazottat, majd kattintson a Shape gomb .

8. lépés: Excel felszólítások Outlook ebédre, és e-maileket hoz létre vagy küld a kiválasztott alkalmazottaknak. Ahogy kiválaszt két alkalmazottat, Outlook két különböző, elküldésre kész e-mail tervezetet készít.

Mivel a makró csak a Megjelenítés parancs, Outlook csak megjeleníti az e-mail tervezetet, de nem küldi el. Használja a Küldje el a paranccsal automatikusan e-maileket küldhet a Excel a címre. Outlook cellabejegyzések használatával.

Bővebben: Excel makró az automatikus e-mail küldéshez (3 megfelelő példa)

Módszer 2: E-mail automatikus küldése az Excelből az Outlookba az adott cellaértéktől függően

Mi van akkor, ha automatikus e-mailt szeretnénk küldeni a célok elérése után a Excel a címre. Outlook Egy makró kód könnyedén elvégezheti ezt a feladatot.

Tegyük fel, hogy Negyedéves értékesítési adatok az alábbi ábrán látható módon, egy cél elérése után (azaz, Értékesítés> 2000 ) automatikusan kérni fogja Outlook hogy e-mailt küldjön az Excelből egy hozzárendelt e-mail azonosítóra.

1. lépés: Írja be a következő makró kódot bármelyik 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 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 = "Üdvözlet uram" & vbNewLine & vbNewLine & _ "Az üzletünk negyedéves eladásai meghaladják a célértéket." & vbNewLine & _ "Ez egy megerősítő levél." & vbNewLine & vbNewLine & _ "Üdvözlet" & vbNewLine & _ "Outlet Team" On Error Resume Next With mMail .To = "[email protected]" .CC = "".BCC = "" .Subject = "Értesítés az értékesítési cél eléréséről" .Body = mMailBody .Display 'vagy használhatja a .Send-et End With On Error GoTo 0 Set mMail = Nothing Set mApp = Nothing End Sub 

➤ A fenti képen, a szakaszokban,

1 - hozzárendelni egy cellát (pl, F17 ) egy tartományon belül a VBA IF Ha az utasítás eredménye Igaz , a makró egy másik makrót hív meg végrehajtásra.

2 - változótípusok deklarálása és hozzárendelése a kitöltéshez Outlook bejegyzései.

3 - előadni VBA-val utasítással változókat rendelhetünk e-mail bejegyzésekhez. Használjuk a Küldje el a parancs helyett Megjelenítés abban az esetben, ha közvetlenül, ellenőrzés nélkül szeretne e-maileket küldeni. A címzett e-mail címe beillesztésre kerül a makróba. Használjon alternatív módszereket abban az esetben, ha a címzett e-mail azonosítójának automatikus beillesztését szeretné.

4 - bizonyos változók törlése a hozzárendelésből.

2. lépés: Használja a F5 billentyűvel a makró futtatásához. Egy pillanat múlva az Excel előhívja a Outlook egy automatikusan létrehozott e-mail tervezettel, ahogy az a következőkben látható. Kattintson a Küldje el a vagy automatikus küldés a Küldje el a parancsot a makróban.

Bővebben: Automatikusan küldjön e-maileket az Excelből a cellák tartalma alapján (2 módszer)

Hasonló olvasmányok

• Hogyan láthatja, hogy ki van egy megosztott Excel-fájlban (gyors lépésekkel)
• Munkalap megosztásának engedélyezése az Excelben
• Hogyan ossza meg az Excel-fájlt több felhasználó számára
• Hogyan kell alkalmazni a makrót az Excelből származó e-mail küldésére csatolmányt tartalmazó e-mail küldésére

Módszer 3: VBA makró használata az Outlook által az Excelből származó aktív munkalapokkal ellátott e-mail küldéséhez az Outlook segítségével

Alternatívaként előfordulhatnak olyan esetek, amikor egy teljes Aktív lap egy hozzárendelt e-mail címre. Ebben az esetben használhatunk egy VBA egyéni funkció egy makrón belül meghívandó.

1. lépés: Szúrja be az alábbi makrót a 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 'vagy használhatja a .Send-et End With Set rItem = Nothing.Set mApp = Nothing End Function Sub OutlookMail() Dim mTo As String Dim mSub As String Dim mBd As String mTo = "[email protected]" mSub = "Negyedéves értékesítési adatok" mBd = "Üdvözlettel, uram" & vbNewLine & vbNewLine & _ "Kérjük, találja meg az Outlet negyedéves értékesítési adatait csatolva ehhez a levélhez." & vbNewLine & _ "Ez egy értesítési levél." & vbNewLine & vbNewLine & _ "Üdvözlettel" &vbNewLine & _ "Outlet Team" If ExcelOutlook(mTo, mSub, , mBd) = True Then MsgBox "Sikeresen létrehozta a Mail tervezetet vagy elküldte" End If End Sub 

➤ A fenti képen a kód szakaszai,

1 - a változók deklarálása és beállítása.

2 - a parancsok hozzárendelése a VBA-val nyilatkozat. Használja a Megjelenítés vagy Küldje el a parancsot az e-mailek áttekintéséhez, illetve közvetlen küldéséhez.

3 - törli a korábban beállított változókat.

4 - rendelje hozzá a VBA-val parancsok szövegekkel.

5 - végrehajtja a VBA egyéni funkció .

2. lépés: A makró végrehajtásához nyomja meg a F5 , és az Excel azonnal előhozza a Outlook egy az alábbi képhez hasonló e-mail tervezetet, amelyet át kell néznie. Ezt követően már el is küldheti.

Bővebben: Hogyan küldhetünk tömeges e-mailt az Outlookból az Excel használatával (3 módok)

Módszer 4: Automatikus e-mail küldése az Excelből az Outlookba a HYPERLINK funkció használatával

A HYPERLINK függvény egy kattintható linket generál az Excel cellákban, hogy a Outlook az Excelből automatikus e-mailek küldésének médiumaként.

1. lépés: Írja be a következő képletet a cellába H5 .

A HYPERLINK funkció a "MailTo:"&C5&"?Subject="&F5&"&cc="&$D$2&"&body="G 5 mint link_location , és "Kattintson ide" mint friendly_name .

2. lépés: Hit BELÉPÉS a link beillesztéséhez, majd kattintson a linkre.

3. lépés: Excel elviszi Önt a Outlook . És látod az összes Outlook a bejegyzéseket az Excelből hozzárendelt adatokkal töltik ki. Kattintson a Küldje el a .

4. lépés: Húzza a Töltse ki a fogantyút a képlet más cellákra való alkalmazásához.

Bővebben: Hogyan küldhetünk automatikusan e-mailt, ha az Excelben teljesül a feltétel

Következtetés

VBA makró változatok és HYPERLINK funkció hasznos lehet az automatikus e-mailek Excelből az Outlookba történő küldése során. Remélem, megtalálja a fent leírtakon belül a kívánt módszert. Kommentáljon, ha további kérdései vannak, vagy bármit hozzátenni szeretne.