Ketika pengguna mengirim email ke pelanggan atau bos mereka, cukup sulit untuk melacaknya. Dalam hal ini, Excel sangat berguna. Oleh karena itu, "kirim email otomatis dari Excel untuk Outlook" telah terbukti sebagai pendekatan yang menghemat waktu. Makro VBA Excel dan HYPERLINK fungsi dapat mengirim email otomatis atau membuat draf menggunakan entri Excel.

Katakanlah kita memiliki Gaji Karyawan yang Direstrukturisasi data di Excel dan kami ingin mengirim email otomatis menggunakan Outlook .

Dalam artikel ini, kami mendemonstrasikan beberapa varian dari Makro VBA dan HYPERLINK berfungsi untuk mengirim email otomatis dari Excel untuk Outlook .

Unduh Buku Kerja Excel

⧭ Membuka Microsoft Visual Basic dan Memasukkan Kode dalam Modul

Sebelum melanjutkan untuk mendemonstrasikan metode apa pun, perlu diketahui cara-cara untuk membuka dan memasukkan file Modul di Microsoft Visual Basic di Excel.

🔄 Membuka Microsoft Visual Basic: Ada terutama 3 cara untuk membuka Microsoft Visual Basic jendela.

1. Menggunakan Pintasan Papan Ketik: Tekan ALT+F11 sama sekali untuk membuka Microsoft Visual Basic jendela.

2. Menggunakan Tab Developer: Dalam lembar kerja Excel, Buka Tab Pengembang > Pilih Visual Basic . Microsoft Visual Basic jendela muncul.

3. Menggunakan Tab Lembar Kerja: Buka lembar kerja apa pun, Klik Kanan di atasnya> Pilih Lihat Kode (dari Konteks Menu ).

🔄 Menyisipkan Modul di Microsoft Visual Basic: Ada 2 cara untuk menyisipkan Modul di Microsoft Visual Basic jendela,

1. Menggunakan Opsi Sheet: Setelah membuka Microsoft Visual Basic jendela, pilih Lembar Kerja > Klik Kanan di atasnya> Pilih Sisipkan (dari Menu Konteks )> kemudian pilih Modul .

2. Menggunakan Toolbar: Anda juga bisa melakukannya dengan memilih Sisipkan (dari Bilah Alat )> kemudian memilih Modul .

4 Cara Mudah untuk Mengirim Email Otomatis dari Excel ke Outlook

Metode 1: Menggunakan Makro VBA untuk Mengirim Email Secara Otomatis Menggunakan Outlook ke Penerima yang Dipilih

Kita ingin membuat eksekusi Makro Tombol yang dengannya kita dapat dengan mudah mengirim email ke penerima yang dipilih hanya dengan satu klik.

Langkah 1: Pergi ke Sisipkan tab> Bentuk > Pilih salah satu bentuk yang ditawarkan (mis, Persegi Panjang: Sudut Bulat ).

Langkah 2: Seret Ditambah Ikon di mana pun Anda ingin menyisipkan Bentuk seperti ditunjukkan dalam gambar di bawah ini.

Langkah 3: Pilih yang disukai Isi Bentuk dan Garis besar Warna lalu klik kanan di atasnya. Klik pada Edit Teks untuk menyisipkan teks.

Langkah 4: Gunakan instruksi untuk membuka Microsoft Visual Basic dan menyisipkan Modul Tempelkan Makro berikut ini di dalam Modul .

 Sub ExcelToOutlookSR() Dim mApp As Object Dim mMail As Object Dim SendToMail As String Dim MailSubject As String Dim mMailBody As String For Each r In Selection SendToMail = Range("C" & r.Row) MailSubject = Range("F" & r.Row) mMailBody = Range("G" & r.Row) Set mApp = CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) With mMail .To = SendToMail .Subject = MailSubject.Body = mMailBody .Display 'Anda bisa menggunakan .Send End With Next r End Sub 

➤ dalam kode,

1 - memulai prosedur makro dengan mendeklarasikan variabel sebagai Objek dan String .

2 - menjalankan VBA UNTUK loop untuk setiap baris dalam pemilihan untuk menetapkan Email Kirim ke , Subjek dan Tubuh menggunakan entri baris.

3 - menetapkan variabel.

