إرسال البريد من أكسس : كيف أعرف إذا تم الإرسال

بعد متابعة عدة مشاركات مميزة من هذ المنتدى المميز استخدمت كود لإرسال بريد من أكسس عن طريق أوتلوك 2003 وقد نجح 100 % ولكن هل من طريقة لمعرفة إن كان تم الإرسال أم لا . بمعنى هل يستطيع أكسس أن يحصل على شيء من أوتلوك يدل على إتمام الإرسال . علماً بأني استخدمت الكود التالي والذي أحسبه للرائعة المبدعة الأخت الدكتورة أم عهود :

اقتباس

Public Sub SendMsg(strSubject As String, _

strBody As String, _

StrTo As String, _

StrCC As String, _

sAttachment As String)

Dim oLapp As Outlook.Application

Dim oItem As Outlook.MailItem

Set oLapp = CreateObject("Outlook.Application")

Set oItem = oLapp.CreateItem(0)

oItem.Attachments.Add sAttachment, olByValue, 1, "OK"

With oItem

.Subject = strSubject

.To = StrTo

.CC = StrCC

.Body = strBody

.Send

End With

Set oLapp = Nothing

Set oItem = Nothing

End Sub