Makro e-posti saatmiseks Excelist (5 sobivat näidet)

Hugh West

16-10-2023 Makros &; Excel VBA
  • Jaga Seda
Hugh West

Selles artiklis näitame teile 5 Makro aadressile Saada e-kiri aadressilt Excel Meie meetodite demonstreerimiseks oleme valinud andmekogumi, millel on 3 veergu : " Nimi ", " E-post ", ja " Linn ".

Lae alla praktiline töövihik

Makro kasutamine e-posti saatmiseks.xlsm

5 viisi, kuidas kasutada makroid Exceli e-posti saatmiseks

1. Outlooki objektiraamatukogu kasutamine e-kirjade saatmiseks

Esimese Makro , me lubame " Microsoft Outlook 16.0 objektide raamatukogu " kuni saatke an e-posti aadress aadressilt Excel Peale selle tuleb meil sisse logida meie Outlook konto Excel .

Sammud:

Alguses toome üles Visual Basic aken.

  • Esiteks, alates Arendaja tab>>>> valige Visual Basic .

Teise võimalusena võite vajutada ALT + F11 kuvada VBA aken.

  • Teiseks, alates Tööriistad >>> valige " Viited... ".

Uus dialoogiboks ilmub.

  • Kolmandaks valige " Microsoft Outlook 16.0 objektide raamatukogu ", ja vajutage OK .

Seega võimaldame me Outlooki objektide raamatukogu .

  • Neid alates Sisesta >>>> valige Moodul .

Kirjutame oma koodi siia.

  • Pärast seda sisestage järgmine kood. 
 Sub Macro_Send_Email() Dim eApp As Outlook.Application Dim eSource As String Set eApp = New Outlook.Application Dim eItem As Outlook.MailItem Set eItem = eApp.CreateItem(olMailItem) eItem.To = Range("C5").Value 'Need elemendid on vabatahtlikud 'eItem.CC = "[email protected]" 'etem.BCC = "[email protected]" eItem.Subject = "E-posti saatmine VBA abil Excelist" eItem.Body = "Tere," & vbNewLine &"Hope this email finds you well." & _ vbNewLine & vbNewLine & _ "Sincerely," & vbNewLine & "Exceldemy" 'Kui soovite seda töövihikut lisada, siis kommenteerige need kaks rida alt välja 'Source = ThisWorkbook.FullName 'eItem.Attachments.Add Source eItem.Display 'võib kasutada .Send End Sub

VBA koodi lahtikirjutamine

  • Esiteks, me kutsume meie Alammenetlus Macro_Send_Email .
  • Teiseks, me kuulutame välja muutuv tüübid.
  • Kolmandaks, me valime Outlook nagu meie Posti taotlus .
  • Seejärel valime meie e-posti aadress saatmise aadress alates lahter C5 .
  • Pärast seda on e-posti aadress sisu on määratud meie koodis.
  • Lõpuks, " VBA kuvamise omadus " kasutatakse siin, et kuvada meie e-posti aadress Seetõttu peame vajutama Saada käsitsi, et saatke . e-kirjad Lisaks võime kasutada " Saada kinnisvara " kuni saata e-kirju ilma näitamata.
  • Pärast seda, Salvesta ja sulgeda Moodul .

Nüüd me Käivita kood.

  • Esiteks, alates Arendaja tab>>>> valige Makros .

The Makro dialoogiboks ilmub.

  • Teiseks, valige meie Alammenetlus " Macro_Send_Email ".
  • Lõpuks vajutage Käivita .

Pärast koodi täitmist näeme, et e-post aknas. Me võime klõpsata Saada . Seega oleme näidanud teile esimest meetodit. saatmine an e-posti aadress aadressilt excel kasutades VBA .

Loe edasi: Saatke e-kirju Excel VBA-st ilma Outlookita (4 Sobivad näited)

2. Makro e-posti saatmiseks Gmaili kontolt Excelis

Selle meetodi jaoks vajame vähem turvaline juurdepääs rakendusele alates Gmail Lisaks sellele tuleb meil lubada Microsoft CDO alates Viited menüü.

