Discussion :

[Freshkoko]

Bonjour à toutes et à tous,

Je cherche à automatiser l'envoi de mails sur outlook depuis excel.

Je dispose d'un fichier excel qui répertorie en fonction de chaque individu, une date limite de fin de validité de formation. je souhaiterais que, "un mois avant que cette date arrive à échéance" pour chaque individu, dans une formation correspondante soit envoyer un email automatique à un groupe de personne pour proceder à la mobilisation de l'agent pour un recyclage de formation.

Ex : fichier joint..

A1 NOM B1PRÉNOM C1CLIENT D1Poste occuppé E1Faite le F1Expire le G1 Statut(Expiré) .........
(envoi du mail à un groupe de collaborateur un mois avant échéance"Expiré" )

Je souhaiterais avoir une macro qui exécuterait l'envoi du mail : pour chaque formation où est indiqué le message "expiré,

Enfin la macro finirait en indiquant la date du mail envoyé dans les cellules correspondantes de la colonne de formation arrivée à échéance.

En résumé, à chaque fois que la macro rencontre une cellule de la colonne "Expiré"

PS: Les destinataires seront des variables changeantes, c'est pour cette raison qu'il serait préférable que la macro demande à l'utilisateur l'email.

Est-ce possible ?
Merci d'avance à toutes et à tous pour votre assistance. ;

[Menhir]

Il y a de nombreux éléments ici :
https://excel.developpez.com/faq/?page=Messagerie
https://excel.developpez.com/sources/?page=Outlook

Je te conseille de commencer à développer ton application en utilisant ces éléments et de revenir poser des questions techniques lorsque tu rencontreras des difficultés précises.

[Freshkoko]

Bonjour,

j'ai tout de même éplucher les différents sujets ayant été traité notamment:

http://www.developpez.net/forums/d13...nction-d-date/
http://www.developpez.net/forums/d10...59-80004005-a
Et ce que vous m'avez donner
https://excel.developpez.com/faq/?page=Messagerie
https://excel.developpez.com/sources/?page=Outlook

dont j'avoue m'être fortement inspiré je ne le cacherai pas.

j'insiste sur le fait que j'ai planché dessus, mais le problème dépasse mes compétences.

outlook est ouvert et connecté.
avec la version où l'adresse renseignée est outllook, le message d'erreur qui apparait est le suivant:

Run-time error '-2147417851 (80010105)'
Method 'body' of object'_MailItem' failed

Si vous pouvez me venir en aide ca serait top!

Par avance merci.

[Menhir]

avec la version où l'adresse renseignée est outllook, le message d'erreur qui apparait est le suivant:

Run-time error '-2147417851 (80010105)'
Method 'body' of object'_MailItem' failed

Présente le code concerné (de préférence entre balises CODE).
Indique la ligne de code qui génère l'erreur.

[Freshkoko]

Bonsoir le code concerné est le suivant (Alerte fin de validité Badge D):

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
Sub Alertes()
Dim B As Range, OL As Object, M As Object, Plage As Range
    Set olApp = CreateObject("Outlook.application")
    With Sheets("Service MP2")
        Set Plage = .Range(.[H4], .Cells(.Rows.Count, 1).End(xlUp))
    End With
    For Each B In Plage
        If B.Offset(, 5) - Date <= 30 Then
          Set M = olApp.CreateItem(olMailItem)
          With M
              .Subject = "Alerte fin de validité Badge D"
              .Body = B.Offset(, 19)
              .Recipients.Add B.Offset(, 20)
              .send
           End With

a ligne 12...

sachant que le code se répète pour:

• Alerte fin de validité H2S
• Alerte fin de validité Formation BOSIET
• Alerte fin de validité Visite Médicale
• Alerte fin de validité Badge

Merci pour la réaction.

[Menhir]

Essaye ça :

Code :

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

              .Body = B.Offset(, 19).Text

[Thumb down]

Bonjour,
https://www.developpez.net/forums/d1...t/#post7968025