Envoi email via outlook depuis un tableau Excel

Bonjour,

J'espère que vous allez pouvoir m'aider :

N'ayant pas des connaissance sur VBA, j'ai un besoin urgent dans mon service d'une macro pour la mise en place d'un outil automatisé qui permet d'envoyer un email outlook depuis un tableau Excel :

L'email souhaité est le suivant :

Objet : Traitement manquant (Objet)

Corps d'email :

Bonjour,

Ceci est une remontée pour M. DUPONT (Collaborateur). Merci de traiter le dossier client (Commentaire)

Bien Cordialement

L'email est envoyé 1 seule fois après chaque enregistrement et après avoir renseigné la date du jour (Date).

L'email est envoyé à une liste d'emails (Liste 1) ou liste 2 renseignée dans l'onglet 2 en colonne A et B.

Le tableau est le suivant :


Date Collaborateur Objet Commentaire Diffusion
JJ/MM/AAAA M. DUPONT Traitement manquant Merci de traiter le dossier client Liste 1



Merci infiniment pour votre aide par avance.
Amicalement votre nouveau membre dans l'urgence

Bonjour ,
regardes ICI

Bonjour,

Je ne sais pas vraiment ce que tu voulais dire en me renvoyant sur Manpower!
Je ne m'attendais pas du tout à ca de la part d'un membre pro comme toi.

Merci tout de meme.

nous ne somme pas une SSII qui développe des application de façon bénévole!

montre nous ce que tu as déjà fais et nous pourrons t'orienté voir te propose des solutions (comme ça https://www.developpez.net/forums/d1...t/), des tutos, t'aider dans la mise au point de ton code etc...

Merci pour la précision, je comprends bien le point.
Alors voila ce que nous avons pu obtenir en interne, mais nous n'arrivons plus à avancer, complètement bloqués :

- Message d'erreur nous disant impossible d'exécuter en mode arret concernant le C6 (ou nous avons mis un message générique qui sera envoyé à tout le monde.
- Nous n'arrivons pas à selectionner la (les) lignes à envoyer selon la date en colonne F (envoyer uniquement les lignes dont les dates sont la date du jour J)
- Nous n'arrivons à ajouter une remarque en colonne G pour personnaliser le message gnérique

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

Option Explicit Private OL_App As Object Private OL_Mail As Object Private sSubject As String, sBody As String   Sub SendDocuments() ' Generate e-mails to be sent to a list of mail recipients, with a customized attachment and message for each person   Dim i As Long Dim tabContactNames As Variant, tabContactEmails As Variant, tabFNames As Variant   ' Init Application.ScreenUpdating = False ' Open Outlook On Error Resume Next Set OL_App = GetObject(, "Outlook.Application") If OL_App Is Nothing Then Set OL_App = CreateObject("Outlook.Application") End If On Error GoTo 0 ' Read E-mail parameters sSubject = Range("C6").Value sBody = Range("C8").Value ' Read Contact list tabContactNames = Range("C16:C25").Value tabContactEmails = Range("D16:D25").Value tabFNames = Range("E16:E25").Value ' Generate e-mails For i = 1 To UBound(tabContactNames, 1) If tabContactNames(i, 1) <> vbNullString Then Call CreateNewMessage(tabContactNames(i, 1), tabContactEmails(i, 1), tabFNames(i, 1)) End If Next i   MsgBox "The process has been entirely completed."   Set OL_App = Nothing Set OL_Mail = Nothing Application.ScreenUpdating = True   End Sub

---

Pièce jointe 409813

Merci infiniment pour ton aide

Il y a de nombreux codes concernant Outlook dans la FAQ et les Sources.
Les as-tu consulté ?
https://excel.developpez.com/sources/?page=Outlook
https://excel.developpez.com/faq/?page=Messagerie

Dans les références de ton projet.net tu active Excel.interop.

Dans mon projet :
le menu / référence je ne retrouve pas Excel.interop !
Je me suis certainement gourré :(

erreur de destinataire :oops:

Sinon, une petite solution pour moi istp ?
;)