Cara Mengirim Email Dari Spreadsheet Excel Menggunakan Skrip VBA

Cara Mengirim Email Dari Spreadsheet Excel Menggunakan Skrip VBA

Untuk mengirim email dari Microsoft Excel hanya membutuhkan beberapa script sederhana. Tambahkan fungsionalitas ini ke spreadsheet Anda dan Anda benar-benar dapat meningkatkan seberapa banyak yang dapat Anda capai di Excel.





Kami telah membahas banyak makro Excel yang hebat, yang dapat menyelesaikan hal yang sama dengan skrip VBA, tetapi tanpa memerlukan pengetahuan pemrograman. Tetapi ada banyak hal lanjutan yang hanya dapat Anda lakukan dengan VBA, seperti membuat laporan spreadsheet dengan semua informasi PC Anda.



Lebih suka menonton tutorial ini sebagai video? Kami membantu Anda!





Mengapa Mengirim Email Dari Excel?

Ada banyak alasan mengapa Anda mungkin ingin mengirim email dari dalam Microsoft Excel.

Mungkin Anda memiliki staf yang memperbarui dokumen atau spreadsheet setiap minggu, dan Anda ingin menerima pemberitahuan email saat pembaruan tersebut selesai. Atau Anda mungkin memiliki spreadsheet kontak dan Anda ingin mengirim satu email ke semuanya sekaligus.



Anda mungkin berpikir bahwa membuat skrip siaran email dari Excel akan menjadi rumit. Itu tidak terjadi sama sekali.

Teknik dalam artikel ini akan memanfaatkan fitur yang sudah lama tersedia di Excel VBA, Objek Data Kolaborasi (CDO).



CDO adalah komponen pesan yang digunakan di Windows sejak generasi awal OS. Dulu disebut CDONTS, dan kemudian dengan munculnya Windows 2000 dan XP, diganti dengan 'CDO untuk Windows 2000'. Komponen ini sudah disertakan dalam instalasi VBA Anda dalam Microsoft Word atau Excel dan siap digunakan.

Menggunakan komponen membuat pengiriman email dari dalam produk Windows dengan VBA menjadi sangat mudah. Dalam contoh ini, Anda akan menggunakan komponen CDO di Excel untuk mengirim email yang akan mengirimkan hasil dari sel Excel tertentu.



Langkah 1: Buat Makro VBA

Langkah pertama adalah pergi ke tab Pengembang Excel.

Di dalam tab Pengembang, klik Memasukkan di kotak Kontrol, lalu pilih tombol perintah.

Gambarkan ke dalam lembar dan kemudian buat makro baru untuk itu dengan mengklik makro di pita Pengembang.

Ketika Anda mengklik Membuat tombol, itu akan membuka editor VBA.

Tambahkan referensi ke perpustakaan CDO dengan menavigasi ke Peralatan > Referensi di redaksi.

Gulir ke bawah daftar sampai Anda menemukan Microsoft CDO untuk Perpustakaan Windows 2000 . Tandai kotak centang dan klik oke .

Ketika Anda mengklik oke , catat nama fungsi tempat Anda menempelkan skrip. Anda akan membutuhkannya nanti.

Langkah 2: Siapkan Bidang CDO 'Dari' dan 'Ke'

Untuk melakukan ini, Anda harus terlebih dahulu membuat objek email dan menyiapkan semua bidang yang diperlukan untuk mengirim email.

Ingatlah bahwa meskipun banyak bidang bersifat opsional, Dari dan Ke bidang diperlukan.

wpa psk tkip wpa2 psk aes
Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strCc As String
Dim strBcc As String
Dim strBody As String
strSubject = 'Results from Excel Spreadsheet'
strFrom = 'rdube02@gmail.com'
strTo = 'rdube02@gmail.com'
strCc = ''
strBcc = ''
strBody = 'The total results for this quarter are: ' & Str(Sheet1.Cells(2, 1))

Hal yang keren tentang ini adalah Anda dapat membuat string apa pun yang Anda inginkan untuk menyesuaikan pesan email lengkap dan menetapkannya ke strBody variabel.

Gabungkan komponen pesan dengan menggunakan & string untuk memasukkan data dari salah satu lembar Microsoft Excel langsung ke pesan email, seperti yang ditunjukkan di atas.

Langkah 3: Konfigurasikan CDO untuk Menggunakan SMTP Eksternal

Bagian kode selanjutnya adalah tempat Anda akan mengonfigurasi CDO untuk menggunakan server SMTP eksternal apa pun untuk mengirim email.

Contoh ini adalah penyiapan non-SSL melalui Gmail. CDO mampu SSL, tapi itu di luar cakupan artikel ini. Jika Anda perlu menggunakan SSL, ini kode lanjutan di Github bisa membantu.

Set CDO_Mail = CreateObject('CDO.Message')
On Error GoTo Error_Handling
Set CDO_Config = CreateObject('CDO.Configuration')
CDO_Config.Load -1
Set SMTP_Config = CDO_Config.Fields
With 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@website.com'
.Item('http://schemas.microsoft.com/cdo/configuration/sendpassword') = 'password'
.Item('http://schemas.microsoft.com/cdo/configuration/smtpserverport') = 25
.Item('http://schemas.microsoft.com/cdo/configuration/smtpusessl') = True
.Update
End With
With CDO_Mail
Set .Configuration = CDO_Config
End With

Langkah 4: Selesaikan Pengaturan CDO

Sekarang Anda telah mengonfigurasi koneksi ke server SMTP untuk mengirim email, yang harus Anda lakukan adalah mengisi kolom yang sesuai untuk Objek CDO_Mail , dan mengeluarkan Mengirim memerintah.

Inilah cara Anda 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 '' Then MsgBox Err.Description

