Bagaimana cara membuat tombol submit kirim ke email di excel?

Tombol dapat memiliki label, ikon, atau keduanya. Anda dapat mengubah cara tombol muncul di setiap status mouse (Atas, Bawah, dan Putar). Misalnya, Anda dapat membuat tombol yang memiliki label "Beranda" hingga penunjuk dipindahkan ke atas tombol, jika tombol tersebut mungkin memiliki label "Klik untuk kembali ke beranda"

Anda dapat membuat ikon tombol dari format file apa pun yang dapat ditampilkan Acrobat, termasuk PDF, JPEG, GIF, dan format gambar lainnya. Untuk format apa pun yang Anda pilih, seluruh halaman digunakan, jadi jika Anda hanya ingin menggunakan sebagian halaman sebagai ikon, Anda perlu memangkas gambar atau halaman sebelum melakukan prosedur ini. Ukuran halaman PDF terkecil yang diperbolehkan adalah 1 kali 1 inci (2. 54-kali-2. 54 cm). Jika Anda ingin ikon tampak lebih kecil dari 1 kali 1 inci, skalakan agar sesuai dengan ukuran kotak yang digambar dengan alat tombol. Mengklik Lanjutan di tab Opsi dari kotak dialog Properti Tombol memungkinkan Anda menentukan bagaimana ikon tombol diskalakan agar muat di dalam tombol

Untuk mengirim email dari Microsoft Excel hanya membutuhkan beberapa script sederhana. Tambahkan fungsionalitas ini ke spreadsheet Anda, dan Anda dapat menyelesaikan lebih banyak hal di Excel

Makro Excel dapat melakukan banyak hal yang sama dengan skrip VBA, tanpa perlu banyak pengetahuan pemrograman. VBA memungkinkan Anda menerapkan rutinitas yang lebih canggih, seperti membuat laporan spreadsheet dengan semua informasi PC Anda

Lebih suka menonton tutorial ini sebagai video?

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 mereka melakukannya. 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 rumit. Bukan itu masalahnya sama sekali. Teknik dalam artikel ini memanfaatkan fitur yang sudah lama tersedia di Excel VBA, Collaboration Data Objects (CDO)

CDO adalah komponen perpesanan 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 termasuk dalam instalasi VBA Anda di 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 mengirimkan email yang akan mengirimkan hasil dari sel Excel tertentu

Langkah 1. Siapkan Akun Gmail Anda

Untuk mengirim email dari Microsoft Excel, kami akan menggunakan Gmail, meskipun Anda dapat menyesuaikan makro di bawah untuk bekerja dengan klien email lainnya. Perhatikan bahwa Gmail tidak lagi mengizinkan akses aplikasi pihak ketiga, artinya Anda harus mengaktifkan autentikasi 2 langkah Gmail terlebih dahulu

Dari halaman Keamanan akun Google Anda, di bawah Masuk ke Google, klik Sandi aplikasi. Pada layar Kata sandi aplikasi, temukan menu tarik-turun Pilih aplikasi dan pilih Email. Dari Pilih perangkat, pilih Komputer Windows. Kemudian klik HASILKAN

Catat kata sandi aplikasi 16 karakter;

Langkah 2. Buat Makro VBA

Tip. Sebelum Anda mulai, simpan file Excel yang akan Anda gunakan sebagai Buku Kerja Berkemampuan Makro, mis. e. dalam format XLSM

Pertama, kita memerlukan tab Pengembang Excel. Jika Anda tidak melihatnya, berikut cara mengaktifkannya

1. Buka File > Opsi
2. Di bawah Sesuaikan Pita > Tab Utama, centang opsi Pengembang
3. Klik OK untuk menyimpan perubahan Anda

Di dalam tab Pengembang Excel, klik Sisipkan di kotak Kontrol, lalu pilih tombol perintah

Gambarkan ke dalam lembar lalu buat makro baru untuknya dengan mengeklik Makro di pita Pengembang

Ketika Anda mengklik tombol Buat, itu akan membuka editor VBA

Tambahkan referensi ke pustaka CDO dengan membuka Alat > Referensi di editor

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

Saat Anda mengklik OK, catat nama fungsi tempat Anda menempelkan skrip. Anda akan membutuhkannya nanti

Langkah 3. Konfigurasi Makro Anda

Sekarang Anda siap membuat objek email dan menyiapkan semua bidang yang diperlukan untuk mengirim email. Ingatlah bahwa meskipun banyak bidang bersifat opsional, bidang Dari dan Ke diperlukan. Rekatkan semua cuplikan kode di bawah ini ke jendela Module1 (Code) Anda

Seperti inilah tampilan kode lengkapnya

 Sub Send_Emails()
   Dim NewMail As CDO.Message
   Dim mailConfig As CDO.Configuration
   Dim fields As Variant
   Dim msConfigURL As String
   On Error GoTo Err:

   'early binding
   Set NewMail = New CDO.Message
   Set mailConfig = New CDO.Configuration

   'load all default configurations
   mailConfig.Load -1

   Set fields = mailConfig.fields

   'Set All Email Properties
   With NewMail
       .From = "[email protected]"
       .To = "[email protected]"
       .CC = ""
       .BCC = ""
       .Subject = "Send Email From an Excel Spreadsheet"
       .TextBody = "This is the body of your email. And here is some added data:" & Str(Sheet1.Cells(2, 1))
       .Addattachment "c:\data\email.xlsx" 'Optional file attachment; remove if not needed.
       .Addattachment "c:\data\email.pdf" 'Duplicate the line for a second attachment.
   End With

   msConfigURL = "http://schemas.microsoft.com/cdo/configuration"

   With fields
       .Item(msConfigURL & "/smtpusessl") = True 'Enable SSL Authentication
       .Item(msConfigURL & "/smtpauthenticate") = 1 'SMTP authentication Enabled
       .Item(msConfigURL & "/smtpserver") = "smtp.gmail.com" 'Set the SMTP server details
       .Item(msConfigURL & "/smtpserverport") = 465 'Set the SMTP port Details
       .Item(msConfigURL & "/sendusing") = 2 'Send using default setting
       .Item(msConfigURL & "/sendusername") = "[email protected]" 'Your gmail address
       .Item(msConfigURL & "/sendpassword") = "password" 'Your password or App Password
       .Update 'Update the configuration fields
   End With
   NewMail.Configuration = mailConfig
   NewMail.Send
   
   MsgBox "Your email has been sent", vbInformation

