VBA Mengirim Email dari Excel - Kode Langkah demi Langkah untuk Mengirim Email

Kode VBA untuk Mengirim Email Dari Excel

Di VBA untuk Mengirim Email dari Excel kami dapat mengotomatiskan fitur pengiriman email kami sehingga kami dapat secara otomatis mengirim email ke beberapa pengguna sekaligus, untuk melakukannya kami perlu mengingat bahwa hal itu dilakukan dengan melihat produk lain dari pandangan sehingga kami perlu mengaktifkan pandangan scripting di VBA untuk melakukannya dan setelah selesai kami menggunakan metode .Application untuk menggunakan fitur pandangan.

Fleksibilitas VBA luar biasa. Alasan mengapa pembuat kode VBA suka unggul karena dengan menggunakan VBA, kami tidak hanya dapat bekerja di dalam excel. Sebaliknya, kami juga dapat mengakses alat Microsoft lainnya. Kita bisa mengakses PowerPoint, Word, dan Outlook dengan menggunakan VBA. Hal yang membuat saya terkesan adalah ketika saya mendengar tentang "mengirim email dari excel itu sendiri." Ya itu benar. Kami dapat mengirim email dari excel. Pada artikel ini, kami akan menunjukkan cara mengirim email dari excel dengan lampiran menggunakan VBA Coding.

Atur Referensi ke Perpustakaan Microsoft Office

Kami perlu mengirim email dari Outlook. Karena Outlook adalah objek luar, hal pertama yang perlu kita lakukan adalah menyetel referensi objek ke " Perpustakaan Objek Microsoft Outlook 16.0 ".

  • Di VBA, Buka Alat> Referensi.
  • Sekarang kita akan melihat perpustakaan referensi objek. Di jendela ini, kita perlu menyetel referensi ke "Perpustakaan Objek Microsoft Outlook 16.0".
  • Setelah mengatur referensi objek, klik, Ok.

Sekarang kita dapat mengakses objek Outlook dalam pengkodean VBA.

13 Langkah Mudah Mengirim Email dari Excel

Menulis kode untuk mengirim email dengan lampiran dari excel cukup rumit, tetapi layak untuk meluangkan waktu.

Ikuti langkah-langkah di bawah ini untuk menulis makro excel email pertama Anda.

Langkah 1

Mulai subprocedure di VBA.

Kode:

Sub SendEmail_Example1 () End Sub

Langkah 2

Deklarasikan variabel Outlook.Application

Kode:

Redupkan EmailApp Sebagai Outlook.Application 'Untuk merujuk ke aplikasi Outlook

Langkah # 3

Variabel di atas adalah variabel objek. Kita perlu membuat instance dari objek baru secara terpisah. Untuk membuat instance baru dari objek luar, berikut kodenya.

Kode:

Setel EmailApp = New Outlook.Application 'Untuk meluncurkan aplikasi outlook

Langkah # 4

Sekarang untuk menulis email, kami mendeklarasikan satu variabel lagi sebagai "Outlook.MailItem".

Kode:

Redupkan EmailItem Sebagai Outlook.MailItem 'Untuk merujuk email pandangan baru

Langkah # 5

Untuk meluncurkan email baru, kita perlu mengatur referensi ke variabel sebelumnya sebagai CreateItem.

Kode:

Setel EmailItem = EmailApp.CreateItem (olMailItem) 'Untuk meluncurkan email pandangan baru

Oke, sekarang variabel "EmailApp" akan meluncurkan tampilan, dan dalam variabel "EmailItem," kita bisa mulai menulis email.

Langkah # 6

Sekarang kita perlu menyadari apa saja item yang kita miliki saat menulis email. Hal pertama adalah kita perlu memutuskan kepada siapa kita mengirim email. Jadi untuk ini, kita perlu mengakses properti "TO".

Langkah # 7

Masukkan ID email penerima dengan tanda kutip ganda.

Kode:

EmailItem.To = "[email protected]"

Langkah # 8

After addressing the main receiver, if you would like to CC anyone in the email, we can use the “CC” property.

Code:

EmailItem.CC = "[email protected]"

Step #9

After the CC, we can set the BCC email id as well.

Code:

EmailItem.BCC = "[email protected]"

Step #10

Now we need to include the Subject of the email we are sending.

Code:

EmailItem.Subject = "Test Email From Excel VBA"

Step #11

Now we need to write the body of the email by using HTML Body type.

Code:

EmailItem.HTMLBody = "Hi," & vbNewLine & vbNewLine & "This is my first email from Excel" & _ vbNewLine & vbNewLine & _ "Regards," & vbNewLine & _ "VBA Coder" 'VbNewLine is the VBA Constant to insert a new line

Step #12

If we want to add an attachment as the current workbook, we are working on. Then we need to use attachments property. First, declare a variable source as a string.

Code:

Dim Source As String

Then in this variable, write ThisWorkbook.FullName after Email body.

Code:

Source = ThisWorkbook.FullName

In this VBA Code, ThisWorkbook is used for the current workbook and .FullName is used to get the full name of the worksheet.

Then write the following code to attach the file.

Code:

EmailItem.Attachments.Add Source

Step #13

Now finally, we need to send the email to the mentioned email IDs. This can be done by using the “Send” method.

Code:

EmailItem.Send

Ok, we are done with the coding part.

Code:

Sub SendEmail_Example1 () Redupkan EmailApp Sebagai Outlook.Application Redupkan Sumber Sebagai Set String EmailApp = Outlook.Application Baru Redupkan EmailItem Sebagai Outlook.MailItem Set EmailItem = EmailApp.CreateItem (olMailItem) EmailItem.To = "[email protected]" EmailItem.CC = "[email protected]" EmailItem.BCC = "[email protected]" EmailItem.Subject = "Test Email From Excel VBA" EmailItem.HTMLBody = "Hai," & vbNewLine & vbNewLine & "Ini adalah email pertama saya dari Excel "& _ vbNewLine & vbNewLine & _" Salam, "& vbNewLine & _" VBA Coder "Sumber = ThisWorkbook.FullName EmailItem.Attachments.Add Source EmailItem.Send End Sub

Jalankan kode di atas, dan itu akan mengirim email dengan badan email yang disebutkan dengan buku kerja saat ini sebagai lampiran.

Artikel yang menarik...