Menggunakan skrip VBA di Excel tidak memerlukan pengetahuan pengaturcaraan. VBA membantu anda melakukan banyak tugas lanjutan seperti membuat laporan hamparan yang mengandungi semua maklumat PC, menghantar e-mel terus dari hamparan ...
Untuk menghantar e-mel dari Microsoft Excel hanya memerlukan beberapa skrip mudah. Jangan takut untuk menambah ciri ini ke hamparan anda jika anda ingin benar-benar mendapatkan perisian pejabat Excel.
E-mel dari Excel
Terdapat banyak sebab mengapa anda mahu menghantar e-mel di Microsoft Excel. Sebagai contoh, pekerja anda mengemaskini dokumen dan hamparan mingguan, dan anda mahu menerima pemberitahuan e-mel apabila tindakan itu selesai atau kadang-kadang, anda mahu menghantar e-mel semua kenalan dalam buku kerja yang sama. di ...
Anda mesti berfikir menggunakan skrip e-mel Excel yang rumit, tetapi ia sebenarnya sangat mudah. Artikel ini akan membimbing anda untuk memanfaatkan ciri yang telah lama tersedia dalam Excel VBA, yang dipanggil Objek Data Kerjasama (CDO) .

CDO adalah komponen pesanan yang digunakan dalam Windows dari versi awal. Ia digunakan untuk dipanggil CDONTS. Selepas Windows 2000 & XP dilahirkan, "CDO for Windows 2000" menggantikannya. Komponen ini dimasukkan dalam pemasangan VBA dalam Microsoft Word atau Excel dan tersedia untuk digunakan pada bila-bila masa.
Menggunakan komponen ini untuk menghantar e-mel dalam produk Windows dengan VBA sangat mudah. Sebagai contoh, artikel ini menggunakan CDO dalam Excel untuk menghantar e-mel yang mengandungi hasil dalam satu sel.
Langkah 1: Buat Makro VBA
Pertama, pergi ke tab Pembangun Excel > klik Insert in Controls panel , kemudian pilih butang arahan.

Seret ke dalam lembaran kerja ini, kemudian buat makro baru dengan mengklik Makro di pita Pembangun.

Apabila anda mengklik butang Buat , ia membuka editor VBA.
Tambah rujukan ke perpustakaan CDO dengan menavigasi ke Alat> Rujukan dalam editor.

Tatal ke bawah senarai sehingga anda melihat Microsoft CDO untuk Perpustakaan Windows 2000 . Tandai kotak semak dan klik OK .