Tidak akan ada kotak pop-up atau pesan peringatan keamanan, yang dapat terjadi saat Anda menggunakan objek email Outlook.

CDO hanya mengumpulkan email dan menggunakan detail koneksi server SMTP Anda untuk menjalankan pesan. Ini adalah cara termudah untuk memasukkan email ke dalam skrip Microsoft Word atau Excel VBA.

Untuk menghubungkan tombol perintah Anda ke skrip ini, masuk ke editor kode dan klik Lembar1 untuk melihat kode VBA untuk lembar kerja itu.

Ketik nama fungsi tempat Anda menempelkan skrip di atas.

cara mendownload acara di hulu

Berikut tampilan pesan yang saya terima di kotak masuk saya:

Catatan : Jika Anda menerima pesan kesalahan yang berbunyi Transportasi gagal terhubung ke server , pastikan Anda telah memasukkan nama pengguna, kata sandi, server SMTP, dan nomor port yang benar pada baris kode yang tercantum di bawahnya Dengan SMTP_Config .

Ambil Lebih Jauh dan Otomatiskan Seluruh Proses

Semuanya baik-baik saja untuk dapat mengirim email dari Excel dengan satu sentuhan tombol. Namun, Anda mungkin ingin menggunakan fungsi ini secara teratur, dalam hal ini masuk akal untuk mengotomatisasi proses .

Untuk melakukannya, Anda harus membuat perubahan pada makro. Buka Editor Visual Basic dan salin dan tempel keseluruhan kode yang kami kumpulkan.

Selanjutnya, pilih Buku Kerja ini dari Proyek hirarki.

Dari dua bidang tarik-turun di bagian atas jendela kode, pilih buku kerja dan pilih Membuka dari menu tarik-turun Metode.

Rekatkan skrip email di atas ke dalam Sub Workbook_Open Pribadi () .

Ini akan menjalankan makro setiap kali Anda membuka file Excel.

Selanjutnya, buka Penjadwal Tugas .

Anda akan menggunakan alat ini untuk meminta Windows membuka spreadsheet secara otomatis secara berkala, di titik mana makro Anda akan dimulai, mengirim email.

Pilih Buat Tugas Dasar... dari Tindakan menu dan bekerja dengan cara Anda melalui wizard sampai Anda mencapai Tindakan layar.

Pilih Mulai program dan klik Lanjut .

Menggunakan Jelajahi untuk menemukan lokasi Microsoft Excel di komputer Anda, atau salin dan tempel jalur ke Program/skrip bidang.

Kemudian, masukkan jalur ke dokumen Microsoft Excel Anda ke dalam Tambahkan argumen bidang.

Selesaikan wizard, dan penjadwalan Anda akan siap.

Sebaiknya jalankan pengujian dengan menjadwalkan tindakan selama beberapa menit di masa mendatang, lalu ubah tugas setelah Anda dapat mengonfirmasi bahwa itu berfungsi.

Catatan : Anda mungkin harus menyesuaikan pengaturan Pusat Kepercayaan Anda untuk memastikan bahwa makro berjalan dengan benar.

Untuk melakukannya, buka spreadsheet dan navigasikan ke Mengajukan > Pilihan > Pusat Kepercayaan .

Dari sini, klik Pengaturan Pusat Kepercayaan , dan di layar berikutnya atur tombol radio ke Jangan pernah tampilkan informasi tentang konten yang diblokir .

Jadikan Microsoft Excel Bekerja untuk Anda

Microsoft Excel adalah alat yang sangat kuat, tetapi mempelajari cara memaksimalkannya bisa sedikit menakutkan. Jika Anda ingin benar-benar menguasai perangkat lunak, Anda harus menjadi nyaman dengan VBA , dan itu bukan tugas kecil.

cara menghilangkan halaman tambahan di word

Namun, hasilnya berbicara sendiri. Dengan sedikit pengalaman VBA di bawah ikat pinggang Anda, Anda akan segera dapat membuat Microsoft Excel melakukan tugas-tugas dasar secara otomatis, memberi Anda lebih banyak waktu untuk berkonsentrasi pada hal-hal yang lebih mendesak.

Dibutuhkan waktu untuk membangun keahlian dengan VBA, tetapi Anda akan segera melihat hasil kerja keras Anda jika Anda dapat bertahan dengannya.

Satu tempat yang bagus untuk memulai adalah otoritas kami tutorial menggunakan VBA di Excel . Setelah Anda selesai melakukannya, skrip sederhana untuk mengirim email dari Excel ini akan terasa seperti permainan anak-anak.

Membagikan Membagikan Menciak Surel Canon vs. Nikon: Merek Kamera Mana yang Lebih Baik?

Canon dan Nikon adalah dua nama besar di industri kamera. Tetapi merek mana yang menawarkan jajaran kamera dan lensa yang lebih baik?

Baca Selanjutnya Topik-topik yang berkaitan
  • Produktifitas
  • Pemrograman
  • Kiat Email
  • Pemrograman
  • Pemrograman Visual Basic
  • Microsoft Excel
  • Kiat Microsoft Office
Tentang Penulis Ryan Dub(942 Artikel Diterbitkan)

Ryan memiliki gelar BSc di bidang Teknik Elektro. Dia telah bekerja 13 tahun di bidang teknik otomasi, 5 tahun di bidang TI, dan sekarang menjadi Insinyur Aplikasi. Mantan Managing Editor MakeUseOf, dia berbicara di konferensi nasional tentang Visualisasi Data dan telah ditampilkan di TV dan radio nasional.

More From Ryan Dube

Berlangganan newsletter kami

Bergabunglah dengan buletin kami untuk kiat teknologi, ulasan, ebook gratis, dan penawaran eksklusif!

Klik di sini untuk berlangganan