Sujet Précédent Sujet Suivant

Envoi email type outllook via un tableau Excel

Fermé
norbenz Messages postés 2 Date d'inscription jeudi 6 septembre 2018 Statut Membre Dernière intervention 10 septembre 2018 - Modifié le 6 sept. 2018 à 18:17
danielc0 Messages postés 826 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 16 avril 2024 - 14 sept. 2018 à 10:48
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é après chaque enregistrement après avoir renseigné la (Date).

L'email est envoyé à une liste d'emails (Liste 1) renseignée dans l'onglet 2.

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.
A voir également:

1 réponse

Réponse 1 / 1
danielc0 Messages postés 826 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 16 avril 2024 74
7 sept. 2018 à 15:09
Bonjour,

Mets ton classeur, sans données confidentielles sur cjoint.com, mon-partage.fr ou autre et poste le lien correspondant.

Cordialement.

Daniel
1
norbenz Messages postés 2 Date d'inscription jeudi 6 septembre 2018 Statut Membre Dernière intervention 10 septembre 2018
10 sept. 2018 à 10:09
Bonjour Daniel,
Merci pour ta réponse, voici le lien du fichier Excel, en te remerciant par avance pour ton aide précieuse.
Excellente semaine à toi. :
https://www.cjoint.com/c/HIkihtLYJKs
0
danielc0 Messages postés 826 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 16 avril 2024 74
10 sept. 2018 à 11:13
Bonjour,

Voici ton classeur modifié :

https://www.cjoint.com/c/HIkjkWvoBmv

J'ai mis un bouton sur Feuil1 pour déclencher la macro. 

Sub Traitement()
  Dim olApp As Object, M As Object, C As Range, X As Range, Plage As Range, Col As Integer
  Set olApp = CreateObject("Outlook.application")
  With Sheets("Feuil1")
    Set M = olApp.CreateItem(olMailItem)
    For Each C In .Range("B2", .Cells(.Rows.Count, 2).End(xlUp))
      With M
        .Subject = C.Offset(, 1).Value
        .Body = "Bonjour," & Chr(10) & "Ceci est une remontée pour " & _
          C.Value & ". " & C.Offset(, 2).Value
        With Sheets("Feuil2")
          Col = Application.Match(C.Offset(, 3), .[1:1], 0)
          For Each X In .Range(.Cells(2, Col), .Cells(.Rows.Count, Col).End(xlUp))
            M.Recipients.Add X.Value
          Next X
        End With
        C.Offset(, -1).Value = Date
        .Send
        Set M = Nothing
      End With
    Next C
  End With
End Sub


Daniel
0
norbenz
13 sept. 2018 à 19:16
Bonsoir Daniel,
Merci infiniment pour ton aide vraiement précieuse. Tu es au TOP ;)

En revanche, j'ai 2 petits soucis :
1- je ne peux remplir qu'une seule ligne : en remplissant une 2ème ligne ca me met un message d'erreur : Erreur d'execussion '91' : Variable objet ou variable de bloc With non définie.
2-A chaque envoi des nouvelles lignes crées, cela m'envoie les anciennes lignes aussi : Peux tu STP rajouter une condition d'envoie uniquement sur les lignes ou les dates ne sont pas renseignées ?

Peux-tu m'aider sur ces deux points s'il te plait ?

En te remerciant infiniment par avance pour ton aide.

Excellente fin de journée à toi.
0
danielc0 Messages postés 826 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 16 avril 2024 74
13 sept. 2018 à 19:31
Voici le classeur rectifié.

Daniel
0
danielc0 Messages postés 826 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 16 avril 2024 74
13 sept. 2018 à 19:32
Voici le classeur rectifié.

https://www.cjoint.com/c/HInrEIGIMWv

Daniel

Daniel
0

Discussions similaires

Échec d’envoie message messenger
Kris68 -
Colibri -

2 réponses