Accounts Object

---

Overview

The accounts object holds all created accounts. The nlsMailer Application object uses this to access all accounts, and designates the first account in the collection the default account (this corresponds with how the Outlook Object Model handles it as well).

Example

The following code example demonstrates this process:

vba

' Initializes the nlsMailer Application
Dim MailerApp As nlsMailer.Application
Set MailerApp = New nlsMailer.Application

' Adds two accounts to the Accounts object
Dim accOne As nlsMailer.Account
Dim accTwo As nlsMailer.Account
Set accOne = nlsMailer.Accounts.Add "Person 1", "testone@example.com", "api-key-01234", "https://apiUrlOne.com", olMailgun
Set accTwo = nlsMailer.Accounts.Add "Person 2", "testTwo@example.com", "api-key-56789", "https://apiUrlTwo.com", olMailgun

With MailerApp.CreateItem(olMailItem)
    Debug.Print .SendUsingAccount 'Prints "Person 1"
End With

nlsMailer.Accounts.Remove(1)

With MailerApp.CreateItem(olMailItem)
    Debug.Print .SendUsingAccount 'Prints "Person 2"
End With

Methods

Name	Type
Add	Account
Item	Account

Properties

Name	Type
Application	Application
Class	OlObjectClass
Count	Long