Excel sayfasını kullanarak bir posta göndererek mutlu birhtday diliyorum

SORUN TANIMI

Üyenin ayrıntılarının kaydedildiği bir Excel Sayfam var Doğum Tarihi ve e-posta kimliği. ve onları orada diliyorum posta ile doğum günü istiyorum. bunun için her zaman sayfanın bugünün tarihine göre filtrelemesini kontrol etmem ve sonra postayı ayrı ayrı göndermem gerekiyor.

Bu Makro sizin için bunu yapmanıza yardımcı olur. Excel sayfanızı açmalı ve makroyu çalıştırmalısınız.

KOD

Diyelim ki bu kişi adını C sütununda,

D sütununda Doğum Tarihi,

E sütununda ve E-posta kimliği.

 Alt bdMail () Nesne Olarak Dim OutApp Dim Nesne Olarak Dim OutMail Nesne Dim Hücresi Menzil Dim Dim lastRow Uzun Dim dateCell Tarih Olarak App Application.ScreenUpdating = Yanlış Ayar OutApp = CreateObject ("Outlook.Application") OutApp.Session.Logon lastRow = Range (" A "& Rows.Count) .End (xlUp) .Row On Error Hatalı Git Her Aralıktaki Her Hücre İçin Temizleme Yap" ("D2: D" & lastRow) dateCell = cell.Value If Day (dateCell) = Gün (Tarih) Ve Ay ( dateCell) = Ay (Tarih) Ardından OutMail Ayarla = OutApp.CreateItem (0) Hatalı Durumda OutMail İle Devam Et. To = cell.Offset (0, 1) .Value .Subject = "Doğum Günün Kutlu Olsun" 'Mesajınızı giriniz .Body = "Sevgili" & Hücreler (cell.Row, "C"). Değer _ & vbNewLine & vbNewLine & _ "Günün Pek Çok Mutlu İadesi" _ & vbNewLine & vbNewLine _ & vbNewLine & vbNewLine & _ "Şerefe, " & vbNewLine & _ "Rahul" .send Sonunda Hata Oluyor GoTo 0 Set OutMail = Hiçbirşey Sona Ermedi Sonraki hücre temizliği: Set OutApp = Hiçbir Şey Application.ScreenUpdating = True End Sub