Outlook'ta doğum günü bugün ise bir kişiye otomatik olarak nasıl tebrik mesajı gönderilir?
Bazen, Outlook'ta doğum günü bugün olduğunda kişiye otomatik olarak bir karşılama mesajı göndermek isteyebilirsiniz. Kişinin doğum gününü tek tek kontrol edip selamlama e-postalarını manuel olarak gönderdiğinizde sıkıcı bir iş olacaktır. Bu yazıda, hızlı ve kolay bir şekilde çözmek için bir VBA kodu tanıtacağım.
Outlook'ta VBA kodu ile doğum gününe göre bir kişiye otomatik olarak bir karşılama mesajı gönderin
Outlook'ta VBA kodu ile doğum gününe göre bir kişiye otomatik olarak bir karşılama mesajı gönderin
Doğum günü bugünse bir kişiye otomatik olarak bir karşılama mesajı göndermek için önce bir VBA kodu girin, ardından kodu tetiklemek için tekrar eden bir görev oluşturmanız gerekir.
Aşağıdaki adımlar size yardımcı olabilir:
1. Outlook'u başlatın ve ardından ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. In Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu OutlookOturumu itibaren Proje1 (VbaProject.OTM) bölmesini açın ve ardından aşağıdaki kodu kopyalayıp boş modüle yapıştırın.
VBA kodu: Doğum gününe göre bir kişiye otomatik olarak bir karşılama mesajı gönderin:
Private Sub Application_Reminder(ByVal Item As Object)
Dim xTempMail As MailItem
Dim xFilePath As String
Dim xItems As Outlook.Items
Dim xItem As Object
Dim xContactItem As Outlook.ContactItem
Dim xTodayDate As String
Dim xBirthdayDate As String
Dim xGreetingMail As Outlook.MailItem
Dim xWordDoc As Word.Document
Dim xGreetings As String
Dim xBool As Boolean
xFilePath = CreateObject("shell.Application").NameSpace(5).self.Path & "\UserTemplates"
Set xFSO = CreateObject("Scripting.FileSystemObject")
If xFSO.FolderExists(xFilePath) = False Then
MkDir xFilePath
End If
If IsFileExists(xFilePath & "\Birthday Greeting Mail.oft") = False Then
Set xTempMail = Outlook.CreateItem(olMailItem)
xTempMail.SaveAs xFilePath & "\Birthday Greeting Mail.oft", olTemplate
xTempMail.Close olDiscard
End If
If (TypeOf Item Is TaskItem) And (Item.Subject = "Send Birthday Greeting Mail") Then
xGreetings = "Happy Birthday!"
xGreetings = InputBox("Input birthday greetings", "Kutools for Outlook", xGreetings)
xTodayDate = Month(Date) & "-" & Day(Date)
Set xItems = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
For Each xItem In xItems
If Not (TypeOf xItem Is ContactItem) Then Exit Sub
Set xContactItem = xItem
xBirthdayDate = Month(xContactItem.Birthday) & "-" & Day(xContactItem.Birthday)
If xBirthdayDate = xTodayDate Then
Set xGreetingMail = Outlook.Application.CreateItemFromTemplate(xFilePath & "\Birthday Greeting Mail.oft")
Set xWordDoc = xGreetingMail.GetInspector.WordEditor
xWordDoc.Range.InsertBefore "Dear " & xContactItem.LastName & Chr(10) & xGreetings & Chr(10) & Chr(10)
With xGreetingMail
.Recipients.Add (xContactItem.Email1Address)
.Subject = "Happy Birthday!"
.Display
.Close (olSave)
.Send
End With
End If
Next
End If
End Sub
Function IsFileExists(ByVal FileName As String) As Boolean
Dim xFileSystem As Object
Set xFileSystem = CreateObject("Scripting.FileSystemObject")
If xFileSystem.FileExists(FileName) = True Then
IsFileExists = True
Else
IsFileExists = False
End If
End Function
3. Sonra clcik Tools > Referanslar içinde Uygulamalar için Microsoft Visual Basic pencere, dışarı çıkmış Referanslar-Proje1 iletişim kutusu, işaretleyin Microsoft Word Nesne Kitaplığı ve Microsoft Komut Dosyası Çalışma Zamanı Seçeneklerden Mevcut Referanslar liste kutusu, ekran görüntüsüne bakın:
4. Sonra tıklayın OK iletişim kutusunu kapatmak için, şimdi, VBA kodunu tetikleyecek bir görev oluşturmalısınız. Lütfen şuraya gidin Görev bölme, tıkla Yeni Görev bir görev oluşturmak için:
(1.) İçinde Konut satırı, Konu olarak girmelisiniz Doğum Günü Tebrik Postası Gönder;
(2.) Ardından tıklayın Tekrar altında Görev sekme;
(3.) Görev Tekrarı iletişim kutusunu seçin Günlük ve belirtin her 1 günde bir seçeneği Tekrarlama paterni Bölüm;
5. Sonra tıklayın OK iletişim kutusunu kapatmak için görev penceresine geri dönün, lütfen aşağıdaki ekran görüntüsü gibi tekrar eden görev için bir hatırlatıcı ayarlayın:
6. Şu andan itibaren, hatırlatıcı uyarı verdiğinde, makro hemen tetiklenecektir. Aşağıdaki ekran görüntüsü gibi doğum günü tebriklerini eklemenizi hatırlatmak için bir iletişim kutusu açılır:
7. Sonra tıklayın OK düğmesi, bugün doğum günü olan kişiye otomatik olarak bir tebrik postası gönderilecektir.
En İyi Ofis Üretkenlik Araçları
Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik
🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...
???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Planla / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik İletme (Gelişmiş Kurallar) / Otomatik Karşılama Ekleme / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...
📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın / Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin / Yinelenen E-postaları Silin / gelişmiş Arama / Klasörleri Birleştir ...
📁 Ekler Pro: Toplu Kaydetme / Toplu Ayır / Toplu Sıkıştırma / Otomatik kaydet / Otomatik Ayır / Otomatik Sıkıştır ...
🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji / Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın / Outlook'u Kapatmak Yerine Küçültün ...
👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla / Kimlik Avına Karşı E-postalar / 🕘Gönderenin Saat Dilimini Göster ...
👩🏼🤝👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme / Kişi Grubunu Bireysel Gruplara Bölme / Doğum Günü Hatırlatıcılarını Kaldır ...
üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.