Macro Envoi par email

[ARMO]

Je cherche la macro qui me permettrai d'envoyer des infos d'une page Excel à plusieurs destinataires, sachant que chaque destinataire n'auras pas les même infos que les autres.
J'ai déjà réalisé une macro qui le faisait par fax, avec le module capturefax de winphone.
Pour remplacer cette application par un envoi d'Email je nage un peu (et même bcp)
Merci d'avance

 

[JPM]

Bonjour le forum et ARMO

Voilà un bout de code trouver sur un fil pour l'envoi de Mail, mais je cherche encore pour la mise en forme des données ( faire un tableau et là BUG !!!)

Dim objOL As New Outlook.Application
Dim objMail As MailItem
Dim TxtF$, TxtT$, i%
i = 490
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
TxtF = Range("B1") & " au " & Range("B5") & Chr(10)
Do While Range("A" & i) <> ""
TxtF = TxtF & Range("A" & i) & " : places disponibles " & Range("G" & i) & Chr(10)
i = i + 1
Loop
i = 499
Do While Range("A" & i) <> ""
TxtT = TxtT & Format(Range("A" & i), "dddd") & " : places disponibles " & Range("B" & i) & Chr(10)
i = i + 1
Loop
With objMail
.To = "Ton adresse"
.Subject = "Sujet du Mail
.Body = TxtF & Chr(10) & TxtT & Chr(10) & Application.UserName
.Display
End With
objMail.Send
Set objMail = Nothing
Set objOL = Nothing

A+ JPM