Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara cepat mengirim email berdasarkan tanggal di sel Excel?

Pernahkah Anda mencoba mengirim Email berdasarkan tanggal di sel Excel? Misalnya, berikut adalah daftar tanggal di kolom A, lalu Anda ingin mengirim Email dengan subjek, isi pesan ke penerima (juga dapat CC dan BCC ke orang lain), bagaimana Anda bisa menanganinya?

Kirim Email berdasarkan tanggal dengan VBA


Kirim Email berdasarkan tanggal dengan VBA

Untuk mengirim email berdasarkan tanggal di Excel, Anda hanya dapat menerapkan kode makro.

1. Aktifkan lembar yang berisi data dan tanggal yang Anda gunakan, dan tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.

2. klik Menyisipkan > Modul, dan tempel kode di bawah ini ke skrip kosong. 

VBA: Kirim berdasarkan tanggal

Sub email()
'UpdatebyExtendoffice20170831
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xAddress As String
    Dim xEmail_Subject, xEmail_Send_From, xEmail_Send_To, xEmail_Cc, xEmail_Bcc, xEmail_Body As String
    Dim xMail_Object, xMail_Single As Object
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xRgEach In xRg
        If xRgEach.Value = Date Then
            xEmail_Subject = Application.InputBox("Subject: ", "Kutools", , , , , , 2)
            xEmail_Send_From = Application.InputBox("Send from: ", "KuTools For Excel", , , , , , 2)
            xEmail_Send_To = Application.InputBox("Send to: ", "KuTools For Excel", , , , , , 2)
            If xEmail_Send_To = "" Then Exit Sub
            xEmail_Cc = Application.InputBox("CC: ", "KuTools For Excel", , , , , , 2)
            xEmail_Bcc = Application.InputBox("BCC: ", "KuTools For Excel", , , , , , 2)
            xEmail_Body = Application.InputBox("Message Body: ", "KuTools For Excel", , , , , , 2)
            Set xMail_Object = CreateObject("Outlook.Application")
            Set xMail_Single = xMail_Object.CreateItem(0)
            With xMail_Single
                .Subject = xEmail_Subject
                .To = xEmail_Send_To
                .cc = xEmail_Cc
                .BCC = xEmail_Bcc
                .Body = xEmail_Body
                .Send
            End With
        End If
    Next
End Sub

3. klik Run tombol atau tekan F5 kunci untuk menjalankan kode, sebuah dialog muncul untuk mengingatkan Anda untuk memilih daftar tanggal. Lihat tangkapan layar:
doc kirim menurut tanggal 1

4. Klik OK, dan lanjutkan untuk menentukan subjek email, alamat email pengirim, alamat email penerima, CC, BCC, dan badan pesan. Lihat tangkapan layar:

doc kirim menurut tanggal 2 tembakan panah ke kanan doc kirim menurut tanggal 3 tembakan panah ke kanan doc kirim menurut tanggal 4
        doc panah ke bawah
doc kirim menurut tanggal 7 tembakan panah kiri doc kirim menurut tanggal 6 tembakan panah kiri doc kirim menurut tanggal 5

5. klik OK > OK sampai yang terakhir, dan kemudian email telah terkirim.
doc kirim menurut tanggal 8

Catatan: alamat email pengirim harus menjadi akun default di Outlook Anda.


Buat Milis dan Kirim Email

