Sub SendMail_Relance()
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Dim Chemin$, Client$, Fichier$
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = Range("a13").Value
.Subject = Range("a10").Value
.Body = ActiveSheet.Range("E19") & ActiveSheet.Range("L19") & vbNewLine & _
"" & vbNewLine & vbNewLine & _
ActiveSheet.Range("A11") & "," & vbNewLine & _
vbNewLine & _
"Nous vous prions de trouver ci-dessous le relevé de votre compte ..." & vbNewLine & _
"Cordialement," & vbNewLine & _
vbNewLine & _
"Comptabilité Clients" & vbCrLf & _
""&recuptxt("
[COLOR=Red]C:\Documents and Settings\(tonusernam)\Application Data\Microsoft\Signatures\tonfichier.txt[/COLOR]")
.Display '.Send
End With
End Sub