envoit de mail

Bonjour,

J'ai un fichier excel, avec des noms de personnes et voila je voudrais envoyer un mail automatique en disant bonjour mr truc est arrivé dans la société.

Mais voila en fait il faut que ça envoit un message que lorsque j'ai remplis une nouvelle ligne.

J'ai bien un code mais il fait pas tout ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub envoi_mail()   adresse = "Fbisson@salans.com" sujet = "Arrivee d'un nouvel interimaire" Message = Range("M1") & Range("N1") & Range("O1") & Range("P1") & Range("Q1") & Range("R1")   URLto = "mailto:" & adresse & "?subject=" & sujet & "&body=" & Message   ActiveWorkbook.FollowHyperlink Address:=URLto   End Sub

---

Bonjour,

Ci desssou la routine que j'utilise et qui fonctionne à toi de l'adapter

'il faut ajouter dans dans références outlook98 type
'Préparer et Envoyer un mail avec Outlook à partir d'Excel
'
'Avant de lancer cette macro, Dans l'éditeur VBA:
'Cliquer sur Outils / Références et Cocher "Microsoft Outlook Library"
'ou "Microsoft Outlook 8.0 Object Library", ou ce qui s'en rapproche le plus.
'A vérifier pour chaque nouvelle macro créée sur ce modèle.
'Cette fonction étant visiblement liée à l'outil créé.
'On peut basculer entre .send et .display selon que l'on veut envoyer le mail (send)
' ou seulement le préparer et le vérifier(display)
'On peut utiliser 'Attachments.Add ' plusieurs fois pour insérer plusieurs fichiers
' & Chr(13) & Chr(10) repésente un retour chariot
'.Cc = pour envoyer une copie à un destinataire
'.Bcc = pour une copie invisible à un destinataire (équivalent à Cci)
'.Body = le corps du message
‘

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Err.Clear Set ol = New Outlook.Application Set olmail = ol.CreateItem(olMailItem) olmail.Importance = olImportanceHigh liste_cc ="toto@free.fr ; titi@free.fr " op="Bonjour" & chr(13) & " corps du message........"   olmail.To = liste_cc olmail.CC = "" olmail.bcc = "" olmail.Subject = "Bienvenue " olmail.Body = op If piece_jointe <> "" Then olmail.Attachments.Add piece_jointe olmail.Display If Err.Number <> 0 Then MsgBox "Erreur sur l'envoi de l'email en interne"

---