Exceldan elektron pochta xabarlarini yuborish uchun makro (5 ta mos misol)

Hugh West

16-10-2023 Makroslar va amp; Excel VBA
  • Buni Baham Ko'Ring
Hugh West

Ushbu maqolada biz sizga 5 Makro e-pochta Excel dan yuborishni koʻrsatamiz. Usullarimizni namoyish qilish uchun biz 3 ustunli maʼlumotlar toʻplamini tanladik: “ Ism ”, “ Email ” va “ Shahar ”.

Amaliyot kitobini yuklab oling

Email.xlsm yuborish uchun makrodan foydalanish

5 usul Exceldan elektron pochta xabarlarini yuborish uchun makrosdan foydalanish

1. E-pochta jo‘natish uchun Outlook obyektlar kutubxonasidan foydalanish

Birinchi Makro uchun biz “<1”ni yoqamiz>Microsoft Outlook 16.0 Object Library ” dan Excel dan elektron pochta yuborish uchun. Bundan tashqari, Excel -da Outlook hisobimizga kirishimiz kerak.

Qadamlar:

Boshida, biz Visual Basic oynasini ochamiz.

  • Birinchidan, Dasturchi yorlig'idan >>> Visual Basic -ni tanlang.

Muqobil ravishda VBA oynasini ko'rsatish uchun ALT + F11 tugmalarini bosishingiz mumkin.

  • Ikkinchidan, Asboblar >> “ Ma'lumotnomalar... ” ni tanlang.

Yangi muloqot oynasi paydo bo'ladi.

  • Uchinchidan, “ Microsoft Outlook 16.0 Object Library ” ni tanlang va OK tugmasini bosing.

Shunday qilib, biz Outlook Object Library-ni yoqamiz. .

  • Ular Insert >>> Module -ni tanlang.

Biz bu yerga kodimizni kiritamiz.

  • Bundan so'ng quyidagilarni yozing.kod. 
7917

VBA kodini ajratish

  • Birinchidan, biz Sub Procedure Macro_Send_Email -ga qo'ng'iroq qilamiz.
  • Ikkinchidan, biz o'zgaruvchining turlarini e'lon qilamiz.
  • Uchinchidan, biz' Outlook ni Pochta ilovamiz sifatida qayta tanlaymiz.
  • Keyin, e-pochta C5<2 hujayradan yuborish manzilimizni tanlaymiz>.
  • Keyin bizning kodimizda elektron pochta kontenti oʻrnatiladi.
  • Nihoyat, bu yerda koʻrsatish uchun “ VBA Displey xususiyati ” ishlatiladi. elektron pochtamiz . Shuning uchun, biz Yuborish qo'lda elektron pochta yuborish uchun bosishimiz kerak bo'ladi. Bundan tashqari, biz koʻrsatmasdan elektron pochta xabarlarini yuborish uchun “ Mulkni yuborish ” funksiyasidan foydalanishimiz mumkin.
  • Keyin, Saqlash va Moduli ni yoping.

Endi kodni Ishga tushiramiz .

  • Birinchidan, Tuzuvchi tab >>> Makrolar -ni tanlang.

Makro dialog oynasi paydo bo'ladi.

  • Ikkinchidan , bizning Sub Protsedura “ Makro_Email yuborish ”ni tanlang.
  • Nihoyat, Ishga tushirish tugmasini bosing.

Kodni bajargandan so'ng biz elektron pochta oynasini ko'ramiz. Biz Yuborish tugmasini bosishimiz mumkin. Shunday qilib, biz sizga VBA yordamida excel dan elektron pochta yuborishning birinchi usulini ko'rsatdik.

Batafsil o'qing: Excel VBA-dan Outlooksiz elektron pochta xabarlarini yuborish (4 ta mos misol)

2. Gmail hisobidan elektron pochta xabarlarini yuborish uchun makroExcelda

Ushbu usul uchun bizga Gmail hisobidan kamroq xavfsiz ilovalarga kirish kerak. Bundan tashqari, biz Ma'lumotnomalar menyusidan Microsoft CDO -ni yoqishimiz kerak.

Qadamlar:

  • Birinchidan, birinchi usulda ko'rsatilganidek , Ma'lumotnomalar dialog oynasini keltiring.
  • Ikkinchidan, “ Microsoft CDO for Windows 2000 Library -ni tanlang. ” va OK tugmasini bosing.

  • Uchinchidan, Google hisobingizdan Xavfsizlik ga oʻting sozlamalar .
  • Nihoyat, Ilovaga xavfsizroq ruxsatni yoqing .

Endi kiritamiz bizning Makro kod.

  • Birinchidan, 1-usulda ko'rsatilganidek , Moduli oynasini oching va ushbu kodni kiriting. 
8090

