Partilhar via


Propriedade MailItem.SendUsingAccount (Outlook)

Retorna ou define um objeto Account que representa a conta na qual o MailItem deve ser enviado. Leitura/gravação.

Sintaxe

expression. SendUsingAccount

Expressão Uma expressão que retorna um objeto MailItem .

Comentários

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

Exemplo

O exemplo de código a seguir no Microsoft Visual Basic for Applications enumera a coleção Contas para encontrar uma conta Pop3. Se a conta for encontrada, uma mensagem será criada programaticamente e a propriedade SendUsingAccount será 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.