Свойство MailItem.SendUsingAccount (Outlook)

  • Статья

Возвращает или задает объект Account , представляющий учетную запись, под которую отправляется MailItem . Для чтения и записи.

Синтаксис

выражение. SendUsingAccount

Выражение Выражение, возвращающее объект MailItem .

Замечания

Свойство SendUsingAccount можно использовать для указания учетной записи, которая должна использоваться для отправки MailItem при вызове метода Send . Это свойство возвращает значение NULL (Nothing в Visual Basic), если учетная запись, указанная для MailItem , больше не существует.

Пример

В следующем примере кода в Microsoft Visual Basic для приложений перечисляется коллекция Accounts для поиска учетной записи Pop3. Если учетная запись найдена, сообщение создается программным способом, а свойство SendUsingAccount назначается учетной записи Pop3. Обратите внимание, что перед вызовом метода Send необходимо назначить свойство SendUsingAccount.

Sub SendUsingAccount() 
 
 Dim oAccount As Outlook.account 
 
 For Each oAccount In Application.Session.Accounts 
 
 If oAccount.AccountType = olPop3 Then 
 
 Dim oMail As Outlook.MailItem 
 
 Set oMail = Application.CreateItem(olMailItem) 
 
     oMail.Subject = "Sent using POP3 Account" 
 
     oMail.Recipients.Add ("someone@example.com") 
 
     oMail.Recipients.ResolveAll 
 
 Set oMail.SendUsingAccount = oAccount 
 
     oMail.Send 
 
 End If 
 
 Next 
 
End Sub

См. также

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

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