Envoi email via outlook depuis un tableau Excel

**norbenzi** · 07/09/2018, 10h13

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

Invité · 07/09/2018, 10h19

Bonjour ,
regardes ICI

**norbenzi** · 07/09/2018, 10h22

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.

Invité · 07/09/2018, 10h35

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/#post7968025), des tutos, t'aider dans la mise au point de ton code etc...

**norbenzi** · 07/09/2018, 12h08

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 :

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
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