Wish Happy Birhtday dengan Mengirim Email menggunakan lembar Excel

DEFINASI MASALAH

Saya memiliki Lembar Excel di mana rincian anggota dicatat dengan Tanggal Lahir dan id email. dan saya ingin mereka di sana Ulang tahun melalui surat. untuk ini setiap kali saya harus memeriksa lembar filter mereka untuk tanggal hari ini dan kemudian mengirim surat satu per satu.

Makro ini membantu Anda melakukan ini untuk Anda. Anda hanya perlu membuka lembar excel Anda dan menjalankan makro.

KODE

Misalkan nama orang itu di kolom C,

Tanggal Lahir di kolom D,

dan id email di kolom E.

 Sub bdMail () Dim OutApp Sebagai Objek Dim OutMail Sebagai Objek Dim cell Rentang Dim lastRow Sebagai Long Dim dateCell Sebagai Date Application.ScreenUpdating = Salah Set OutApp = BuatObject ("Outlook.Application") OutApp.Session.Logon lastRow = Range (" A "& Rows.Count) .End (xlUp) .Row On GoTo cleanup Untuk Setiap sel Dalam Rentang (" D2: D "& lastRow) dateCell = cell.Value If Day (dateCell) = Hari (Tanggal) Dan Bulan ( dateCell) = Bulan (Tanggal) Kemudian Set OutMail = OutApp.CreateItem (0) Pada Kesalahan Lanjutkan Selanjutnya Dengan OutMail .To = sel.Offset (0, 1) .Value .Subject = "Selamat Ulang Tahun" Di sini letakkan Pesan Anda. = "Dear" & Cells (cell.Row, "C"). Nilai _ & vbNewLine & vbNewLine & _ "Banyak Pengembalian yang Bahagia Hari Ini" _ & vbNewLine & vbNewLine _ & vbNewLine & vbNewLine & _ "Ceria, " & vbNewLine & _ "Rahul" .Kirim Akhiri Dengan Kesalahan GoTo 0 Set OutMail = Nothing End If Next cell cleanup: Set OutApp = Nothing Application.ScreenUpdating = True End Sub