Makro ile Mail Gönderirken "Okundu Teyidi Nasıl Porgramlanır?

[fightclub11]

Aşağıdaki Makro ile Outlook dan mail gönderimi koduna nasıl ? Okundu Teyidi ekleyebilirim?








-------------------------------------------


Sub Mail_Gonderimi()

Dim Outapp As Object
Dim Outmail As Object

Set Outapp = CreateObject("Outlook.Application")
Set Outmail = Outapp.CreateItem(0)

With Outmail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Deneme"
.Body = "Merhaba Ümit Bey," & Chr(13) & _
"Günlük Rapor Ektedir." & Chr(13) & _
"Bilginize Sunarım." & Chr(13) & _
"Saygılarımla."
.Send

End With

Set Outmall = Nothing
Set Outapp = Nothing

End Sub
--------------------------------------

 

[Haluk]

Merhaba;

.send

satırından önce;

.OriginatorDeliveryReportRequested = True

ekleyip, denermisiniz?

.

 

[Asri]

Sayın Haluk bey in teslim bilgisi kodu ile beraber, aşağıdaki okundu bilgisi kodunu da kullanabilir siniz.

 .ReadReceiptRequested = True