Sammud:

  • Esiteks, nagu on näidatud esimeses meetodis , tuua üles Viited dialoogiboks .
  • Teiseks valige " Microsoft CDO for Windows 2000 raamatukogu " ja vajutage OK .

  • Kolmandaks, minge aadressile Turvalisus teie Google'i konto seaded .
  • Lõpuks lülitage sisse Vähem turvaline juurdepääs rakendusele .

Nüüd sisestame meie Makro kood.

  • Esiteks, nagu näidatud meetodis 1 , tuua üles Moodul aknas ja sisestage see kood. 
 Option Explicit Sub Send_Gmail_Macro() Dim cMail As Object Dim cConfig As Object Dim sConfig As Variant Dim cSubject As String Dim cFrom As String Dim cTo As String Dim cCC As String Dim cBcc As String Dim cBody As String cSubject = "Makro Gmaili saatmiseks" cFrom = "[email protected]" cTo = "[email protected]" cBody = "Tere. See on automaatne sõnum. Palun ärge vastake" Set cMail =CreateObject("CDO.Message") On Error GoTo Error_Handling Set cConfig = CreateObject("CDO.Configuration") cConfig.Load -1 Set sConfig = cConfig.Fields With sConfig .Item("//schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("//schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .Item("//schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1.Item("//schemas.microsoft.com/cdo/configuration/sendername") = "[email protected]" .Item("//schemas.microsoft.com/cdo/configuration/sendpassword") = "SenderGmailPassword" .Item("//schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 .Item("//schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Update End With With With cMail Set .Configuration = cConfig End With cMail.Subject =cSubject cMail.From = cFrom cMail.To = cTo cMail.TextBody = cBody cMail.CC = cCC cMail.BCC = cBcc cMail.Send Error_Handling: If Err.Description "" Then MsgBox Err.Description End Sub

VBA koodi lahtikirjutamine

  • Esiteks, me kutsume meie Alammenetlus Send_Gmail_Macro .
  • Teiseks, me kuulutame välja muutuv tüübid.
  • Kolmandaks, me kehtestame e-posti aadress sisu meie koodis.
  • Seejärel pakume oma sisselogimise andmed Te peate ise kirjutama oma ID ja Parool siin.
  • Pärast seda oleme seadnud sadam aadressile 465 .
  • Lõpuks oleme me saatmine meie e-posti aadress .
  • Siis, Salvesta ja Käivita see kood.

Me oleme edukalt saadetud an e-posti aadress meie aadressile.

Loe edasi: Makro Exceli e-kirja saatmiseks koos kehaosaga (3 kasulikku juhtumit)

3. Saatke e-kiri saajate loendisse veerust

Kolmanda meetodi puhul kasutame järgmist meetodit saata e-kirju aadressile 7 inimesed, kes kasutavad Makro aadressilt Excel Me leiame viimase rida meie andmestikust, seega töötab meie kood pikema nimekirja puhul. Me saata e-kirju alates lahter C5:C10 vahemik.

Sammud:

  • Esiteks, nagu näidatud meetodis 1 , tuua üles Moodul aknasse ja sisestage see kood. 
 Sub Macro_Send_Email_From_A_List() Dim pApp As Object Dim pMail As Object Dim z As Integer Dim eList As String Dim eRow As Long Set pApp = CreateObject("Outlook.Application") Set pMail = pApp.CreateItem(0) eRow = Range("C:C").SpecialCells(xlCellTypeLastCell).Row - 1 With pMail eList = "" For z = 5 To eRow If eList = "" Then eList = Cells(z, 3).Value Else eList = eList & ";" & Cells(z,3).Value End If Next z .BCC = eList .Subject = "Tere tulemast" .Body = "Selle sõnumi edastab teile Exceldemy." .Display 'Võite kasutada .Send siin End With Set pMail = Nothing Set pApp = Nothing End Sub

VBA koodi lahtikirjutamine

  • Esiteks, me kutsume meie Alammenetlus Macro_Send_Email_From_A_List .
  • Teiseks, me kuulutame välja muutuv tüübid.
  • Kolmandaks, me valime Outlook nagu meie Posti taotlus .
  • Siis leiame me viimane rida , mis on 10 meie andmekogumi jaoks.
  • Pärast seda, kui meie e-posti aadress algab alates rida 5 oleme sisestanud 5 algväärtusena " muutuja z ". Lisaks sellele on meie e-kirjad on C-sammas , seega oleme sisestanud 3 sees Rakud vara.
  • Siis paneme me paika e-posti aadress sisu meie koodis.
  • Lõpuks, " .Display " kasutatakse siin, et kuvada meie e-posti aadress Seetõttu peame vajutama Saada käsitsi, et saatke . e-kirjad Lisaks võime kasutada " .saatmine " kuni Saada e-kiri ilma näitamata.
  • Siis, Salvesta ja Käivita . Moodul .

Me näeme, et kõik meie e-kirjad kuvatakse BCC Kokkuvõtteks võime lihtsalt vajutada Saada meie ülesande täitmiseks.

Loe edasi: Kuidas saata e-kirju Exceli nimekirjast (2 tõhusat viisi)

Sarnased lugemised

  • Kuidas saata e-kiri automaatselt, kui Exceli tingimus on täidetud
  • Kuidas jagada Exceli faili võrgus (2 lihtsat meetodit)
  • Saada meeldetuletuse e-kiri automaatselt Exceli töölehest VBA abil
  • Kuidas saata e-kiri, kui tingimused on täidetud Excelis (3 lihtsat meetodit)
  • Kuidas lubada Exceli töövihiku jagamist

4. Makro ühe lehe saatmiseks e-posti teel

Selles jaotises me saatke . Aktiivne tööleht meie sihtisikule. Siinkohal peame valima asukoha meie Excel faili.

Sammud:

  • Esiteks, nagu on näidatud meetodis 1 , tuua üles Moodul aknas ja sisestage see kood. 
 Sub Macro_Email_Single_Sheet() Dim pApp As Object Dim pMail As Object Dim zBook As Workbook Dim fxName As String 'Dim zSheet As Worksheet 'Dim shtName As String Application.ScreenUpdating = False ActiveSheet.Copy Set zBook = ActiveWorkbook fxName = zBook.Worksheets(1).Name On Error Resume Next Kill "C:\Users\Rafi\OneDrive\Desktop\Softeko\47\" & fxName On Error GoTo 0 zBook.SaveAsFileName:="C:\Users\Rafi\OneDrive\Desktop\Softeko\47\" & fxName Set pApp = CreateObject("Outlook.Application") Set pMail = pApp.CreateItem(0) With pMail .To = "[email protected]" .Subject = "Makro ühe lehe saatmiseks e-posti teel" .Body = "Lugupeetud vastuvõtja nimi," & vbCrLf & vbCrLf & _ "Teie soovitud fail on lisatud" .Attachments.Add zBook.FullName .Display End WithzBook.ChangeFileAccess Mode:=xlReadOnly Kill zBook.FullName zBook.Close SaveChanges:=False Application.ScreenUpdating = True Set pMail = Nothing Set pApp = Nothing End Sub

VBA koodi lahtikirjutamine

  • Esiteks, me kutsume meie Alammenetlus Macro_Email_Single_Sheet .
  • Teiseks, me kuulutame välja muutuv tüübid.
  • Kolmandaks, me kopeerime Aktiivne leht ja salvestada see eraldi Töövihik .
  • Pärast seda valime Outlook nagu meie Posti taotlus .
  • Siis paneme me paika e-posti aadress sisu meie koodis.
  • Pärast seda oleme kinnitanud Leht et e-posti aadress .
  • Lõpuks kasutage " .Display ", et kuvada meie e-posti aadress Seetõttu peame vajutama Saada käsitsi, et saatke . e-kirjad Lisaks võime kasutada " .saatmine " kuni Saada e-kiri ilma näitamata.
  • Siis, Salvesta ja Käivita . Moodul .

Me näeme Leht nimi aknas. Vajutage Saada ülesande täitmiseks.

Me saame avatud faili ja kontrollida, et meie kood töötab.

Loe edasi: Kuidas saata redigeeritav Exceli tabel e-posti teel (3 kiiret meetodit)

5. Maakro, et saata e-kiri raku väärtuse alusel

Viimase meetodi puhul oleme oma andmestikku veidi muutnud. Lisasime " Maksmine Due " veerg andmekogumile. Siinkohal me saatke an e-posti aadress mis sisaldab linna " Obama ". Me näeme selgelt, et rida 5 sisaldab seda, seega me kavatseme saatke an e-posti aadress ainult sellele isikule.

Sammud:

  • Esiteks, nagu näidatud meetodis 1 , tuua üles Moodul aknasse ja sisestage see kood. 
 Option Explicit Sub Send_Email_Condition() Dim xSheet As Worksheet Dim mAddress As String, mSubject As String, eName As String Dim eRow As Long, x As Long Set xSheet = ThisWorkbook.Sheets("Conditions") With xSheet eRow = .Cells(.Rows.Count, 5).End(xlUp).Row For x = 5 To eRow If .Cells(x, 4)>= 1 And .Cells(x, 5) = "Obama" Then mAddress = .Cells(x, 3) mSubject = "Maksetaotlus" eName =.Cells(x, 2) Call Send_Email_With_Multiple_Condition(mAddress, mSubject, eName) End If Next x End With End Sub Send_Email_With_Multiple_Condition(mAddress As String, mSubject As String, eName As String) Dim pApp As Object Dim pMail As Object Set pApp = CreateObject("Outlook.Application") Set pMail = pApp.CreateItem(0) With pMail .To = mAddress .CC = "" .BCC = "" .Subject = mSubject .Body ="Hr./Raamatukogu " & eName & ", Palun makske tasumisele kuuluv summa järgmise nädala jooksul." _ & vbNewLine & "Täpne summa on lisatud sellele e-kirjale." .Attachments.Add ActiveWorkbook.FullName 'Saada fail e-posti teel .Display 'Me võime kasutada .Send ka siin End With Set pMail = Nothing Set pApp = Nothing End Sub

VBA koodi lahtikirjutamine

  • Esiteks, me kutsume oma esimest Alammenetlus Send_Email_Condition .
  • Teiseks, me kuulutame välja Muutuv tüübid ja seadistus " Tingimused " nagu meie Leht .
  • Kolmandaks, viimane rida number on leitud. Lisaks sellele algab meie väärtus alates rida 5 , seega oleme pannud rida 5 kuni viimase rida meie koodis.
  • Seejärel helistage meie teisele Alammenetlus Send_Email_With_Multiple_Condition (Saada_Emaili_mit_Multiple_Condition) .
  • Pärast seda valime Outlook nagu meie Posti taotlus .
  • Siis on e-posti aadress sisu on meie koodis määratud.
  • Siinkohal kinnitame me Excel faili koos e-posti aadress kasutades Lisa meetod.
  • Pärast seda " .Display " kasutatakse siin, et kuvada meie e-posti aadress Seetõttu peame vajutama Saada käsitsi, et saatke . e-kirjad Lisaks võime kasutada " .saatmine " kuni Saada e-kiri ilma näitamata.
  • Siis, Salvesta ja Käivita . Moodul .

Kokkuvõtteks oleme näidanud teile veel ühe meetodi, kuidas saatmine an e-posti aadress kasutades VBA makro aadressilt Excel .

Loe edasi: Automaatne e-posti saatmine Excelist lahtri sisu alusel (2 meetodit)

Praktika sektsioon

Me oleme lisanud harjutuse andmekogumid iga meetodi jaoks meetodi Excel faili.

Kokkuvõte

Me näitasime teile 5 kasutatavad meetodid Makro aadressile saatke an e-posti aadress aadressilt Excel Täname lugemise eest, jätkake suurepäraselt!

Eelmine postitus Kuidas eemaldada viimane number Excelis (6 kiiret meetodit)
Järgmine postitus Kuidas tühjendada printimisala Excelis (2 lihtsat viisi)

Hugh West on suurte kogemustega Exceli koolitaja ja analüütik, kellel on selles valdkonnas üle 10-aastane kogemus. Tal on raamatupidamise ja rahanduse bakalaureusekraad ning ärijuhtimise magistrikraad. Hugh’l on kirg õpetamise vastu ning ta on välja töötanud ainulaadse õpetamisviisi, mida on lihtne järgida ja mõista. Tema Exceli ekspertteadmised on aidanud tuhandetel õpilastel ja spetsialistidel üle maailma oma oskusi parandada ja karjääris silma paista. Oma ajaveebi kaudu jagab Hugh oma teadmisi maailmaga, pakkudes tasuta Exceli õpetusi ja veebikoolitusi, mis aitavad üksikisikutel ja ettevõtetel oma potentsiaali täielikult ära kasutada.