I am trying to send an newly created workbook off by email using Outlook however, I have two email accounts in outlook. Is it possible to specific which outlook account these files are sent from? The code I am using is below, PLEAE HELP!

Sub PQRIEmailFile()

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
' .To = ActiveSheet.Range("AB3").Value
.To = "shekira.mounsey@hotmail.com"
.CC = ""
.BCC = ""
.Subject = "Test"
.Body = "Dear " & ActiveSheet.Range("W3").Value & ", " & "Attached is your file"
.Attachments.Add ActiveWorkbook.FullName
' .Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub