Creating a New Item

Чтобы создать новый элемент, используйте метод CreateItem объекта Application . Этот метод возвращает объект, который затем можно использовать для работы с элементом.

В следующем примере microsoft Visual Basic для приложений показано, как создать почтовое сообщение, добавить текст в его тему и текст и отобразить его. Чтобы использовать этот пример, создайте в форме кнопку с именем Command1.

Private Sub Command1_Click() 
 Dim myOLItem As Outlook.MailItem 
 
 Set myOLItem = Application.CreateItem(olMailItem) 
 With myOLItem 
 .Subject = "Sample item" 
 .Body = "This is a sample message." 
 End With 
 myOLItem.Display 
End Sub

В следующем примере показано, как выполнить ту же задачу с помощью VBScript в форме.

Sub CommandButton1_Click() 
 Set myOLItem = Application.CreateItem(0) 
 myOLItem.Subject = "Sample item" 
 myOLItem.Body = "This is a sample message." 
 myOLItem.Display 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.