VBA kodini ajratish

  • Birinchidan, biz Sub Protsedura Send_Gmail_Macro .
  • Ikkinchidan, biz oʻzgaruvchining turini eʼlon qilamiz.
  • Uchinchidan, biz kodimizdagi tarkibni elektron pochta orqali yuboring.
  • Keyin biz kirish ma'lumotlarini taqdim etamiz. Bu yerda oʻz ID va Parol ni kiritishingiz kerak.
  • Shundan soʻng biz port ni 465 .
  • Nihoyat, biz elektron pochtamiz ni yuboramiz.
  • Keyin, Saqlash va Ushbu kodni ishga tushiring.

Biz manzilimizga muvaffaqiyatli elektron pochta yubordik.

Batafsil o'qing: Exceldan elektron pochta xabarlarini asosiy matn bilan yuborish uchun makro (3)Foydali holatlar)

3. Ustundan qabul qiluvchilar roʻyxatiga elektron xat yuboring

Uchinchi usul uchun biz elektron pochta xabarlarini ga yuboramiz. 1>7 odamlar Makro Excel dan foydalanmoqda. Biz ma'lumotlar to'plamimizning oxirgi qatorini topamiz, shuning uchun bizning kodimiz uzoqroq ro'yxat uchun ishlaydi. Biz e-pochta xatlarini C5:C10 hujayrasidan yuboramiz.

Qadamlar:

  • Birinchidan, 1-usul da ko'rsatilganidek, Module oynasini keltiring va ushbu kodni kiriting. 
1522

VBA kodini ajratish

  • Birinchidan, biz Sub Protsedura Makro_Send_Email_A_List .
  • Ikkinchidan, biz o'zgaruvchining turini e'lon qilamiz.
  • Uchinchidan, Outlook ni Pochta sifatida tanlaymiz. Ilova .
  • Keyin, biz ma'lumotlar to'plamimiz uchun 10 bo'lgan oxirgi qatorni topamiz.
  • Keyin, shunday bizning elektron pochta 5-qator dan boshlanadi, biz “ z oʻzgaruvchisi” uchun boshlangʻich qiymat sifatida 5 kiritdik . Bundan tashqari, bizning elektron pochtamiz C ustunida , shuning uchun biz Cells xususiyatiga 3 kiritdik.
  • Keyin, biz kodimizda elektron pochta kontentini oʻrnatamiz.
  • Nihoyat, bu yerda “ .Display ” bizning elektron pochta<2ni koʻrsatish uchun ishlatiladi>. Shuning uchun, biz Yuborish qo'lda elektron pochta yuborish uchun bosishimiz kerak bo'ladi. Bundan tashqari, biz ko'rsatmasdan elektron pochta jo'natish uchun “ .Send ” dan foydalanishimiz mumkin.
  • Keyin, Saqlash va Moduli ni ishga tushiring.

Biz barcha elektron pochta xabarlarimiz da koʻrsatilishini koʻrishimiz mumkin. 1>BCC . Xulosa qilib aytganda, vazifamizni bajarish uchun Yuborish tugmasini bosishimiz mumkin.

Batafsil oʻqing: Qanday qilib elektron pochta xabarini yuborish kerak Excel ro'yxatidan (2 ta samarali usul)

Shunga o'xshash o'qishlar

  • Excelda vaziyat yuzaga kelganda qanday qilib elektron pochta xabarlarini avtomatik yuborish
  • Excel faylini onlayn qanday almashish mumkin (2 ta oson usul)
  • VBA-dan foydalangan holda Excel ish varag'idan avtomatik ravishda eslatma xatini yuborish
  • Excelda shartlar bajarilgan taqdirda elektron pochta xabarlarini qanday yuborish mumkin (3 ta oson usul)
  • Excelda ish kitobini almashishni qanday yoqish mumkin

4 Elektron pochta yordamida bitta varaqni yuborish uchun makro

Ushbu bo'limda biz Faol ishchi varaqni maqsadli shaxsimizga yuboramiz. Bu yerda biz Excel faylimiz joylashuvini tanlashimiz kerak.

Qadamlar:

  • Birinchi navbatda, 1-usul da ko'rsatilganidek, Module oynasini oching va ushbu kodni kiriting. 
1190

VBA kodini taqsimlash

  • Birinchidan, biz Sub Protsedura Makro_Email_Yagona_Sheet ni chaqiramiz.
  • Ikkinchidan, biz o'zgaruvchining turini e'lon qilamiz.
  • Uchinchidan, biz Faol varaq ni nusxalash va uni alohida <1 sifatida saqlaymiz>Ish kitobi .
  • Shundan so'ng biz Outlook ni Pochta ilovamiz sifatida tanlaymiz.
  • Keyin, biz elektron pochta tarkibni kodimiz.
  • Shundan so'ng biz varaq ni elektron pochta ga biriktirdik.
  • Nihoyat , elektron pochtamiz ni ko'rsatish uchun “ .Display ” dan foydalaning. Shuning uchun, biz Yuborish qo'lda elektron pochta yuborish uchun bosishimiz kerak bo'ladi. Bundan tashqari, biz koʻrsatmasdan elektron pochta joʻnatish uchun “ .Send ” dan foydalanishimiz mumkin.
  • Keyin, Saqlash va Moduli -ni ishga tushiring.

