Sub SendMail_Outlook()
'Macro adaptée par Dan pour Yvouille - XL pratique le 06/05/10
'http://forum.excel-pratique.com/excel/insertion-automatique-d-adresses-electroniques-t16935.html
'ACHTUNG: Verweise "Microsoft Outlook Object Library" unter "Extras\Verweise" muss angeklickt werden
'(CE QUI VEUT DIRE A PEU PRES : ATTENTION, [L'OPTION ???????] " Microsoft Outlook Object Library" SOUS "OUTILS\?????? DOIT ETRE COCHEE)
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim nblig As Long
Dim i As Integer
Dim MailAd As String, MailAd1 As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
nblig = ActiveSheet.Rows.Count
For i = Range("B" & nblig).End(xlUp).Row To 2 Step -1
MailAd = Range("B" & i) & ";"
MailAd1 = MailAd & MailAd1
Next i
With olmail
.To = MailAd1
'.CC = "" ''''''''''''''''''''''''''pour le cas des copies du message à une autre liste
.Subject =" ''Concerne'' : Peut être préparé dans la macro"
.Body = "Le texte peut être préparé directement dans la macro"
.Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
.Display
End With
End Sub
