I am working on a file that creates new workbooks and then uses outlook to send the files. If I have two different outlook accounts (kirea.joen@gcl.ca and kjoen_personal@gcl.ca) how can I tell the program use kirea.joen@gcl.ca, or before running the program do I have to open outlook to the right account. Below is the code that i am using to email the workbook... PLEASE 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 report"
.Attachments.Add ActiveWorkbook.FullName
' .Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub