Creation macro envoi automatique mail a date echeance

Angeles

XLDnaute Nouveau
Bonsoir à tous,

Avant tout, merci pour ce site qui est vraiment et de loin le meilleur que j'ai trouvé pour des gens comme moi qui sommes débutants dans ce milieu et sans réelles connaissances.

Bon, maintenant ma question. J'ai crée un tableau avec des tâches, noms, dates d'échéances, etat d'avancement, dates d'alerte et commentaires. Maintenant, on me demande de trouver une solution pour envoyer un mail automatiquement à la personne qui est en charge de la tâche à la date d'alerte pour ne pas oublier.
J'ai essayé par moi même en copiant des macros que j'ai trouvé et en les adaptant, mais sans succès.

Quelqu'un pourrait m'aider? Vraiment je suis débutante :confused::confused:
 

Pièces jointes

  • Classeur1.xlsx
    12.7 KB · Affichages: 149
  • Classeur1.xlsx
    12.7 KB · Affichages: 115

tototiti2008

XLDnaute Barbatruc
Re : Creation macro envoi automatique mail a date echeance

Bonjour Angeles,
Bienvenue,

Boudiou, ça fait mal aux yeux :D
Pour automatiser des envois de mails, il faut qu'on connaisse ton client de messagerie (Outlook, Lotus Notes...) et éventuellement sa version
ça nécessitera une macro (VBA)
 

tototiti2008

XLDnaute Barbatruc
Re : Creation macro envoi automatique mail a date echeance

Re,

Voilà le code pour envoyer un mail, à adapter

Code:
Sub EnvoiMail(Sujet As String, Deadline As Date, MailDest As String)
Dim OutlookApp As Object, OutlookMail As Object
        On Error Resume Next
        Set OutlookApp = GetObject(, "outlook.application")
        Do While OutlookApp Is Nothing
            MsgBox "Veuillez ouvrir Outlook puis cliquer sur Ok"
            Set OutlookApp = GetObject(, "outlook.application")
        Loop
        On Error GoTo 0
        Set OutlookMail = OutlookApp.CreateItem(0)
        With OutlookMail
            .Subject = Sujet
            .To = MailDest
            .Body = "Bonjour," & Chr(10) & Chr(10) & _
            "Ben alors, la deadline c'est le " & Format(Deadline, "dd/mm/yyyy") & Chr(10) & _
            "T'en est où ?"
            .Send
        End With
        Set OutlookMail = Nothing
        Set OutlookApp = Nothing
End Sub


Sub test()
EnvoiMail "", #1/1/2015#, "toto@toto.fr"
End Sub
 

Angeles

XLDnaute Nouveau
Re : Creation macro envoi automatique mail a date echeance

whaouuuuuu, ça c'est de la macro.....demain matin je vais essayer depuis le boulot et bien evidemment te tiendrai au courant. Si ça marche.......youpiiiiiiiiiiiiiiiiiiiiiii.

Merci en tout cas et bonne nuit.
Angeles.
 

Angeles

XLDnaute Nouveau
Re : Creation macro envoi automatique mail a date echeance

Bonjour à nouveau,

J'ai essayé mais cela ne fonctionne pas.

Dans la colonne C, j'ai inséré les adresses mail des destinataires des messages pour simplifier la macro, mais ça ne marche toujours pas. Je continu a chercher.

:p
 

tototiti2008

XLDnaute Barbatruc
Re : Creation macro envoi automatique mail a date echeance

Bonjour Angeles,

Tu as lu mon dernier message, n'est-ce pas ?
On part sur la colonne C pour les adresse mail ?
Il faudrait une colonne qui dit qu'on a envoyé le mail, je peux utiliser la colonne J ?
 

Statistiques des forums

Discussions
311 720
Messages
2 081 897
Membres
101 833
dernier inscrit
sandra25