Cara mengirim email reminder otomatis dari worksheet excel menggunakan vba

1. Buat lembar kerja yang berisi tajuk kolom dan bidang pengingat yang sesuai seperti gambar di bawah ini

Catatan. Untuk kolom status sibuk, nomor 2 berarti pengingat akan ditampilkan sebagai Sibuk di kalender Outlook Anda. Anda dapat mengubahnya menjadi 1 (Tentatif), 3 (Di Luar Kantor), 4 (Bekerja di tempat lain), atau 5 (Gratis) sesuai kebutuhan

2. Tekan tombol Alt + F11 untuk membuka jendela Microsoft Visual Basic for Applications

3. Di jendela Microsoft Visual Basic for Applications, klik Sisipkan > Modul. Kemudian salin kode VBA di bawah ini ke jendela Kode

kode VBA. Buat pengingat Outlook dari spreadsheet Excel

Sub AddAppointments()
'Update by Extendoffice 20180608
    Dim I As Long
    Dim xRg As Range
    Dim xOutApp As Object
    Dim xOutItem As Object
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = Range("A2:G2")
    For I = 1 To xRg.Rows.Count
        Set xOutItem = xOutApp.createitem(1)
        Debug.Print xRg.Cells(I, 1).Value
        xOutItem.Subject = xRg.Cells(I, 1).Value
        xOutItem.Location = xRg.Cells(I, 2).Value
        xOutItem.Start = xRg.Cells(I, 3).Value
        xOutItem.Duration = xRg.Cells(I, 4).Value
        If Trim(xRg.Cells(I, 5).Value) = "" Then
            xOutItem.BusyStatus = 2
        Else
            xOutItem.BusyStatus = xRg.Cells(I, 5).Value
        End If
        If xRg.Cells(I, 6).Value > 0 Then
            xOutItem.ReminderSet = True
            xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Value
        Else
            xOutItem.ReminderSet = False
        End If
        xOutItem.Body = xRg.Cells(I, 7).Value
        xOutItem.Save
        Set xOutItem = Nothing
    Next
    Set xOutApp = Nothing
End Sub

Catatan. Pada kode di atas, A2. G2 adalah rentang data yang ingin Anda buat berdasarkan janji temu

4. Tekan tombol F5 atau klik tombol Jalankan untuk menjalankan kode. Kemudian semua janji temu dengan bidang tertentu akan dimasukkan ke dalam kalender Outlook Anda sekaligus

Dan kemudian, Anda dapat pergi ke Kalender pandangan Anda untuk melihat hasilnya, Lihat tangkapan layar.  

Kutools for Outlook - Membawa 100 Fitur Lanjutan ke Outlook, dan Membuat Pekerjaan Lebih Mudah

• CC/BCC Otomatis sesuai aturan saat mengirim email; . Auto Forward Multiple Emails by custom; Auto Reply without exchange server, and more automatic features...
• Peringatan BCC - tampilkan pesan saat Anda mencoba membalas semua jika alamat email Anda ada dalam daftar BCC; Remind When Missing Attachments, and more remind features...
• Balas (Semua) Dengan Semua Lampiran dalam percakapan email ; . Reply Many Emails in seconds; Auto Add Greeting when reply; Add Date into subject...
• Alat Lampiran. Kelola Semua Lampiran di Semua Surat, Lepas Otomatis , Kompres Semua , Ganti Nama . Laporan Cepat, Hitung Email yang Dipilih .
• Email Sampah yang Kuat secara khusus; . Remove Duplicate Mails and Contacts.. Memungkinkan Anda bekerja lebih cerdas, lebih cepat, dan lebih baik di Outlook.

Baca selengkapnya. Unduh sekarang

Terlama Pertama

Urutkan komentar menurut

Terlama Pertama

Pertama Terbaru

Komentar ( 54 )

Belum ada peringkat. Jadilah yang pertama menilai

Riaz

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai, yang di sana,

Formula/kode yang bagus


Apa yang terjadi bahwa kode ini menghasilkan banyak entri di kalender prospek jika dijalankan lebih dari sekali karena kesalahan. Saya juga ingin itu diatur sebagai template sehingga staf dapat menggunakannya. Mereka dapat memasukkan tanggal dan rincian lainnya yang diperlukan dan ketika mereka menjalankannya harus mencantumkan entri dalam kalender prospek. Setiap data excel yang dihapus juga harus dihapus dari Outlook dan hal yang sama berlaku untuk setiap perubahan. Ketika saya menyimpan spreadsheet excel, itu disimpan dalam format excel default, tetapi saya ingin disimpan dengan Macro sehingga tidak kehilangan kode dan staf dapat menggunakannya sesering yang diperlukan. Bisakah Anda menyarankan dan membuat perubahan yang relevan pada kode?