4 - melakukan VBA Dengan pernyataan untuk mengisi Outlook barang-barang seperti Kirim ke , Subjek Surat , dsb. Di sini makro hanya mengeksekusi Tampilan perintah untuk mengeluarkan Outlook dengan draf email. Namun, jika Kirim digunakan di tempat atau setelah Tampilan, Outlook akan mengirim email yang dibuat ke penerima yang dipilih.

5 - selesaikan VBA UNTUK lingkaran.

Langkah 5: Kembali ke Lembar Kerja. Klik kanan pada Bentuk lalu pilih Tetapkan Makro dari Menu Konteks pilihan.

Langkah 6: Pilih Makro (yaitu, ExcelToOutlookSR ) di bawah Nama makro dan pilih Makro dalam opsi sebagai Buku Kerja ini . Klik pada OK .

Langkah 7: Sekarang, di lembar kerja, pilih satu atau beberapa karyawan, lalu klik pada Tombol Bentuk .

Langkah 8: Perintah Excel Outlook untuk makan siang dan membuat atau mengirim email ke karyawan yang dipilih, Outlook menghasilkan dua draf email berbeda yang siap dikirim.

Karena makro hanya menyediakan Tampilan perintah, Outlook hanya menampilkan draf email tanpa mengirimkannya. Gunakan perintah Kirim perintah untuk mengirim email secara otomatis dari Excel untuk Outlook menggunakan entri sel.

Baca selengkapnya: Excel Macro untuk Mengirim Email Secara Otomatis (3 Contoh yang Sesuai)

Metode 2: Mengirim Email Secara Otomatis dari Excel ke Outlook Bergantung pada Nilai Sel Tertentu

Bagaimana jika kita ingin mengirim email otomatis setelah mencapai target dari Excel untuk Outlook Kode Makro dapat melakukan pekerjaan ini dengan mudah.

Misalkan, kita memiliki Data Penjualan Triwulanan seperti yang digambarkan di bawah ini, setelah mencapai target (yaitu, Penjualan & gt; 2000 ) akan secara otomatis meminta Outlook untuk mengirim email dari Excel ke id email yang ditetapkan.

Langkah 1: Ketikkan kode makro berikut ini di sembarang Modul .

 Option Explicit Dim Rng As Range Sub Worksheet_Change(ByVal mRng As Range) On Error Resume Next If mRng.Cells.Count> 1 Then Exit Sub Set Rng = Intersect(Range("F17"), mRng) If Rng Is Nothing Then Exit Sub If IsNumeric(mRng.Value) And Target.Value> 2000 Then Call ExcelToOutlook End If End Sub Sub ExcelToOutlook() Dim mApp As Object Dim mMail As Object Dim mMailBody As String Set mApp =CreateObject("Outlook.Application") Set mMail = mApp.CreateItem(0) mMailBody = "Salam Pak" & vbNewLine & vbNewLine & _ "Outlet kami memiliki penjualan triwulanan lebih dari target." & vbNewLine & _ "Ini adalah surat konfirmasi." & vbNewLine & vbNewLine & vbNewLine & _ "Tim Outlet" On Error Resume Next With mMail .To = "[email protected]" .CC = "".BCC = "" .Subject = "Pemberitahuan Pencapaian Target Penjualan" .Body = mMailBody .Display 'atau anda bisa menggunakan .Send End With On Error GoTo 0 Set mMail = Nothing Set mApp = Nothing End Sub 

Dari gambar di atas, di bagian,

1 - menetapkan sel (yaitu, F17 ) dalam suatu rentang untuk mengeksekusi VBA IF Jika pernyataan tersebut menghasilkan Benar , makro memanggil makro lain untuk dieksekusi.

2 - mendeklarasikan tipe variabel dan menetapkannya untuk mengisi Outlook 's entri.

3 - melakukan VBA Dengan untuk menetapkan variabel ke entri email. Gunakan pernyataan Kirim perintah, bukannya Tampilan jika Anda langsung ingin mengirim email tanpa memeriksanya. Email penerima dimasukkan dalam makro. Gunakan metode alternatif jika Anda menginginkan penyisipan otomatis id email penerima.

4 - menghapus variabel-variabel tertentu dari penugasan.

Langkah 2: Gunakan F5 untuk menjalankan makro. Dalam sekejap, Excel mengambil Outlook dengan draf email yang dibuat secara otomatis seperti yang ditunjukkan pada berikut ini. Anda dapat mengklik Kirim atau pengiriman otomatis menggunakan Kirim perintah dalam makro.

