Loncat ke daftar isi utama

Bagaimana cara mengirim email saat file attachment Excel dibuka oleh penerima?

Sebagian besar dari kita mungkin mengirim beberapa pesan penting dengan lampiran file Excel ke klien kita, jadi kita perlu tahu apakah penerima telah menerima pesan tersebut dan membuka lampiran file. Dalam hal ini, Anda dapat membuat kode VBA untuk file lampiran Excel Anda, saat penerima membuka buku kerja dan mengaktifkan kode tersebut, maka email prompt akan dikirimkan kepada Anda secara otomatis.

Kirim email ketika file lampiran Excel dibuka oleh penerima dengan kode VBA


panah gelembung kanan biru Kirim email ketika file lampiran Excel dibuka oleh penerima dengan kode VBA

Sebelum mengirimkan file Excel ini, Anda harus membuat kode sebagai berikut:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Lalu klik dua kali Buku Kerja Ini bawah Proyek VBA bagian untuk membuka modul kosong, lalu salin dan tempel kode berikut ke dalam modul:

Kode VBA: Kirim email saat file Excel dibuka:

Private Sub Workbook_Open()
'Updateby Extendoffice
    Dim olkObj As Object
    Dim olkEm As Object
    Dim strbody As String
    Set olkObj = CreateObject("Outlook.Application")
    Set olkEm = olkObj.CreateItem(0)
    strbody = "Hi there" & vbNewLine & vbNewLine & _
              ThisWorkbook.Name & vbNewLine & _
              "was opened by" & vbNewLine & _
              Environ("username")
    On Error Resume Next
    With olkEm
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "File opened"
        .Body = strbody
        .Send
    End With
    On Error GoTo 0
    Set olkEm = Nothing
    Set olkObj = Nothing
End Sub

doc kirim saat membuka file 1

Note: Dalam kode di atas, Anda harus mengubah alamat email ke alamat Anda sendiri yang Anda inginkan untuk menerima email prompt, dan mengubah subjek sesuai kebutuhan Anda.

3. Kemudian simpan buku kerja ini sebagai Buku Kerja Excel dengan Makro Aktif format file, lihat tangkapan layar:

doc kirim saat membuka file 2

4. Dan kemudian mengirim pesan dengan lampiran file ini ke penerima yang Anda butuhkan, ketika penerima mengunduh dan membuka file Excel ini dan mengaktifkan kode, email prompt akan secara otomatis dikirim kepada Anda dan memberi tahu Anda bahwa file dibuka oleh siapa sebagai berikut tangkapan layar ditampilkan:

doc kirim saat membuka file 3

Note: Metode ini hanya tersedia saat Anda menggunakan Outlook sebagai program email Anda.

Alat Produktivitas Kantor Terbaik

🤖 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you for the above code. I'm just curious. To add a selected range of a specific worksheet too in the body of the email. I have tried using sh.range select method in your code and the email goes out but without the range probably I'm doing something wrong here or missed to add some additional codes.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations