MailItem Направлен недопустимое использование

Question

фон:
question here обеспечивает дополнительное объяснение.
В этом случае, я хочу знать, почему, если я задаю адрес электронной почты как объект, я получаю сообщение об ошибке «неправильное использование свойства» в MailItem.Sent Property.
Проблема
Добавляя ссылку прогноз на проект:
код с ошибкой недопустимого использования имущества (.Sent):
SetEmailAsObjectCode

Dim olApp As Object: Set olApp = CreateObject("Outlook.Application") 
Dim EmailToSend As Object 
Set EmailToSend = Nothing 
    Set EmailToSend = olApp.CreateItem(0) 
    With EmailToSend 
    On Error Resume Next 
    Call .Sent 
    If Err.Number = 0 Then ' 4. If Err.Number = 0 
    Cells(1,1).Value = "ErrorOutLookTimeout: Email not sent" 
    Else ' 4. If Err.Number = 0 
    Cells(1,1).Value = "Email Sent!" 
    End If ' 4. If Err.Number = 0 
    On Error GoTo 0 
    End With 

Рабочий код:
SetCreateItemObjectCode

Dim olApp As Outlook.Application: Set olApp = CreateObject("Outlook.Application") 
    Dim EmailToSend As Outlook.MailItem 
    Set EmailToSend = Nothing 
     Set EmailToSend = olApp.CreateItem(0) 
     With olApp.CreateItem(0) 
     On Error Resume Next 
     Call .Sent 
     If Err.Number = 0 Then ' 4. If Err.Number = 0 
     Cells(1, 1).Value = "ErrorOutLookTimeout: Email not sent" 
     Else ' 4. If Err.Number = 0 
     Cells(1, 1).Value = "Email Sent!" 
     End If ' 4. If Err.Number = 0 
     On Error GoTo 0 
     End With 

Как вы можете заметить, вместо ссылки на объект электронной почты создан он установлен сразу
Вопрос:
Почему код SetCreateItemObjectCode работы и SetEmailAsObjectCode является не?

Answer 1

CreateItem вернуть объект. Где, как Outlook.MailItem, является классом, и когда вы делаете Set EmailToSend = olApp.CreateItem(0), хотя переменная EmailToSend вмещает возвращаемый Object, она больше не подвергает объект .Sent. следовательно, ошибка.

использовать это:

With EmailToSend 
On Error Resume Next 
Call .ItemProperties.Item("Sent") 

Answer 2

Если вы пытаетесь отправить сообщение, вам необходимо позвонить по методу MailItem.Send. Если вы пытаетесь выяснить, является ли сообщение черновиком или отправленным, вы читаете свойство MailItem.Sent.

Примечание "d" против "t".