Baca selengkapnya: Kirim Email secara otomatis dari Excel Berdasarkan Konten Sel (2 Metode)

Bacaan Serupa

• Cara Melihat Siapa yang Ada di File Excel Bersama (Dengan Langkah Cepat)
• Aktifkan Bagikan Buku Kerja di Excel
• Cara Berbagi File Excel untuk Banyak Pengguna
• Cara Menerapkan Makro untuk Mengirim Email dari Excel dengan Lampiran

Metode 3: Menggunakan Makro VBA untuk Mengirim Email dengan Lembar Kerja Aktif dari Excel oleh Outlook

Atau, mungkin ada kejadian di mana kita perlu mengirim seluruh Lembar Aktif ke alamat email yang telah ditetapkan. Dalam hal ini, kita dapat menggunakan Fungsi Kustom VBA untuk dipanggil di dalam makro.

Langkah 1: Sisipkan makro di bawah ini dalam Modul .

 Function ExcelOutlook(mTo, mSub As String, Optional mCC As String, Optional mBd As String) As Boolean As Boolean On Error Resume Next Dim mApp As Object Dim rItem As Object Set mApp = CreateObject("Outlook.Application") Set rItem = mApp.CreateItem(0) With rItem .To = mTo .CC = "" .Subject = mSub .Body = mBd .Attachments.Add ActiveWorkbook.FullName .Display 'atau Anda bisa menggunakan .Send End With Set rItem = NothingSet mApp = Nothing End Function Sub OutlookMail() Dim mTo As String Dim mSub As String Dim mBd As String mTo = "[email protected]" mSub = "Data Penjualan Triwulanan" mBd = "Salam Pak" & vbNewLine & vbNewLine & _ "Mohon temukan data Penjualan Triwulanan Outlet yang dilampirkan dengan email ini." & vbNewLine & _ "Ini email pemberitahuan." & vbNewLine & vbNewLine & _ "Salam" &vbNewLine & _ "Tim Outlet" If ExcelOutlook(mTo, mSub, , mBd) = True Then MsgBox "Berhasil membuat draft Surat atau Terkirim" End If End Sub 

Dari gambar di atas, bagian kode,

1 - mendeklarasikan dan menetapkan variabel.

2 - menetapkan perintah-perintah dengan menggunakan VBA Dengan Gunakan pernyataan. Tampilan atau Kirim perintah untuk meninjau atau mengirim email secara langsung.

3 - menghapus variabel-variabel yang sudah ditetapkan sebelumnya.

4 - menetapkan VBA Dengan perintah dengan teks.

5 - mengeksekusi Fungsi Kustom VBA .

Langkah 2: Untuk mengeksekusi makro, tekan F5 , dan secara instan Excel memunculkan Outlook dengan draf email untuk ditinjau seperti gambar di bawah ini. Setelah itu, Anda dapat mengirimkannya.

Baca selengkapnya: Cara Mengirim Email Massal dari Outlook Menggunakan Excel (3 Cara)

Metode 4: Mengirim Email Otomatis dari Excel ke Outlook Menggunakan Fungsi HYPERLINK

The HYPERLINK fungsi menghasilkan tautan yang dapat diklik di sel Excel untuk membawa Outlook sebagai media untuk mengirim email otomatis dari Excel.

Langkah 1: Ketikkan rumus berikut di sel H5 .

The HYPERLINK fungsi mengambil "MailTo:"&C5&"?Subject="&F5&"&cc="&$D$2&"&body="G 5 sebagai link_lokasi dan "Klik di sini" sebagai friendly_name .

Langkah 2: Memukul MASUK untuk menempelkan tautan. Kemudian klik pada tautan tersebut.

Langkah 3: Excel membawa Anda ke Outlook Dan Anda melihat semua Outlook diisi dengan data yang ditetapkan dari Excel. Klik pada Kirim .

Langkah 4: Seret Isi Gagang untuk menerapkan rumus ke sel lain.

Baca selengkapnya: Cara Mengirim Email Secara Otomatis Saat Kondisi Terpenuhi di Excel

Kesimpulan

Varian Makro VBA dan HYPERLINK Fungsi ini dapat membantu saat mengirim email otomatis dari Excel ke Outlook. Semoga Anda menemukan metode pilihan Anda dalam metode yang dijelaskan di atas. Beri komentar, jika Anda memiliki pertanyaan lebih lanjut atau memiliki sesuatu untuk ditambahkan.