Kami telah melihat VBA di excel dan bagaimana kami mengotomatisasi tugas kami dengan cemerlang dengan membuat makro, di Microsoft Outlook kami juga memiliki referensi untuk VBA dan menggunakan mana kami dapat mengontrol pandangan menggunakan VBA, ini menjadikan tugas berulang kami dalam pandangan lebih mudah untuk automatik, dan sama seperti excel, kita perlu membolehkan ciri pembangun menggunakan VBA dalam pandangan.
Prospek VBA
Keindahan VBA adalah kita dapat merujuk objek Microsoft lain seperti PowerPoint, Word, dan Outlook. Kami dapat membuat persembahan yang indah, kami dapat bekerja dengan dokumen Microsoft word dan akhirnya, kami juga dapat menghantar e-mel. Ya, anda betul-betul mendengarnya, kami boleh menghantar e-mel dari excel itu sendiri. Ini kedengaran janggal tetapi pada masa yang sama meletakkan senyuman di wajah kita juga. Dalam artikel ini, saya akan menunjukkan kepada anda cara bekerja dengan objek Microsoft Outlook dari excel menggunakan pengekodan VBA. Teruskan membaca…
Bagaimana kita merujuk Outlook dari Excel?
Ingat Outlook adalah objek dan kita perlu menetapkan rujukan ini di perpustakaan rujukan objek. Untuk menetapkan objek Outlook menjadi rujukan ikuti langkah-langkah di bawah.
Langkah 1: Pergi ke Visual Basic Editor.
Langkah 2: Pergi ke Alat> Rujukan.
Langkah 3: Dalam pustaka objek rujukan di bawah tatal ke bawah dan pilih "MICROSOFT OUTLOOK 14.0 OBJEK PERPUSTAKAAN".
Tandakan kotak "MICROSOFT OUTLOOK 14.0 OBJEK PERPUSTAKAAN" untuk menyediakannya untuk Excel VBA.
Sekarang kita dapat mengakses objek Outlook VBA dari excel.
Tuliskan Kod untuk Menghantar E-mel dari VBA Outlook dari Excel
Kami boleh menghantar e-mel dari excel melalui aplikasi prospek. Untuk ini, kita perlu menulis kod VBA. Ikuti langkah di bawah untuk menghantar e-mel dari Outlook.
Anda boleh memuat turun Templat VBA Outlook to Excel ini di sini - Templat VBA Outlook to Excel
Langkah 1: Buat sub prosedur.
Kod:
Opsyen Eksplisit Sub Send_Exails () Akhir Sub
Langkah 2: Tentukan pemboleh ubah sebagai VBA Outlook . Aplikasi .
Kod:
Option Eksplisit Sub Send_Exails () Redupkan OutlookApp Sebagai Outlook. Sub End Permohonan
Langkah 3: Pemboleh ubah di atas merujuk kepada aplikasi VBA Outlook. Pada pandangan, kita perlu menghantar e-mel, jadi tentukan pemboleh ubah lain sebagai Outlook.MailItem.
Kod:
Opsyen Eksplisit Sub Send_Exails () Dim OutlookApp Sebagai Outlook. Aplikasi Dim OutlookMail Sebagai Outlook
Langkah 4: Sekarang kedua-dua pemboleh ubah adalah pemboleh ubah objek. Kita perlu menetapkannya. Pertama tetapkan pemboleh ubah "OutlookApp" sebagai Outlook Baru . Aplikasi .
Kod:
Sub Send_Exails () Dim OutlookApp Sebagai Outlook. Aplikasi Dim OutlookMail As Outlook.MailItem Tetapkan OutlookApp = Outlook Baru. Aplikasi Akhir Sub
Langkah 5: Sekarang tetapkan pemboleh ubah kedua "OutlookMail" seperti di bawah.
Tetapkan OutlookMail = OutlookApp.CreateItem (olMailItem)
Kod:
Sub Send_Exails () Dim Outlook App Sebagai Outlook. Aplikasi Dim OutlookMail As Outlook.MailItem Set OutlookApp = Outlook Baru. Set Aplikasi OutlookMail = OutlookApp.CreateItem (olMailItem) Sub Akhir
Langkah 6: Sekarang menggunakan Dengan pernyataan akses VBA Outlook Mail.
Kod:
Sub Send_Exails () Dim Outlook App Sebagai Outlook. Aplikasi Dim OutlookMail Sebagai Outlook.MailItem Tetapkan OutlookApp = Outlook Baru. Set Aplikasi OutlookMail = OutlookApp.CreateItem (olMailItem) Dengan OutlookMail Berakhir Dengan Sub Akhir
Sekarang kita dapat mengakses semua item yang tersedia dengan item e-mel seperti "Isi e-mel", "Kepada", "CC", "BCC", "Subjek" dan banyak lagi perkara.
Langkah 7: Sekarang di dalam dengan pernyataan kita dapat melihat senarai IntelliSense dengan meletakkan titik .
Langkah 8: Pertama pilih format badan sebagai olFormatHtml .
Kod:
Dengan OutlookMail .BodyFormat = olFormatHTML Tamat Dengan
Langkah 9: Sekarang paparkan e-mel.
Kod:
Dengan OutlookMail .BodyFormat = olFormatHTML. Paparan Tamat Dengan
Langkah 10: Sekarang kita perlu menulis e-mel di badan e-mel. Untuk ini pilih HtmlBody .
Kod:
Dengan OutlookMail .BodyFormat = olFormatHTML .Display .HTMLBody = "Tulis e-mel anda di sini" Tamatkan Dengan
Berikut adalah contoh isi penulisan e-mel.
Langkah 11: Selepas menulis e-mel, kita perlu menyebutkan id e-mel penerima. Untuk akses ini " Ke ".
Langkah 12: sebutan akan datang untuk siapa anda mahu CC e-mel.
Step 13: Now mention the BCC email id’s,
Step 14: Next thing is we need to mention the subject for the email we are sending.
Step 15: Now add attachments. If you want to send the current workbook as an attachment then use the attachment as This workbook
Step 16: Finally send the email by using the Send method.
Now, this code will send the email from your VBA outlook mail. Use the below VBA code to send emails from your outlook.
To use the below code you must set the object reference to “MICROSOFT OUTLOOK 14.0 OBJECT LIBRARY” under object library of Excel VBA
By setting the reference to the object library is called early binding. The reason why we need to set the reference to object library because without setting the object library as “MICROSOFT OUTLOOK 14.0 OBJECT LIBRARY” We cannot access the IntelliSense list of VBA properties and methods. This makes the writing of code difficult because you need to be sure of what you are writing in terms of technique and spellings.
Sub Send_Emails() 'This code is early binding i.e in Tools > Reference >You have check "MICROSOFT OUTLOOK 14.0 OBJECT LIBRARY" Dim OutlookApp As Outlook.Application Dim OutlookMail As Outlook.MailItem Set OutlookApp = New Outlook.Application Set OutlookMail = OutlookApp.CreateItem(olMailItem) With OutlookMail .BodyFormat = olFormatHTML .Display .HTMLBody = "Dear ABC" & "" & "
" & "Please find the attached file" & .HTMLBody 'last .HTMLBody includes signature from the outlook. ''
includes line breaks b/w two lines .To = "[email protected]" .CC = "[email protected]" .BCC = "[email protected];[email protected]" .Subject = "Test mail" .Attachments = ThisWorkbook .Send End With End Sub
