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.