Menggunakan skrip VBA di Excel tidak memerlukan pengetahuan pemrograman apa pun. VBA membantu Anda melakukan banyak tugas lanjut seperti membuat laporan spreadsheet yang berisi semua informasi PC, mengirim email langsung dari spreadsheet ...
Untuk mengirim email dari Microsoft Excel hanya perlu beberapa skrip sederhana. Jangan takut untuk menambahkan fitur ini ke spreadsheet Anda jika Anda ingin benar-benar memanfaatkan perangkat lunak kantor Excel.
Email dari Excel
Ada banyak alasan mengapa Anda ingin mengirim email tepat di Microsoft Excel. Misalnya, karyawan Anda memperbarui dokumen dan spreadsheet setiap minggu, dan Anda ingin menerima pemberitahuan email saat tindakan itu selesai atau kadang-kadang, Anda ingin mengirim email ke semua kontak di buku kerja yang sama. di ...
Anda pasti sudah berpikir untuk menggunakan skrip email Excel yang rumit, tetapi sebenarnya sangat sederhana. Artikel ini akan memandu Anda untuk memanfaatkan fitur yang telah lama tersedia di Excel VBA, yang disebut Collaboration Data Objects (CDO) .

CDO adalah komponen pesan yang digunakan di Windows langsung dari versi awal. Dulu disebut CDONTS. Setelah Windows 2000 & XP lahir, "CDO untuk Windows 2000" menggantikannya. Komponen ini termasuk dalam instalasi VBA di Microsoft Word atau Excel dan tersedia untuk digunakan kapan saja.
Menggunakan komponen ini untuk mengirim email ke produk Windows dengan VBA sangat mudah. Misalnya, artikel ini menggunakan CDO di Excel untuk mengirim email yang berisi hasil dalam satu sel.
Langkah 1: Buat Makro VBA
Pertama, buka tab Pengembang Excel > klik Sisipkan di panel Kontrol , lalu pilih tombol perintah.

Seret ke dalam lembar kerja ini, lalu buat makro baru dengan mengklik Makro di pita Pengembang.

Ketika Anda mengklik tombol Buat , itu membuka editor VBA.
Tambahkan referensi ke perpustakaan CDO dengan menavigasi ke Alat> Referensi di editor.

Gulir ke bawah daftar sampai Anda melihat Microsoft CDO untuk Windows 2000 Library . Centang kotak dan klik OK .