Membalas

Laporan

0

0

kristal     Riaz

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai,
Untuk menyimpan makro untuk digunakan di masa mendatang di Buku Kerja, Anda perlu mengklik File > Simpan Sebagai > Telusuri > pilih folder untuk menyimpan buku kerja > pilih "Buku Kerja Berkemampuan Makro Excel" dari drop-down Simpan sebagai jenis > Simpan

Membalas

Laporan

0

0

Gitika Khanchandani     kristal

sekitar 2 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai,

Bagaimana cara mengirim pengingat ke banyak orang?

Membalas

0

0

Michelle

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Halo, terima kasih atas kodenya, tetapi saya kesulitan dengan itu hanya memasukkan entri pertama di excel ke Outlook. Bagaimana cara memasukkannya ke semua item baris?
Ini kode saya, saya menambahkan warna kategori


Sub Tambahkan Janji Temu()
'Perbarui dengan Extendoffice 20180608
Redupkan Aku Selamanya
Dim xRg Sebagai Kisaran
Redupkan xOutApp Sebagai Objek
Redupkan xOutItem Sebagai Objek
Atur xOutApp = CreateObject("Outlook. Aplikasi")
Tetapkan xRg = Range("A2. G2")
Untuk I = 1 Ke xRg. Baris. Menghitung
Atur xOutItem = xOutApp. buat item(1)
Debug. Cetak xRg. Sel (I, 1). Nilai
xOutItem. Subyek = xRg. Sel (I, 1). Nilai
xOutItem. Lokasi = xRg. Sel (I, 2). Nilai
xOutItem. Mulai = xRg. Sel (I, 3) + xRg. Sel (I, 8). Nilai
xOutItem. Durasi = xRg. Sel (I, 4). Nilai
xOutItem. Kategori = xRg. Sel (I, 9). Nilai
Jika Potong (xRg. Sel (I, 5). Nilai) = "" Lalu
xOutItem. Status Sibuk = 2
Kalau tidak
xOutItem. Status Sibuk = xRg. Sel (I, 5). Nilai
Berakhir jika
Jika xRg. Sel (I, 6). Nilai > 0 Lalu
xOutItem. ReminderSet = Benar
xOutItem. ReminderMinutesBeforeStart = xRg. Sel (I, 6). Nilai
Kalau tidak
xOutItem. ReminderSet = Salah
Berakhir jika
xOutItem. Tubuh = xRg. Sel (I, 7). Nilai
xOutItem. Menyimpan
Atur xOutItem = Tidak ada
Lanjut
Atur xOutApp = Tidak ada
Akhir Sub

Membalas

Laporan

0

0

Dennis Briggs     Michelle

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Saya mengalami masalah yang sama, kode berfungsi dengan baik tetapi hanya menambahkan janji temu pertama ke kalender. Ini kode saya

Sub Tambahkan Janji Temu()
'Perbarui dengan Extendoffice 20180608
Redupkan Aku Selamanya
Dim xRg Sebagai Kisaran
Redupkan xOutApp Sebagai Objek
Redupkan xOutItem Sebagai Objek
Atur xOutApp = CreateObject("Outlook. Aplikasi")
Tetapkan xRg = Range("A2. G2")
Untuk I = 1 Ke xRg. Baris. Menghitung
Atur xOutItem = xOutApp. buat item(1)
Debug. Cetak xRg. Sel (I, 1). Nilai
xOutItem. Subyek = xRg. Sel (I, 1). Nilai
xOutItem. Lokasi = xRg. Sel (I, 2). Nilai
xOutItem. Mulai = xRg. Sel (I, 3). Nilai
xOutItem. Durasi = xRg. Sel (I, 4). Nilai
Jika Potong (xRg. Sel (I, 5). Nilai) = "" Lalu
xOutItem. Status Sibuk = 2
Kalau tidak
xOutItem. Status Sibuk = xRg. Sel (I, 5). Nilai
Berakhir jika
Jika xRg. Sel (I, 6). Nilai > 0 Lalu
xOutItem. ReminderSet = Benar
xOutItem. ReminderMinutesBeforeStart = xRg. Sel (I, 6). Nilai
Kalau tidak
xOutItem. ReminderSet = Salah
Berakhir jika
xOutItem. Tubuh = xRg. Sel (I, 7). Nilai
xOutItem. Menyimpan
Atur xOutItem = Tidak ada
Lanjut
Atur xOutApp = Tidak ada
Akhir Sub

Membalas

0

0

