Outlook Maillerini iPhone Bildirimli Göreve Dönüştürme (VBA Rehberi)
Bu içerik: Outlook ta bir maili doğrudan görev olarak ekleyip, iPhone'unuzda Anımsatılcar Uygulamasına yansımasını sağlar
Gelen e-postaları anımsatıcısıyla birlikte hızlıca göreve dönüştürmek, Microsoft To Do ve iPhone bildirim entegrasyonunu sağlamak için aşağıdaki adımları sırasıyla uygulayabilirsiniz.
1. Hazırlık ve Makronun Eklenmesi
Outlook'u Açın: İşlemleri Klasik Outlook (Classic Outlook) üzerinde uygulayın (Microsoft 365 mimarisinde yapılandırılmıştır, Yeni Outlook sürümünde çalışmaz).
VBA Editörünü Açın: Alt + F11 tuşlarına basın.
Modül Oluşturun: Açılan pencerede üst menüden Insert > Module yolunu izleyin. Module1 adında yeni bir alan açılacaktır.
Kodları Ekleyin: Makro kodunuzu bu Module1 içerisine yapıştırın ve Ctrl + S ile kaydedin.
2. Dijital Sertifika Oluşturma ve İmzalama
SelfCert Programını Çalıştırın: Windows Başlat menüsünden veya doğrudan aşağıdaki dizine giderek SELFCERT.EXE dosyasını açın:
C:\Program Files\Microsoft Office\root\Office16\SELFCERT.EXE
(Önemli Not: Uygulamayı kesinlikle yönetici olarak çalıştırmayın; kullanıcının kendi yeral hesabında açılmalıdır).
Sertifikayı Adlandırın: Açılan kutuya sertifika adı olarak Outlook VBA Makrolari yazın ve OK diyerek başarıyla oluşturuldu mesajını onaylayın.
Projeyi İmzalayın: Tekrar Alt + F11 ile VBA ekranına dönün. Üst menüden Tools > Digital Signature > Choose adımlarını takip edin. Listeden az önce oluşturduğunuz Outlook VBA Makrolari sertifikasını seçip OK butonları ile pencereleri kapatın.
Kaydedin: Değişikliklerin kalıcı olması için tekrar Ctrl + S tuşlarına basın.
3. Outlook'u Yeniden Başlatma ve Güvenlik Onayı
Tam Kapatma: Outlook'u tamamen kapatın. Arka planda kalmadığından emin olmak için gerekirse Görev Yöneticisi'nden OUTLOOK.EXE sürecini sonlandırın.
Yeniden Başlatma ve Yetki: Outlook'u tekrar açın. İlk açılışta karşınıza çıkacak güvenlik uyarısında "Bu yayıncıya her zaman güven" seçeneğini işaretleyin ve Etkinleştir deyin. Emin olmak için Outlook'u bir kez daha kapatıp açın.
4. Makroyu Arayüze Buton Olarak Ekleme
Özelleştirme Menüsü: Outlook ana ekranında Dosya > Seçenekler > Hızlı Erişim Araç Çubuğu bölümüne gidin.
Makroyu Seçin: Sol taraftaki açılır listeden "Makrolar" seçeneğini işaretleyin. Listelenen MailiGoreveDonustur (veya Project1.MailiGoreveDonustur) makrosunu seçip ortadaki Ekle >> butonuna tıklayın.
Simge ve İsim Değiştirme: Sağ tarafa eklenen makro ismine tıklayıp alttaki Değiştir butonuna basın. İstediğiniz bir simgeyi seçin ve görünen adı Göreve Dönüştür olarak değiştirerek OK ile kaydedin.
5. Testi
Herhangi bir e-postayı seçin ve Hızlı Erişim Araç Çubuğu'na sabitlediğiniz 📌 Göreve Dönüştür butonuna basarak süreci test edin. Sistem doğru yapılandırıldıysa şu senaryolar gerçekleşecektir:
VBA kod alanı:
' Göreve Dönüştür Makrosu
' Sürüm: 1.0
' Tarih: 13.07.2026 @Karani UYAR
Sub MailiGoreveDonustur()
Dim olMail As Outlook.MailItem
Dim olTask As Outlook.TaskItem
Dim Sel As Outlook.Selection
Set Sel = Application.ActiveExplorer.Selection
If Sel.Count = 0 Then
MsgBox "Lütfen önce bir e-posta seçin.", vbExclamation
Exit Sub
End If
If Not TypeOf Sel.Item(1) Is MailItem Then
MsgBox "Lütfen bir e-posta seçin.", vbExclamation
Exit Sub
End If
Set olMail = Sel.Item(1)
Set olTask = Application.CreateItem(olTaskItem)
With olTask
.Subject = olMail.Subject
.Body = "=== İLGİLİ E-POSTA ===" & vbCrLf & _
"Kimden : " & olMail.SenderName & vbCrLf & _
"Tarih : " & olMail.ReceivedTime & vbCrLf & _
"Konu : " & olMail.Subject & vbCrLf & _
String(50, "-") & vbCrLf & vbCrLf & _
olMail.Body
' Orijinal e-postayı ek olarak iliştir
.Attachments.Add olMail
' Anımsatıcı açık gelsin
.ReminderSet = True
' Varsayılan tarih
.StartDate = Date
.DueDate = Date
' Varsayılan anımsatıcı: 1 saat sonrası
.ReminderTime = DateAdd("h", 1, Now)
' Görevi aç
.Display
' Maile takip bayrağı ekle
olMail.MarkAsTask olMarkToday
olMail.Save
End With
End Sub
Hiç yorum yok:
Yorum Gönder