Ketika Anda mengklik OK , catat nama fungsi tempat skrip disisipkan, karena Anda akan membutuhkannya nanti.
Langkah 2: Setel bidang CDO "Dari" dan "Ke"
Untuk melakukan ini, Anda harus terlebih dahulu membuat objek terkait email dan mengatur semua bidang pengiriman email yang diperlukan.
Ingatlah bahwa banyak bidang mungkin atau mungkin tidak, tetapi Dari dan Ke wajib diisi.
Dim CDO_Mail Sebagai Objek
Dim Dim CDO_Config Sebagai Objek
Dim SMTP_Config Sebagai Varian
Dim strSubjek Sebagai String
Dim strDari Sebagai String
Dim strTo Sebagai String
Dim strCc Sebagai String
Dim strBcc Sebagai String
Dim strBcc Sebagai String Dim strBcc Sebagai String Dim strBody Sebagai String
strSubject = "Hasil dari Excel Spreadsheet"
strFrom = "[email protected]"
strTo = "[email protected]"
strCc = ""
strBcc = ""
strBody = "Total hasil untuk kuartal ini adalah:" & Str (Sheet1 .Cells (2, 1))
Yang menarik di sini adalah bahwa Anda dapat membuat string yang diinginkan untuk menyesuaikan seluruh pesan email dan menetapkannya sebagai variabel strBody.
Menyusun bersama konten pesan email menggunakan string & untuk memasukkan data dari spreadsheet Microsoft Excel apa pun di email (seperti yang ditunjukkan di atas).
Langkah 3: Konfigurasikan CDO untuk menggunakan SMTP eksternal
Bagian kode berikutnya adalah tempat Anda mengkonfigurasi CDO untuk menggunakan server SMTP eksternal untuk mengirim email.
Contoh ini tidak mengatur SSL melalui Gmail, CDO dapat menggantikan SSL tetapi berada di luar cakupan artikel ini. Jika Anda perlu menggunakan SSL, kode lanjutan di Github dapat membantu Anda.
Tetapkan CDO_Mail = CreateObject ("CDO.Message")
Pada Kesalahan GoTo Error_Handling
Set CDO_Config = CreateObject ("CDO.Configuration")
CDO_Config.Load -1
Setel SMTP_Config = CDO_Config.Fields
Dengan SMTP_Config
.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp. gmail.com "
.Item (" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate ") = 1
.Item (" http://schemas.microsoft.com/cdo/configuration/sendusername ") =" [email protected] "
.Item (" http://schemas.microsoft.com/cdo/configuration/sendpassword ") =" kata sandi "
.Item (" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25
.Item (" http://schemas.microsoft.com/cdo/configuration/smtpusessl ") = Benar
.Perbaruan
Berakhir dengan
Dengan CDO_Mail
Set .Configuration = CDO_Config
End With
Langkah 4: Selesaikan pengaturan CDO
Anda sekarang telah mengkonfigurasi server SMTP Anda untuk mengirim email. Yang harus Anda lakukan adalah mengisi bidang yang sesuai untuk objek CDO_Mail dan mengeluarkan perintah Kirim .
Inilah cara melakukannya:
CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.CC = strCc
CDO_Mail.BCC = strBcc
CDO_Mail.Send
Error_Handling:
If Err.Description <> "" Maka MsgBox Err.Description
Tidak ada peringatan pop-up atau peringatan keamanan yang muncul seperti yang biasa Anda lihat saat menggunakan objek email Outlook.
CDO hanya meletakkan komponen email berdampingan dan menggunakan detail koneksi server untuk memungkinkan pengiriman informasi. Ini adalah cara termudah untuk menggabungkan email ke dalam skrip Microsoft Word atau Excel VBA.
Untuk menghubungkan tombol perintah ke skrip ini, akses editor kode dan klik Sheet1 untuk melihat kode VBA lembar kerja itu.
Ketikkan nama fungsi tempat Anda menempelkan skrip di atas.

Ini adalah informasi yang Anda terima di kotak masuk.

Catatan : Jika Anda menerima kesalahan Transport gagal terhubung ke server , pastikan Anda telah memasukkan nama pengguna, kata sandi, server SMTP dan nomor port yang benar dalam baris kode yang tercantum di With SMTP_Config .
Meningkatkan dan mengotomatiskan seluruh proses
Mengirim email dari Excel dengan satu tombol benar-benar aman dan nyaman. Jika Anda ingin sering menggunakan fitur ini, Anda dapat mengotomatiskannya.
Untuk melakukan ini, Anda perlu mengubah makro. Pergi ke Editor Visual Basic, salin dan tempel seluruh kode yang dikumpulkan. Selanjutnya, pilih ThisWorkbook dari hirarki Proyek .
Dari dua bidang tarik turun di bagian atas jendela kode, pilih Buku Kerja dan klik Buka dari menu Metode . Rekatkan skrip email di atas ke Private Sub Workbook_Open () . Tindakan ini akan menjalankan makro setiap kali Anda membuka file Excel.

Selanjutnya, buka Penjadwal Tugas . Anda akan menggunakan alat ini untuk meminta Windows untuk secara otomatis membuka spreadsheet pada interval yang ditentukan. Pada saat itu, makro Anda akan diaktifkan dan diemail.

Pilih Buat Tugas Dasar ... dari menu Tindakan dan ikuti instruksi sampai Anda mencapai layar Tindakan.
Pilih Mulai program dan klik Berikutnya .

Gunakan tombol Browse untuk menemukan lokasi Microsoft Excel di komputer atau salin & tempel jalur di bidang Program / skrip .
Kemudian masukkan path ke dokumen Microsoft Excel di bidang Tambahkan argumen .
Instruksi dan jadwal lengkap Anda akan dibuat.
Anda harus menguji fitur ini dengan menjadwalkan tindakan dalam beberapa menit berikutnya, kemudian merevisi tugas setelah Anda melihatnya berfungsi secara efektif.
Catatan : Anda mungkin perlu menyesuaikan pengaturan Pusat Kepercayaan untuk memastikan makro berjalan sebagai berikut:
Buka spreadsheet dan arahkan ke File> Opsi> Pusat Kepercayaan .
Di sini, klik Pengaturan Pusat Kepercayaan . Pada layar berikutnya, pilih Jangan pernah tampilkan informasi tentang konten yang diblokir .
Microsoft Excel adalah alat yang sangat kuat, tetapi mempelajari cara menggunakannya terkadang dapat menjadi tantangan bagi banyak orang. Jika Anda ingin menguasai perangkat lunak ini, Anda perlu tahu cara menggunakan VBA. Itu tidak mudah.
Namun, dengan sedikit pengalaman VBA, Anda dapat mengotomatisasi tugas-tugas dasar pada Microsoft Excel dan memiliki lebih banyak waktu untuk fokus pada tugas-tugas yang lebih penting.
Semoga artikel ini bermanfaat bagi Anda. Semoga sukses!