mog     Dennis Briggs

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Anda perlu mengubah Set xRg = Range("A2. G2") menjadi A". di mana pun data Anda berakhir, jadi jika Anda memiliki 20 baris, itu akan menjadi A2. G20

Membalas

0

0

Alexandra

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Halo. Suka ide kode ini, tapi saya punya beberapa pertanyaan


1. Itu tidak akan berjalan karena "bug" di baris ini (kesalahan 440, kesalahan waktu Jalankan)
xOutItem. ReminderMinutesBeforeStart = xRg. Sel (I, 6). Nilai
2. Jika saya tidak ingin meletakkan tajuk kolom dari A2. G2, bisakah saya cukup mengubahnya dalam kode (mis. F3-K3), apakah masih berfungsi?
3. Bagaimana ia tahu untuk terhubung ke pandangan saya?


Terima kasih atas tanggapan Anda, saya akan sangat menghargainya

Membalas

0

0

kristal     Alexandra

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai Alexandra,
Kesalahan 440 tidak terjadi dalam kasus saya. Versi Office mana yang Anda gunakan?
Kode tidak akan berfungsi jika Anda hanya mengubah kode menjadi F3. K3. Jika Anda membutuhkan jawabannya, saya akan mencoba mencari tahu
Baris ini "Set xOutApp = CreateObject("Outlook. Application")" akan membantu menghubungkan data Excel ke aplikasi Outlook
Terima kasih atas komentarmu

Membalas

Laporan

0

0

Keith

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Halo, kodenya sepertinya sangat membantu tetapi memiliki satu kelemahan, Jika file diperbarui terus menerus, itu akan membuat pengingat baru setiap kali dijalankan. Bisakah garis ditambahkan untuk menghapus semua pengingat sebelumnya dan kemudian membuat yang baru?
Apakah ini juga dapat diekspor ke beberapa akun Outlook?

Membalas

0

0

kristal     Keith

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai Keith,
Maaf tidak bisa membantumu dengan itu. Anda perlu menghapus semua pengingat sebelumnya secara manual di Outlook. Dan pengingat ditambahkan ke akun Outlook default saja. Terima kasih atas komentarmu

Membalas

Laporan

0

0

Mike     kristal

sekitar 1 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Ini memiliki potensi untuk menjadi bantuan besar. terima kasih. Bisakah Anda menambahkan penanda di kolom baru yang diaktifkan saat pengingat dibuat untuk baris tersebut (baik manual atau otomatis), tetapi kemudian melewati baris dengan penanda saat Anda menjalankan makro lagi?

Membalas

0

0

cb

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

kode ini berfungsi tetapi hanya untuk entri pertama. Bagaimana Anda menyesuaikannya untuk jangkauan. Lembar3. A2. G17 ?

