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
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
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:
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:
Note: Metode ini hanya tersedia saat Anda menggunakan Outlook sebagai program email Anda.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Canggih untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda 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!
