Propiedad MailItem.SendUsingAccount (Outlook)

Devuelve o establece un objeto Account que representa la cuenta con la que se va a enviar mailItem . Lectura y escritura.

Sintaxis

expresión. SendUsingAccount

Expresión Expresión que devuelve un objeto MailItem .

Comentarios

La propiedad SendUsingAccount se puede usar para especificar la cuenta que se debe usar para enviar mailItem cuando se llama al método Send . Esta propiedad devuelve Null (Nothing en Visual Basic) si ya no existe la cuenta especificada para el objeto MailItem.

Ejemplo:

En el ejemplo de código siguiente de Microsoft Visual Basic para Aplicaciones se enumera la colección Accounts para buscar una cuenta Pop3. Si se encuentra la cuenta, se crea un mensaje mediante programación y la propiedad SendUsingAccount se asigna a la cuenta Pop3. Tenga en cuenta que debe asignar la propiedad SendUsingAccount antes de llamar al 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

Consulte también

• Enviar un correo electrónico según la dirección SMTP de una cuenta

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.