Discussion :

[melodyyy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[miko91]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"