selection compte pr envoi mail

bonjour,

j'aurais besoin d'aide comment puis je selectionner un compte pour envoyer mon mail quand dans notre boite mail on a deux comptes voici mon code:

Sub test()
chemin = "C:\Documents and Settings\stagiaire.bayonne2\Bureau\version test outil\"
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set olApp = Outlook.Application
'Create e-mail item
Set objMail = olApp.CreateItem(olMailItem)

Set LesMails = olApp.ActiveExplorer.Selection
For Each LeMail In LesMails
Set objMail = LeMail.Reply

'repond au directeur
objMail.Subject = "demande d'absences"
objMail.To = "adressemail@hotmail.fr"
objMail.Body = "demande approuvée" & objMail.Body
MsgBox (objMail.Body)
'objMail.BCC = wbk.Sheets("parametre").Range("a7").Value
'objMail.Attachments.Add Source:=chemin & "\" & nom & ".docm"
trouve = False
If LeMail.Attachments.Count > 0 Then
For i = 1 To LeMail.Attachments.Count
trouve = True
LeMail.Attachments.Item(1).SaveAsFile chemin & LeMail.Attachments.Item(1).FileName
Next
End If
objMail.Attachments.Add Source:=chemin & LeMail.Attachments.Item(1).FileName
'Set PJ = objMail.Attachments.Item(1)
'PJ.SaveAsFile chemin & PJ.DisplayName
'objMail.Attachments.Item(1).SaveAsFile ("C:\Documents and Settings\stagiaire.bayonne2\Bureau\version test outil\modele.docm")
objMail.Display
Next
End Sub

merci d'avance pour vos reponses