Send Emails From Specific Account in Outlook

How to send emails from a specific account in Outlook automatically using VBA.
Below is the complete VBA code:
Option Explicit

Sub EmailAccounts()

‘add a reference to the Microsoft Outlook Library in your Excel workbook

Dim OutApp As Outlook.Application

Dim i As Long

Dim erow As Long

erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Set OutApp = CreateObject(“Outlook.Application”)

For i = 1 To OutApp.Session.Accounts.Count

Sheet1.Cells(erow, 1) = OutApp.Session.Accounts.Item(i)

Sheet1.Cells(erow, 2) = i

erow = erow + 1

Next i

End Sub

Sub MailFromAnyAccount()

‘Works in Excel 2007 or higher

‘add a reference to the Microsoft Outlook Library in your Excel workbook

Dim OutApp As Outlook.Application

Dim OutMail As Outlook.MailItem

Dim OutAccount As Outlook.Account

Dim strbody As String

Set OutApp = CreateObject(“Outlook.Application”)

Set OutMail = OutApp.CreateItem(olMailItem)

‘Use the account based on the number

Set OutAccount = OutApp.Session.Accounts.Item(1)

‘Or use the email address

‘Set OutAccount = OutApp.Session.Accounts(“takyardinesh@gmail.com”)

strbody = “You can learn the following at exceltrainingvideos.com:” & vbNewLine & vbNewLine & _

“Visual Basic for Applications VBA” & vbNewLine & _

“Pivot Tables” & vbNewLine & _

“Solver” & vbNewLine & _

“Data Analysis & charts” & vbNewLine & _

“More…” & vbNewLine & vbNewLine & _

“Dinesh K Takyar”

On Error Resume Next

With OutMail

.To = “takyar@hotmail.com”

.CC = “dinesh@exceltrainingvideos.com;john@exceltrainingvideos.com”

.BCC = “harry@exceltrainingvideos.com”

.Subject = “What do you want to learn today in MS Excel?”

.Body = strbody

.SendUsingAccount = OutAccount

.Display ‘or use .Send

End With

On Error GoTo 0

Set OutMail = Nothing

Set OutApp = Nothing

Set OutAccount = Nothing

End Sub