Saya mengubah kode untuk mengatakan. Tetapkan xRg = Rentang("Tetapkan xRg = Rentang("A2. G2") Namun masih hanya mengambil baris pertama dalam pandangan

Membalas

0

0

kristal     cb

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Selamat tinggal,
Harap ganti baris Set xRg = Range("A2. G2") dengan Set xRg = Worksheets("Sheet3"). Rentang("A2. G17")
Terima kasih atas komentarmu

Membalas

Laporan

0

0

Andre     kristal

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai Kristal,
Saya sudah mengganti baris dan berhasil, tetapi 'tubuh' di baris kedua dan seterusnya tidak keluar sebagai pengingat, tetapi hanya mengambil baris pertama
Mohon saran

Membalas

0

0

Dharma

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

bagaimana menambahkan peserta lain juga dalam janji temu ini

Membalas

0

0

kristal     Dharma

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai Darma,
Maaf masalahnya belum bisa diselesaikan. Terima kasih atas komentarmu

Membalas

Laporan

0

0

H

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai Kristal. Kode bagus

Saya perlu menambahkan/mengundang peserta. Ada ide?

Membalas

0

0

singgih

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

webmaster yang terhormat
terima kasih atas kodenya. Saya punya masalah karena gagal diterapkan. (kesalahan run-time '-21447467263 (80004001)'. Tidak diterapkan
ketika saya menekan tombol debug itu menyoroti "xOutItem. Simpan" baris kode 28
dapatkah Anda memberikan solusi untuk masalah ini?
salam
Singgih

Membalas

0

0

kristal     singgih

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai singgih,
Maaf karena membalas sangat terlambat. Saya perlu mengetahui versi Excel Anda untuk mencari tahu masalahnya. Terima kasih atas komentarmu

Membalas

Laporan

0

0

Carlos Xavier

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Apakah Anda tahu bagaimana saya bisa mengadakan acara sepanjang hari?

Membalas

0

0

kristal     Carlos Xavier

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai,
Maaf belum bisa membantu menyelesaikan masalah

Membalas

Laporan

0

0

Shruthy

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai,

Apakah mungkin menggunakan kode untuk membuat entri pada kalender grup di Outlook?

Membalas

0

0

kristal     Shruthy

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai,
Maaf belum bisa membantu menyelesaikan masalah

Membalas

Laporan

0

0

Sandi

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Jika saya menggunakan ini di bagan gantt dan saya memperbarui tanggal jatuh tempo, haruskah saya menjalankannya kembali?

Membalas

0

0

anggur

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

ketika kami menggunakan kode VBA untuk pengingat maka kesalahan muncul
Kesalahan kompiler
Jenis yang ditentukan pengguna tidak ditentukan
setelah menekan tombol ok
kursor bergerak pada DIM xRg sebagai Range

tolong bantu. ??

Membalas

0

0

kristal     anggur

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai anggur,
Maaf untuk ketidaknyamanannya. Versi Excel mana yang Anda gunakan?

Membalas

Laporan

0

0

Berair

sekitar 2 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai
Haruskah kita menjalankan makro ini setiap saat untuk mengaktifkan pengingat?

terima kasih

Membalas

0

0

kristal     Juicy

sekitar 2 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai Juicy,
Hanya perlu satu klik untuk menjalankan kode, maka pengingat yang sudah disiapkan akan dibuat secara otomatis di kalender Outlook. Setelah itu, Anda dapat melakukan apa saja sesuka Anda

Membalas

Laporan

0

0

chan

sekitar 2 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai, Apakah ada cara untuk mengotomatiskan menjalankan kode ini, misalnya. kapan buka outlook?

Membalas

0

0

kristal     chan

sekitar 2 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai chan,
Karena kode disimpan di buku kerja Excel, kami tidak dapat menjalankannya secara otomatis saat membuka Outlook. Maaf untuk itu

Membalas

Laporan

0

0

Abe

sekitar 2 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Halo,

Ketika saya mengikuti langkah-langkah yang tepat dengan Microsoft Outlook terbuka dan berjalan di latar belakang, menjalankan makro memberi saya kesalahan " Kompilasi kesalahan. prosedur luar yang tidak valid". Bantuan apa pun akan dihargai

terima kasih

Membalas

0

0

kristal     Abe

sekitar 2 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai Abe,
Karena bidang pengingat telah dibuat di lembar kerja, Anda perlu menambahkan kode ke jendela kode Modul buku kerja Microsoft Excel dan menjalankannya di Excel

Membalas

Laporan

0

0

Tamu

sekitar 2 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

saya punya beberapa tabel dinamis di excel untuk disediakan di badan pengingat. Bisakah kita melakukan itu ?

Membalas

0

0

Tamu2

sekitar 2 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Jadi kami memiliki spreadsheet excel yang kami masukkan tanggal kedaluwarsa untuk lisensi, dan kami bertanya-tanya bagaimana kami akan melakukannya sehingga ketika kami menambahkan tanggal kedaluwarsa baru, itu akan secara otomatis menambahkannya ke kalender pandangan kami dengan pengingat sebulan sebelumnya dan 2 minggu sebelumnya. Apa yang dibutuhkan itu?

Membalas

Laporan

0

0

Lis

sekitar 1 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai, apakah mungkin untuk menentukan ke kalender mana pengingat akan ditambahkan. Saya ingin menambahkannya ke kalender kotak surat bersama sehingga semua anggota tim mendapatkan pengingat, bukan kalender email pribadi saya

Membalas

0

0

Lena     Lis

sekitar 1 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai.  
Apakah Anda menemukan cara untuk menambahkan pengingat ke seluruh tim?

Membalas

0

0

Pertengkaran

sekitar 1 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai, terima kasih banyak untuk kode ini. Ini bekerja dengan indah di windows. Apakah Anda tahu bagaimana saya bisa menerapkan ini di Mac? . Cara lain adalah dengan menggunakan Mesin Virtual yang menjalankan Windows 10 namun itu bukan cara kerja ideal saya

Membalas

0

0

Tahun Baru1978

sekitar 1 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Kesalahan "Objek ini tidak mendukung tindakan ini" di xOutItem. ReminderMinutesBeforeStart = xRg. Sel (I, 6). Nilai

Bisakah Excel mengirim pengingat email secara otomatis?

Bagaimana cara mengirim email otomatis di Excel VBA?

Bagaimana cara mengirim pengingat otomatis di Excel?

Bisakah Excel mengirimkan peringatan email secara otomatis berdasarkan nilai sel?