Envoie

Public Sub btnEmail_Click()
numligne = InputBox("Saisir ligne")
msg = Cells(numligne, 3) & " " & Cells(numligne, 4)
'MsgBox (msg)
SendMail_Outlook ([B][COLOR="Red"]msg[/COLOR][/B])
End Sub

Sub SendMail_Outlook([B][COLOR="red"]txtAenvoyer[/COLOR][/B])
EmailSubject = InputBox("Indiquer le sujet de votre e-mail", "Sujet du message") 'Demande du sujet du message
emailmsg = InputBox("Indiquer votre message", "Message") 'Demande du contenu du message
emaildest = "romain.laubal@cdiscount.com"
Dim ObjOutl As Object 'Déclaration des objets
Dim objSession As Object
Set ObjOutl = CreateObject("Outlook.Application") 'Création de l'objet Outlook
'Set objSession = ObjOutl.GetNamespace("MAPI") 'Création de l'objet de gestion des message
Set ObjMessage = ObjOutl.CreateItem(0) 'Ajout d'un item pour le message
'objSession.Logon 'Connection à Outlook
With ObjMessage
.To = emaildest
.CC = ""
.Subject = EmailSubject
.Body = emailmsg [B][COLOR="red"]& vbCr & vbCr & txtAenvoyer[/COLOR][/B]
'.Send
.display
End With
'Suppression des objets (Vidage)
Set ObjMessage = Nothing
'objSession.Logoff
'Set objSession = Nothing
Set ObjOutl = Nothing
End Sub

Public Sub btnEmail_Click()
numligne = InputBox("Saisir ligne")
[COLOR="Green"]For i = 1 To 8
    msg = msg & Cells(numligne, i) & " "
Next[/COLOR]
'MsgBox msg
SendMail_Outlook (msg)
End Sub

emaildest = "romain.laubal@cdiscount.com[COLOR="green"]; leci-devant@labas.fr; trucmuche@chezeux.com[/COLOR]"