Modification code pour envoie de mail

Bonjour

J'ai le code ci-dessous.
le permet la gestion d'affichage d'un mail
je souhaite introduire du code pour envoyer le mail directement

sub display_mails()
folder = "H:\documents"
s=dir(folder,vbDirectory)
i=0
ma_liste.clear
while s<>""
if Not (s="." or s="..") then
folder2=folder& s &"\"
dte=Left(s,14)
dte_str = Mid(s,7,2) & "/" & Mid(5,2) & "/" & Left(dte,4)
Open folder2 & "body.txt" for input as #1
Line Input #1, from_str
mail_liste.addItem
mail_list.List(i,0)=s
mail_list.List(i,1)=dte_str
mail_list.List(i,2)= replace(to_str,"To:","")
mail_list.List(i,3)= replace(subject_str,"subject:", "")
i=i+1
close#1
end if
s=Dir()

Wend
end sub