Exit_Err:
   'Release object memory
   Set NewMail = Nothing
   Set mailConfig = Nothing
   End

Err:
   Select Case Err.Number
   Case -2147220973 'Could be because of Internet Connection
       MsgBox "Check your internet connection." & vbNewLine & Err.Number & ": " & Err.Description
   Case -2147220975 'Incorrect credentials User ID or password
       MsgBox "Check your login credentials and try again." & vbNewLine & Err.Number & ": " & Err.Description
   Case Else 'Report other errors
       MsgBox "Error encountered while sending email." & vbNewLine & Err.Number & ": " & Err.Description
   End Select

   Resume Exit_Err

End Sub 

Dan ini adalah bagian dan bidang yang perlu Anda sesuaikan

• Dengan Surat Baru. Bagian ini berisi semua parameter untuk mengirim email Anda, termasuk badan email Anda. Itu. Bidang Dari harus berisi alamat Gmail Anda, tetapi Anda bebas menyetel bidang lain sesuka Anda. Untuk badan, Anda dapat menyusun komponen pesan dengan menggunakan string & untuk memasukkan data dari salah satu lembar Microsoft Excel langsung ke pesan email, seperti yang ditunjukkan di atas. Anda juga dapat melampirkan satu atau beberapa file
• Dengan bidang. Di sinilah Anda mengonfigurasi pengaturan SMTP untuk akun Gmail Anda. Biarkan bidang smtpserver dan smtpserverport seperti saat menyalin kode. Masukkan nama pengguna Gmail Anda dan kata sandi aplikasi 16 digit ke dalam bidang masing-masing

Langkah 4. Uji Makro Anda

Di editor VBA, buka Run > Run Sub/User Form atau tekan F5 untuk menguji makro. Jika email Anda gagal masuk, Anda akan melihat pesan kesalahan. Jika tidak, Anda akan melihat konfirmasi bahwa email Anda berhasil dikirim

Langkah 5. Hubungkan Tombol Perintah ke Script Anda

Untuk menghubungkan tombol perintah Anda ke skrip ini, masuk ke editor kode dan klik dua kali pada Sheet1 untuk melihat kode VBA untuk lembar kerja itu. Pilih tombol Anda, mis. g. CommandButton1, dari drop-down di sebelah kiri dan tentukan tindakan di sebelah kanan; . Kemudian ketikkan nama fungsi tempat Anda menempelkan skrip di atas;

Saat Anda kembali ke lembar Anda sekarang, klik tombol untuk mengirim email

Berikut adalah contoh tampilan pesan di kotak masuk Anda

Ambil Lebih Lanjut dan Otomatiskan Seluruh Proses

Semuanya baik dan bagus untuk dapat mengirim email dari Excel dengan satu sentuhan tombol. Namun, Anda mungkin ingin menggunakan fungsi ini secara teratur, sehingga masuk akal untuk mengotomatiskan prosesnya. Untuk melakukannya, Anda harus membuat perubahan pada makro. Buka Editor Visual Basic dan salin dan tempel keseluruhan kode yang telah Anda kumpulkan sejauh ini

Selanjutnya, klik dua kali ThisWorkbook dari hierarki VBAProject

Dari dua bidang tarik-turun di bagian atas jendela kode, pilih Buku Kerja dan pilih Buka dari tarik-turun Metode

Rekatkan skrip email di atas ke dalam Sub Workbook_Open()

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 mana makro Anda akan berjalan, mengirim email

Dari menu Tindakan, pilih Buat Tugas Dasar. dan lanjutkan melalui wizard hingga Anda mencapai layar Action

Pilih Mulai program dan klik Berikutnya. Gunakan tombol Telusuri untuk menemukan lokasi Microsoft Excel di komputer Anda, atau salin dan tempel jalur ke bidang Program/skrip. Lalu, masukkan jalur ke dokumen Microsoft Excel Anda ke dalam bidang Tambahkan argumen. Selesaikan wizard, dan penjadwalan Anda akan dilakukan

Ada baiknya menjalankan pengujian dengan menjadwalkan tindakan selama beberapa menit di masa mendatang, lalu mengubah tugas setelah Anda dapat mengonfirmasi bahwa itu berfungsi

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

Untuk melakukannya, buka spreadsheet dan navigasikan ke File > Opsi > Pusat Kepercayaan. Dari sini, klik Pengaturan Pusat Kepercayaan. , dan pada layar berikutnya setel tombol radio ke Jangan pernah menampilkan informasi tentang konten yang diblokir

Jadikan Microsoft Excel Bekerja untuk Anda

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

Namun, hasilnya berbicara sendiri. Dengan sedikit pengalaman VBA, 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.

Bagaimana cara mengirim email jika tombol diklik di Excel dengan lampiran?

Apakah ada cara untuk mengirim email secara otomatis dari Excel?

Bagaimana cara membuat formulir pengiriman di Excel?

Bagaimana cara membuat tombol dinamis di Excel?