VBS script to send email

Const MSG_RECIPIENT_LIST = "[email protected]"
Const MSG_SUBJECT = "Some Subject"
Const MSG_BODY = "Testing"
 
Dim olkApp, olkSes, olkMsg
Set olkApp = CreateObject("Outlook.Application")
Set olkSes = olkApp.GetNamespace("MAPI")
olkSes.Logon olkApp.DefaultProfileName
Set olkMsg = olkApp.CreateItem(0)
With olkMsg
    .To = MSG_RECIPIENT_LIST
    .Subject = MSG_SUBJECT
    .HTMLBody = MSG_BODY
    .Send
End With
olkSes.Logoff
Set olkMsg = Nothing
Set olkSes = Nothing
Set olkApp = Nothing

If I have multiple email accounts synced, how do i get it to select the "From" address.