doc kirim email

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (13)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara mendapatkan VBA di Excel untuk menghasilkan email saat sel berubah warna? Saya dapat menggunakan rumus untuk mengubah font sel, berdasarkan jam komputer, ketika tanggal berada dalam rentang sebelum kedaluwarsa. Saat ini saya memiliki spreadsheet dengan 25 nama karyawan dan tanggal kedaluwarsa untuk SIM mereka, izin kerja, tanggal masuk/keluar visa, dan tanggal mulai tahunan. Ada tanggal yang 30 hari, ada yang 60 hari. Setiap kali tanggal memasuki rentang 30 (atau 60) hari sebelum kedaluwarsa, nilai dalam sel berubah dari font hitam normal menjadi font merah tebal. Saya ingin agar email yang dikirimkan kepada saya memperingatkan bahwa orang di A1...A2...A3, dll. akan memiliki dokumen kerja yang kedaluwarsa. Apa skrip yang harus saya jalankan untuk mencapai ini?
Komentar ini diminimalkan oleh moderator di situs
Komentar ini diminimalkan oleh moderator di situs
Ini dekat dengan apa yang saya butuhkan tetapi saya terjebak dengan dua masalah. Pertama, saya perlu menjalankan ini di seluruh buku kerja saya yang menambahkan lembar kerja baru setiap hari. 1 saya membutuhkannya untuk memasukkan nama lembar kerja di email sehingga saya akan tahu lembar mana yang jatuh tempo. Saya membuat tiket (lembar kerja) baru dengan bidang yang merupakan tanggal yang akan datang, ketika hari itu tiba saya memerlukan email. Terima kasih untuk bantuannya.
Komentar ini diminimalkan oleh moderator di situs
Felicidades por el material; tapi bukan aku fungsinya. Al parecer the Rango no se llena, por ende queda vacío y sale de la rutina.

Koreksi Alguna ?
Komentar ini diminimalkan oleh moderator di situs
holagracias por tu ayuda...tengo una Consulta.....en la formula Set xRgDate = Application.InputBox("Silakan pilih kolom tanggal jatuh tempo:", "KuTools For Excel", , , , , , 8), el 8 signifikan?
Komentar ini diminimalkan oleh moderator di situs
Kotak tidak terisi secara otomatis setelah saya menekan OK. Di mana saya mengubah subjek, alamat email, dan isi email dalam kode?
Komentar ini diminimalkan oleh moderator di situs
Bonjour j'ai copié les codes, la validation il me demande bien les cellules concernées, mais lorsque que je valide, il ne me proposal pas la suite des fenêtres, sujets, adresses etc
Komentar ini diminimalkan oleh moderator di situs
Hai, boutry, maaf saya membalas dengan bahasa Inggris karena saya tidak tahu bahasa Prancis. Bolehkah saya tahu format waktu tanggal Anda? Saya kira mungkin kodenya hanya berfungsi untuk datetime dalam format tanggal bahasa Inggris.
Komentar ini diminimalkan oleh moderator di situs
Merhaba, bir excel dosyasında hatırlatıcı olarak bu konuyla ilgili VSB nin nasıl yapıldığı ile ilgili bilgiye ihtiyacım var. rneğin boş bir hücreye bilgi girildiğinde bana mail at ya da 3 hafta sıklıkla hücreye bilgi girilip girilmediğiyle alakalı bana bilgi ver.

Hertürlü bilgi ve kaynağa açığım. imdiden herkese teşekkür ederim..
Komentar ini diminimalkan oleh moderator di situs
Hai, Mehmet, ini tutorialnya Bagaimana Cara Mengirim Email Jika Sel Tertentu Dimodifikasi Di Excel? yang berbicara tentang mengirim email dengan file excel sebagai lampiran jika sel dalam rentang tertentu dimodifikasi, yang dapat membantu Anda.
Komentar ini diminimalkan oleh moderator di situs
ok teşekkür ederim..
Komentar ini diminimalkan oleh moderator di situs
itu tidak terjadi pada xRgEach berikutnya jika saya memiliki tanggal yang sama beberapa kali, itu mengirim email ke pengguna yang sama beberapa kali.
Komentar ini diminimalkan oleh moderator di situs
Hai, vaibhav, Anda dapat menghapus waktu duplikat dengan menggunakan fitur Hapus Duplikat di Alat Data di bawah tab Data, lalu menggunakan VBA.
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan