Bir Outlook E-postasını Takip İçin İşaretlerken Bir Hatırlatıcıyı ve Bitiş Tarihini Otomatik Olarak Ayarlama

Outlook, kullanıcıların e-postaları özel bir takip hatırlatıcısı ve teslim tarihi ile işaretlemesine olanak tanır. Ancak manuel olarak seçmeniz ve etkinleştirmeniz gerekir. Bu makale size VBA aracılığıyla otomatik olarak nasıl elde edeceğinizi öğretecek.

Outlook bize, kritik e-postaları çok daha rahat takip etmemizi sağlayan “Bayrak” özelliğini sağlıyor. Yalnızca bir e-posta oluşturmamıza izin vermekle kalmaz, aynı zamanda tercih edilen bir bayrak simgesini seçmemize, belirli bir teslim tarihi atamamıza ve hatta e-posta için özel bir hatırlatıcı belirlememize olanak tanır. Hiç şüphe yok ki, çok kullanışlı.

Ancak birçok kullanıcının hala başka bir arzusu var. Outlook'un işaretli e-postalar için, bugünden 3 gün sonra, bugünden 1 hafta sonra vb. gibi nispeten sabit bir özel teslim tarihi ve hatırlatma zamanı otomatik olarak belirleyebileceğini umuyorlar. Dürüst olmak gerekirse, Outlook'un böyle bir yerel özelliği yok. Bu nedenle, başka araçlara, örneğin VBA'ya tekrar başvurmanız gerekir. Burada, bu gereksinimi gerçekleştirmek için Outlook VBA'yı nasıl kullanacağınızı öğreteceğiz. Ayrıntılı olarak almak için okumaya devam edin.

Bir Outlook E-postasını İşaretlerken Bir Hatırlatıcıyı ve Bitiş Tarihini Otomatik Olarak Ayarlayın

1. En başta, Outlook programınızı başlatın.
2. Daha sonra VBA editörüne erişmek için “Alt + F11” kısayol tuşlarına basabilirsiniz.
3. Sonraki “Microsoft Visual Basic for Applications” penceresinde, sol taraftaki “ThisOutlookSession” projesine çift tıklamanız gerekiyor.
4. Ardından, aşağıdaki VBA kodlarını kopyalayıp içine yapıştırın.

Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objInboxItems_ItemChange(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       If (objMail.IsMarkedAsTask = True) And (objMail.FlagStatus <> olFlagComplete) Then
          'You can change the following lines as per your actual needs
          With objMail
               .FlagRequest = "Type the custom follow-up notes here"
               .MarkAsTask olMarkNextWeek
               'Set a custom due date
               .TaskDueDate = Now + 7
               .ReminderSet = True
               'Set a custom reminder time
               .ReminderTime = Now + 6.5
               .Save
         End With
       End If
    End If
End Sub

5. Bundan sonra, bu kodu normal şekilde imzalamanız gerekir.
6. Daha sonra VBA düzenleyicisinden çıkın ve yalnızca dijital olarak imzalanmış makroları etkinleştirmek için Outlook makro ayarlarınızı değiştirmeye devam edin.
7. Son olarak, yeni makroyu etkinleştirmek için Outlook'unuzu yeniden başlatmanız gerekiyor. Ondan sonra deneyebilirsiniz.

• Bir e-posta öğesinin sonundaki bayrak simgesini tıklayın.
• Bir anda bayrak otomatik olarak "Gelecek Hafta Bayrağı" simgesine dönüşecektir.
• Ve bitiş tarihi ve hatırlatma zamanı, kodlardaki ön ayarınıza göre ayarlanacaktır.

Outlook Çökmesiyle Karşılaşırsanız Panik Yapmayın

Outlook beklenmedik bir şekilde çöktüğünde, çoğu insan Outlook verilerinin zarar göreceğinden korkarak paniğe kapılır. Ancak aslında yeterli önlemi aldıysanız asla paniklemezsiniz. En önemli önlem, PST dosyalarını düzenli olarak yedeklemektir. Ayrıca, verilerinizi geri almak için önde gelen bir araca da başvurabilirsiniz. hasarlı görünüm gibi veriler DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql düzeltmesi ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com