MESAJIMI OKUDUN MU?

Outlook kullananlar için:

Birisine gönderdiğimiz e-maili okuyup okumadığını mesaj yazma penceresinde Seçenekler düğmesine basınca gelen ekranda .. okundu olarak işaretle bölümünden yapıyoruz. Bu işi biraz daha kısaltmak için bir yol…

Önce
Outlook Code‘dan bulduğum ve biraz değiştirdiğim kod:

Sub AddReadReceiptRequest()
Dim objApp As Outlook.Application
Dim objInsp As Outlook.Inspector
Dim objItem As MailItem ‘ Object

‘ get the currently open item and make sure
‘ it’s a mail message
Set objApp = CreateObject(Outlook.Application)
Set objInsp = objApp.ActiveInspector
If Not objInsp Is Nothing Then
Set objItem = objInsp.CurrentItem
If objItem.Class = olMail Then
‘ make sure it’s unsent
If objItem.Sent = False Then
‘ ask for read receipt
objItem.ReadReceiptRequested = Not objItem.ReadReceiptRequested
MsgBox Switch(objItem.ReadReceiptRequested, Eklendi, Not objItem.ReadReceiptRequested, Kaldırıldı)
End If
End If
End If

Set objApp = Nothing
Set objInsp = Nothing
Set objItem = Nothing
End Sub

Outlook’ta Araçlar- Makro- V.B.Düzenleyicisi penceresine giriyoruz ve üstteki kodu buraya yapıştırıyoruz.
Mesaj yazma penceresinde araç çubuklarından herhangi birisi üzerinde sağ tuşla tıklayıp Özelleştir’i (Customize) seçiyoruz. Komutlar bölümüne geçip Makrolar’ı tıklıyoruz. Sağda makromuz görünecek. Alıp araç çubuğu üzerine sürüklüyoruz. İşte bu kadar. Artık tek tıklamada okundu işaretini ekleyip kaldırabiliriz.
—–

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir