Makro untuk Mengirim Email dari Excel (5 Contoh yang Sesuai)

Hugh West

16-10-2023 Makro &; Excel VBA
  • Bagikan Ini
Hugh West

Dalam artikel ini, kami akan menunjukkan kepada Anda 5 Makro untuk kirim email dari Excel Untuk mendemonstrasikan metode kami, kami telah memilih dataset dengan 3 kolom : " Nama ", " Email ", dan " Kota ".

Unduh Buku Kerja Praktik

Menggunakan Makro untuk mengirim Email.xlsm

5 Cara Menggunakan Makro untuk Mengirim Email dari Excel

1. Penggunaan Pustaka Objek Outlook untuk Mengirim Email

Untuk yang pertama Makro , kita akan mengaktifkan " Perpustakaan Objek Microsoft Outlook 16.0 " untuk kirim an email dari Excel Selain itu, kita harus masuk ke Outlook akun di Excel .

Langkah-langkah:

Pada awalnya, kita akan memunculkan Visual Basic jendela.

  • Pertama, dari Pengembang tab>>>> pilih Visual Basic .

Atau, Anda bisa menekan ALT + F11 untuk menampilkan VBA jendela.

  • Kedua, dari Peralatan >>>> pilih " Referensi... ".

Sebuah kotak dialog akan muncul.

  • Ketiga, pilih " Perpustakaan Objek Microsoft Outlook 16.0 ", dan tekan OK .

Dengan demikian, kita akan mengaktifkan Perpustakaan Objek Outlook .

  • Mereka dari Sisipkan >>>> pilih Modul .

Kita akan mengetik kode kita di sini.

  • Setelah itu, ketikkan kode berikut. 
 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 'Item-item ini bersifat opsional 'eItem.CC = "[email protected]" 'etem.BCC = "[email protected]" eItem.Subject = "Mengirim Email menggunakan VBA dari Excel" eItem.Body = "Hello," & vbNewLine &"Semoga email ini bermanfaat bagi Anda." & _ vbNewLine & vbNewLine & _ "Hormat kami," & vbNewLine & "Exceldemy" 'Jika Anda ingin melampirkan buku kerja ini, maka hilangkan dua baris ini dari bawah 'Source = ThisWorkbook.FullName 'eItem.Attachments.Add Source eItem.Display 'dapat menggunakan .Send End Sub

Perincian Kode VBA

  • Pertama, kami memanggil Sub Prosedur Makro_Kirim_Email .
  • Kedua, kami menyatakan variabel jenis.
  • Ketiga, kami memilih Outlook sebagai Aplikasi Surat .
  • Kemudian, kita memilih email mengirim alamat dari sel C5 .
  • Setelah itu, yang email konten diatur dalam kode kita.
  • Akhirnya, " Properti Tampilan VBA " digunakan di sini untuk menampilkan email Oleh karena itu, kita harus menekan Kirim secara manual ke kirim yang email Selain itu, kita bisa menggunakan " Kirim Properti " untuk mengirim email tanpa menampilkan.
  • Setelah itu, Simpan dan tutup Modul .

Sekarang, kita akan Lari kode.

  • Pertama, dari Pengembang tab>>>> pilih Makro .

The Kotak dialog makro akan muncul.

  • Kedua, pilih Sub Prosedur " Makro_Kirim_Email ".
  • Terakhir, tekan Lari .

Setelah mengeksekusi kode tersebut, kita akan melihat email Kita bisa mengklik Kirim Jadi, kami telah menunjukkan kepada Anda metode pertama dari mengirim an email dari Unggul menggunakan VBA .

Baca selengkapnya: Kirim Email dari Excel VBA tanpa Outlook (4 Contoh yang Sesuai)

2. Makro untuk Mengirim Email dari Akun Gmail di Excel

Untuk metode ini, kita perlu akses aplikasi yang kurang aman dari Gmail Selain itu, kita harus mengaktifkan Microsoft CDO dari Referensi menu.

Langkah-langkah:

  • Pertama, seperti yang ditunjukkan dalam metode pertama , memunculkan Kotak dialog Referensi .
  • Kedua, pilih " Perpustakaan Microsoft CDO untuk Windows 2000 " dan tekan OK .

  • Ketiga, pergi ke Keamanan dari Anda Pengaturan Akun Google .
  • Terakhir, nyalakan Akses aplikasi yang kurang aman .

Sekarang, kita akan memasukkan Makro kode.

  • Pertama, seperti yang ditunjukkan dalam metode 1 , memunculkan Modul jendela dan ketik kode ini. 
 Option Explicit Sub Send_Gmail_Macro() Dim cMail As Object Dim cConfig As Object Dim sConfig As Varian 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 untuk Mengirim Gmail" cFrom = "[email protected]" cTo = "[email protected]" cBody = "Halo. Ini adalah pesan otomatis. Tolong jangan dibalas" 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/sendusername") = "[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 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

