VBA邮件问题！！请高手进来讨论！！

Question

Dim ojbOutLook As New Outlook.Application
Dim MyItem1 As Outlook.MailItem
Set MyItem1 = ojbOutLook.CreateItem(olMailItem)
                 With MyItem1
                      .To = Ado.Recordset("E_Mail")
                      .Subject = Ado.Recordset("corporation")
                      .CC = "[email protected]"
                      .Body = Ado.Recordset("corporation")
                      '.Attachments.Add Trim(Ado.Recordset("report_path"))
                      .Send
                  end with  
问题一：send后，项目MyItem1被自动删除，用什么方法可以判断MyItem1是否存在。
问题二：怎么判断邮件已经发出去了？