Maille yolladıgım excelin okundu bilgisi

[eceLprensi]

Merhaba,
Arkadaşlar.
mail ekindeki excelin okundugunun bilgisini 1 sefer almak istiyorum.
otomatik yanıt gibi.
alttaki kodu yazdım ama başaramadım.

[KOD]
Sub mail()

Dim xlOutlook As Object
Set xlOutlook = CreateObject("Outlook.Application")
Set xlMail = xlOutlook.CreateItem(0)

Dim xlMail1 As Object
Set xlMail1 = xlOutlook.CreateItem(0):


With xlMail1
.To = "aaa@bbb.com"
.CC = ""
.Subject = "excel okuma bilgisi"
.Body = "Rapor 15 exceli açıldı."
.Attachments.Add pdfsor1
.Save
.Send
End With
End If
Set xlMail1 = Nothing


Set xlOutlook = Nothing

End Sub

 

[Asri]

Merhaba,
Arkadaşlar.
mail ekindeki excelin okundugunun bilgisini 1 sefer almak istiyorum.
otomatik yanıt gibi.
alttaki kodu yazdım ama başaramadım.

[KOD]
Sub mail()

Dim xlOutlook As Object
Set xlOutlook = CreateObject("Outlook.Application")
Set xlMail = xlOutlook.CreateItem(0)

Dim xlMail1 As Object
Set xlMail1 = xlOutlook.CreateItem(0):


With xlMail1
.To = "aaa@bbb.com"
.CC = ""
.Subject = "excel okuma bilgisi"
.Body = "Rapor 15 exceli açıldı."
.Attachments.Add pdfsor1
.Save
.Send
End With
End If
Set xlMail1 = Nothing


Set xlOutlook = Nothing

End Sub

Bu şekilde dener misiniz?

.OriginatorDeliveryReportRequested = True ' Teslim bilgisi
.ReadReceiptRequested = True ' Okundu bilgisi