Perincian Kode VBA

  • Pertama, kami memanggil Sub Prosedur Kirim_Gmail_Macro .
  • Kedua, kami menyatakan variabel jenis.
  • Ketiga, kita menetapkan email konten dalam kode kita.
  • Kemudian, kami menyediakan kredensial login Anda perlu mengetik sendiri ID dan Kata sandi di sini.
  • Setelah itu, kami telah menetapkan pelabuhan untuk 465 .
  • Akhirnya, kami mengirim kami email .
  • Kemudian, Simpan dan Lari kode ini.

Kami telah berhasil dikirim an email ke alamat kami.

Baca Juga: Makro untuk Mengirim Email dari Excel dengan Tubuh (3 Kasus Berguna)

3. Kirim Email ke Daftar Penerima dari Kolom

Untuk metode ketiga, kita akan mengirim email untuk 7 orang yang menggunakan Makro dari Excel Kita akan menemukan yang terakhir barisan dari dataset kita, maka kode kita akan bekerja untuk daftar yang lebih panjang. Kita akan mengirim email dari sel C5: C10 jangkauan.

Langkah-langkah:

  • Pertama, seperti yang ditunjukkan dalam metode 1 , memunculkan Modul jendela dan ketik kode ini. 
 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 = "Hello There" .Body = "This Message is brought to you by Exceldemy." .Display 'You can use .Send here End With Set pMail = Nothing Set pApp = Nothing End Sub

Perincian Kode VBA

  • Pertama, kami memanggil Sub Prosedur Makro_Kirim_Email_Dari_A_Daftar .
  • Kedua, kami menyatakan variabel jenis.
  • Ketiga, kami memilih Outlook sebagai Aplikasi Surat .
  • Kemudian, kita menemukan baris terakhir yaitu 10 untuk dataset kami.
  • Setelah itu, sebagai email dimulai dari baris 5 kami telah memasukkan 5 sebagai nilai awal untuk " variabel z ". Selain itu, kami email berada di Kolom C , oleh karena itu kami telah memasukkan 3 di dalam Sel properti.
  • Kemudian, kita menetapkan email konten dalam kode kita.
  • Akhirnya, " Tampilan " digunakan di sini untuk menampilkan email Oleh karena itu, kita harus menekan Kirim secara manual ke kirim yang email Selain itu, kita bisa menggunakan " Kirim " untuk kirim email tanpa menampilkan.
  • Kemudian, Simpan dan Lari yang Modul .

Kita bisa melihat bahwa semua email ditampilkan dalam BCC Kesimpulannya, kita cukup menekan Kirim untuk menyelesaikan tugas kita.

Baca selengkapnya: Cara Mengirim Email dari Daftar Excel (2 Cara Efektif)

Bacaan Serupa

  • Cara Mengirim Email Secara Otomatis Saat Kondisi Terpenuhi di Excel
  • Cara Membagikan File Excel Online (2 Metode Mudah)
  • Kirim Email Pengingat Secara Otomatis dari Lembar Kerja Excel Menggunakan VBA
  • Cara Mengirim Email Jika Kondisi Terpenuhi di Excel (3 Metode Mudah)
  • Cara Mengaktifkan Bagikan Buku Kerja di Excel

4. Makro untuk Mengirim Satu Lembar Menggunakan Email

Di bagian ini, kita akan kirim yang Lembar Kerja Aktif ke orang yang menjadi target kita. Di sini, kita harus memilih lokasi dari Excel file.

Langkah-langkah:

  • Pertama, seperti yang ditunjukkan dalam metode 1 , memunculkan Modul jendela dan ketik kode ini. 
 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 untuk Mengirimkan Single Sheet melalui Email" .Body = "Dear RecieverName," & vbCrLf & vbCrLf & _ "File yang Anda minta terlampir" .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

Perincian Kode VBA

  • Pertama, kami memanggil Sub Prosedur Makro_Email_Single_Sheet .
  • Kedua, kami menyatakan variabel jenis.
  • Ketiga, kita menyalin Lembar Aktif dan menyimpannya sebagai Buku Kerja .
  • Setelah itu, kami memilih Outlook sebagai Aplikasi Surat .
  • Kemudian, kita menetapkan email konten dalam kode kita.
  • Setelah itu, kami telah melampirkan Lembar ke email .
  • Terakhir, gunakan " Tampilan " untuk menampilkan email Oleh karena itu, kita harus menekan Kirim secara manual ke kirim yang email Selain itu, kita bisa menggunakan " Kirim " untuk kirim email tanpa menampilkan.
  • Kemudian, Simpan dan Lari yang Modul .