Apabila anda klik OK , perhatikan nama fungsi di mana skrip disekat, kerana anda akan memerlukannya kemudian.
Langkah 2: Tetapkan medan CDO "Dari" dan "Kepada"
Untuk melakukan ini, anda perlu membuat objek berkaitan e-mel terlebih dahulu dan menyediakan semua medan penghantaran e-mel yang diperlukan.
Ingat bahawa banyak bidang mungkin atau mungkin tidak, tetapi Dari dan Untuk diperlukan.
Dim CDO_Mail Sebagai Objek
Dim CDO_Config Sebagai Objek
Dim SMTP_Config Sebagai Variant
Dim strSubject Sebagai String
Dim strFrom Sebagai String
Dim strTo Sebagai String
Dim strCc Sebagai String
Dim strBcc Sebagai String
Dim strBody As String
strSubject = "Hasil dari Excel Spreadsheet"
strFrom = "[email protected]"
strTo = "[email protected]"
strCc = ""
strBcc = ""
strBody = "Jumlah hasil untuk suku ini adalah:" & Str (Sheet1 .Cells (2, 1))
Perkara yang menarik adalah bahawa anda boleh membuat apa-apa rentetan yang dikehendaki untuk menyesuaikan mesej e-mel keseluruhan dan memberikannya pemboleh ubah strBody.
Pecah bersama isi mesej e-mel menggunakan rentetan & untuk memasukkan data dari mana-mana hamparan Microsoft Excel tepat dalam e-mel (seperti ditunjukkan di atas).
Langkah 3: Konfigurasi CDO untuk menggunakan SMTP luaran
Sekeping kod berikutnya adalah di mana anda mengkonfigurasi CDO untuk menggunakan mana-mana pelayan SMTP luaran untuk menghantar e-mel.
Contoh ini tidak menyediakan SSL melalui Gmail, CDO boleh menggantikan SSL tetapi ia berada di luar skop artikel ini. Sekiranya anda perlu menggunakan SSL, kod maju dalam Github dapat membantu anda.
Tetapkan CDO_Mail = CreateObject ("CDO.Message")
Pada Kesalahan GoTo Error_Handling
Tetapkan CDO_Config = CreateObject ("CDO.Configuration")
CDO_Config.Load -1
Tetapkan SMTP_Config = CDO_Config.Fields
Dengan SMTP_Config.Item
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Telem ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp. gmail.com "
.Temem (" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate ") = 1
.Temem (" http://schemas.microsoft.com/cdo/configuration/sendusername ") =" [email protected] "
.Telem (" http://schemas.microsoft.com/cdo/configuration/sendpassword ") =" kata laluan "
.Titem (" http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25
.Telem (" http://schemas.microsoft.com/cdo/configuration/smtpusessl ") = Benar
.Update
Akhir Dengan
Dengan CDO_Mail
Set. Konfigurasi = CDO_Config
End With
Langkah 4: Penyediaan CDO lengkap
Anda kini telah mengkonfigurasi pelayan SMTP anda untuk menghantar e-mel. Apa yang perlu anda lakukan ialah mengisi medan yang sesuai untuk objek CDO_Mail dan mengeluarkan arahan Send .
Inilah caranya:
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:
Jika Err.Description <> "" Kemudian MsgBox Err.Description
Tiada tanda timbul atau tanda keselamatan muncul seperti yang biasanya anda lihat apabila menggunakan objek e-mel Outlook.
CDO hanya meletakkan komponen e-mel bersebelahan dan menggunakan butiran sambungan pelayan untuk membolehkan penghantaran maklumat. Ini adalah cara yang paling mudah untuk menggabungkan e-mel ke skrip Microsoft Word atau Excel VBA.
Untuk menyambungkan butang arahan ke skrip ini, akses editor kod dan klik Sheet1 untuk melihat kod VBA lembaran kerja tersebut.
Taipkan nama fungsi di mana anda menyisipkan skrip di atas.

Inilah maklumat yang anda terima dalam peti masuk.

Nota : Jika anda menerima ralat Pengangkut gagal menyambung ke pelayan , pastikan anda telah memasukkan nama pengguna, kata laluan, pelayan SMTP dan nombor port yang betul dalam baris kod yang disenaraikan dengan SMTP_Config .
Meningkatkan dan mengautomasikan keseluruhan proses
Mengirim e-mel dari Excel dengan satu butang adalah benar-benar selamat dan mudah. Sekiranya anda ingin menggunakan ciri ini dengan kerap, anda boleh mengautomasikannya.
Untuk melakukan ini, anda perlu menukar makro. Pergi ke Visual Basic Editor, salin dan tampal keseluruhan kod yang dikumpulkan. Seterusnya, pilih ThisWorkbook dari hierarki Projek .
Dari dua medan drop-down di bahagian atas tetingkap kod, pilih Buku Kerja dan klik Buka dari menu Kaedah . Tampalkan skrip e-mel di atas ke dalam Private Sub Workbook_Open () . Tindakan ini akan berjalan makro apabila anda membuka fail Excel.

Seterusnya, buka Penjadual Tugas . Anda akan menggunakan alat ini untuk meminta Windows untuk membuka hamparan secara automatik pada jarak tertentu. Pada masa itu, makro anda akan diaktifkan dan diemail.

Pilih Buat Tugas Asas ... dari menu Tindakan dan ikut arahan sehingga anda mencapai skrin Tindakan.
Pilih Mula program dan klik Seterusnya .

Gunakan butang Layari untuk mencari lokasi Microsoft Excel pada komputer atau salin & tampal laluan dalam medan Program / skrip .
Kemudian masukkan laluan ke dokumen Microsoft Excel dalam bidang Tambah hujah .
Arahan lengkap dan jadwal anda akan dibuat.
Anda harus menguji ciri ini dengan menjadualkan tindakan dalam beberapa minit akan datang, kemudian menyemak semula tugas setelah anda melihatnya berfungsi dengan berkesan.
Nota : Anda mungkin perlu menyesuaikan tetapan Pusat Amanah untuk memastikan bahawa makro berjalan seperti berikut:
Buka hamparan dan navigasi ke Fail> Pilihan> Pusat Amanah .
Di sini, klik Tetapan Pusat Amanah . Pada skrin seterusnya, pilih Jangan sekali-kali tunjukkan maklumat tentang kandungan yang disekat .
Microsoft Excel adalah alat yang sangat berkuasa, tetapi belajar bagaimana menggunakannya kadang-kadang boleh mencabar untuk banyak orang. Jika anda ingin menguasai perisian ini, anda perlu tahu cara menggunakan VBA. Ia tidak mudah.
Walau bagaimanapun, dengan pengalaman VBA yang sedikit, anda boleh mengautomasikan tugas-tugas asas di Microsoft Excel dan mempunyai lebih banyak masa memfokuskan pada tugas yang lebih penting.
Harap artikel ini membantu anda. Saya berharap kejayaan anda!