Compartilhar via

Propriedade MailItem.SendUsingAccount (Outlook)

Devolve ou define um objeto Conta que representa a conta sob a qual o MailItem vai ser enviado. Leitura/gravação.

Sintaxe

expression. SendUsingAccount

expressão Uma expressão que devolve um objeto MailItem .

Comentários

A propriedade SendUsingAccount pode ser utilizada para especificar a conta que deve ser utilizada para enviar o MailItem quando o método Enviar é chamado. Essa propriedade retorna Null (Nothing no Visual Basic) se a conta especificada para o MailItem não existe mais.

Exemplo

O seguinte exemplo de código no Microsoft Visual Basic for Applications enumera a coleção Contas para encontrar uma conta Pop3. Se a conta for encontrada, é criada uma mensagem através de programação e a propriedade SendUsingAccount é atribuída à conta Pop3. Observe que você deve atribuir a propriedade SendUsingAccount antes de chamar o método Send.

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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

  • Last updated on