Kita akan melihat Lembar nama di jendela. Kirim untuk menyelesaikan tugas.

Kita bisa terbuka file dan memverifikasi kode kita bekerja.

Baca selengkapnya: Cara Mengirim Spreadsheet Excel yang Dapat Diedit melalui Email (3 Metode Cepat)

5. Makro untuk Mengirim Email Berdasarkan Nilai Sel

Untuk metode terakhir, kita telah mengubah sedikit dataset kita. Kita telah menambahkan " Pembayaran Karena " kolom ke dataset. Di sini, kita akan kirim an email yang berisi kota " Obama ". Kita dapat melihat dengan jelas bahwa baris 5 mengandung itu, maka kita akan kirim an email hanya untuk orang itu saja.

Langkah-langkah:

  • Pertama, seperti yang ditunjukkan dalam metode 1 , memunculkan Modul jendela dan ketik kode ini. 
 Option Explicit Sub Kirim_Email_Kondisi() Dim xSheet As Worksheet Dim mAlamat As String, mSubjek As String, eNama As String Dim eRow As Long, x As Long Set xSheet = ThisWorkbook.Sheets("Kondisi") 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 mAlamat = .Cells(x, 3) mSubjek = "Permintaan Pembayaran" eNama =.Cells(x, 2) Call Send_Email_With_Multiple_Condition(mAddress, mSubject, eName) End If Next x End With End Sub 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 ="Bapak/Ibu. " & eName & ", Mohon bayar jumlah yang jatuh tempo dalam minggu depan." _ & vbNewLine & "Jumlah yang tepat dilampirkan dengan email ini." .Attachments.Add ActiveWorkbook.FullName 'Kirim File melalui Email .Display 'Kita dapat menggunakan .Send di sini juga End With Set pMail = Nothing Set pApp = Nothing End Sub

Perincian Kode VBA

  • Pertama, kami memanggil Sub Prosedur Kirim_Email_Kondisi .
  • Kedua, kami menyatakan Variabel jenis dan pengaturan " Kondisi " sebagai Lembar .
  • Ketiga, yang terakhir barisan Selain itu, nilai kita dimulai dari baris 5 , oleh karena itu kami telah menempatkan baris 5 sampai yang terakhir barisan dalam kode kita.
  • Kemudian, panggil yang kedua Sub Prosedur Kirim_Email_Dengan_Beberapa_Kondisi .
  • Setelah itu, kami memilih Outlook sebagai Aplikasi Surat .
  • Kemudian, itu email konten diatur dalam kode kita.
  • Di sini, kita melampirkan Excel dengan file email menggunakan Lampiran metode.
  • Setelah itu, " Tampilan " digunakan di sini untuk menampilkan email Oleh karena itu, kita harus menekan Kirim secara manual ke kirim yang email Selain itu, kita bisa menggunakan " Kirim " untuk kirim email tanpa menampilkan.
  • Kemudian, Simpan dan Lari yang Modul .

Sebagai kesimpulan, kami telah menunjukkan kepada Anda metode lain dari mengirim an email menggunakan Makro VBA dari Excel .

Baca selengkapnya: Kirim Email secara otomatis dari Excel Berdasarkan Konten Sel (2 Metode)

Bagian Latihan

Kami telah menambahkan dataset latihan untuk setiap metode di dalam Excel file.

Kesimpulan

Kami telah menunjukkan kepada Anda 5 metode yang digunakan Makro untuk kirim an email dari Excel Terima kasih telah membaca, teruslah berprestasi!

Postingan sebelumnya Cara Menghapus Digit Terakhir di Excel (6 Metode Cepat)
Postingan berikutnya Cara Menghapus Area Cetak di Excel (2 Cara Mudah)

Hugh West adalah pelatih dan analis Excel yang sangat berpengalaman dengan pengalaman lebih dari 10 tahun di industri ini. Beliau meraih gelar Sarjana di bidang Akuntansi dan Keuangan dan gelar Master di bidang Administrasi Bisnis. Hugh memiliki hasrat untuk mengajar dan telah mengembangkan pendekatan pengajaran unik yang mudah diikuti dan dipahami. Pengetahuan ahlinya tentang Excel telah membantu ribuan siswa dan profesional di seluruh dunia meningkatkan keterampilan dan unggul dalam karier mereka. Melalui blognya, Hugh membagikan pengetahuannya kepada dunia, menawarkan tutorial Excel gratis dan pelatihan online untuk membantu individu dan bisnis mencapai potensi penuh mereka.