Oynada Vraqam nomini ko'ramiz. Vazifani bajarish uchun Yuborish -ni bosing.

Biz faylni ochib, kodimiz ishlayotganini tekshirishimiz mumkin.

Batafsil o'qing: O'zgartirish mumkin bo'lgan Excel jadvalini elektron pochta orqali qanday yuborish mumkin (3 ta tezkor usul)

5. Makro Hujayra qiymati asosida elektron pochta xabarini yuborish

Oxirgi usul uchun biz ma'lumotlar to'plamini biroz o'zgartirdik. Maʼlumotlar toʻplamiga “ Toʻlov Toʻlovi ” ustun qoʻshdik. Bu yerda biz elektron pochta u “ Obama ” shahrini oʻz ichiga olgan xabar yuboramiz. Biz aniq ko'ramizki, 5-qator uni o'z ichiga oladi, shuning uchun biz elektron pochta ni faqat shu shaxsga jo'natamiz.

Qadamlar:

  • Birinchi navbatda, 1-usulda ko'rsatilganidek , Moduli oynasini oching va yozing. bu kod. 
9945

VBA kodini taqsimlash

  • Birinchidan, biz' birinchi Sub Protsedura Send_Email_Condition ni qayta chaqiramiz.
  • Ikkinchidan, biz O'zgaruvchi turlari va sozlamalarini e'lon qilamiz“ Shartlar ” bizning Varaq sifatida.
  • Uchinchidan, oxirgi qator raqam topiladi. Bundan tashqari, bizning qiymatimiz 5-qator dan boshlanadi, shuning uchun biz kodimizdagi 5-qator ni oxirgi qator ga qoʻydik.
  • Keyin, ikkinchi Sub Protsedura E-pochtani_Ko'p_Shartli_Yuborish ga qo'ng'iroq qiling.
  • Shundan so'ng biz Pochta ilovamiz sifatida Outlook ni tanlaymiz.
  • Keyin bizning kodimizda elektron pochta kontenti o'rnatiladi.
  • Bu erda biz Excel faylini elektron pochta bilan biriktiramiz. Biriktirma usulidan foydalanish.
  • Bundan keyin bu yerda elektron pochta ni ko'rsatish uchun “ .Display ” ishlatiladi. Shuning uchun, biz Yuborish qo'lda elektron pochta yuborish uchun bosishimiz kerak bo'ladi. Bundan tashqari, biz koʻrsatmasdan elektron pochta joʻnatish uchun “ .Send ” dan foydalanishimiz mumkin.
  • Keyin, Saqlash va Moduli ni ishga tushiring.

Xulosa qilib, biz sizga yuborishning yana bir usulini ko'rsatdik. 2> e-pochta Excel dan VBA Makro dan foydalangan holda.

Batafsil o'qing: Hujayra tarkibiga asoslanib Exceldan elektron pochta xabarlarini avtomatik yuborish (2 usul)

Amaliy bo'lim

Biz Excel-dagi har bir usul uchun amaliy ma'lumotlar to'plamini qo'shdik. fayl.

Xulosa

Biz sizga 5 usulni Makro dan foydalanishni ko'rsatdik. Excel dan an elektron pochta yuboring. O'qiganingiz uchun tashakkur, muvaffaqiyatda davom eting!

Oldingi xabar Excelda oxirgi raqamni qanday olib tashlash mumkin (6 ta tezkor usul)
Keyingi post Excelda chop etish maydonini qanday tozalash mumkin (2 ta oson usul)

Hugh West - bu sohada 10 yildan ortiq tajribaga ega bo'lgan yuqori tajribali Excel treneri va tahlilchisi. Buxgalteriya hisobi va moliya yo‘nalishi bo‘yicha bakalavr va biznes boshqaruvi bo‘yicha magistr darajasiga ega. Xyu o'qitishga ishtiyoqi bor va unga amal qilish va tushunish oson bo'lgan o'ziga xos o'qitish usulini ishlab chiqdi. Uning Excel bo'yicha ekspert bilimlari butun dunyo bo'ylab minglab talabalar va mutaxassislarga o'z malakalarini oshirishga va o'z martabalarida muvaffaqiyat qozonishlariga yordam berdi. Xyu o'z blogi orqali o'z bilimlarini dunyo bilan baham ko'radi, jismoniy shaxslar va korxonalarga o'z salohiyatini to'liq ro'yobga chiqarishga yordam berish uchun bepul Excel darsliklari va onlayn treninglarni taklif qiladi.