L'envoie des messages auto. vers ma boite hotmail depuis Excel Fermé

Question

Bonjour, 

J'ai un calendrier de travail, j'ai 6  colonnes
La colonne A c'est celle des date d'aujourd'hui jusqu'à la fin de l'année 2013

Les autres colonnes sont les lieux de travail, chaque colonne correspond a un lieu

d'habitude je donne une couleur a a la cellule qui correspond au jour et la colonne ou je vais travailler, et je remplie mon calendrier comme ça a chaque fois,

Ma question: Est ce que quelqu'un peut me dire comment faire pour créer des alerte (envoie des messages automatiquement sur ma boite hotmail) sans que j'ouvre excel. parce que ça m'arrive que j'oublie que je travail un tel jour!!! :(

jusqu'a maintenant j'ai trouvé ce code, mais il m'ouvre la messagerie et il m'ecrit directement le message dans l'objet du mail :(

Si quelqu'un peut m'aider, je le remercie par avance.

Cordialement,

Slim025

Configuration: Windows 7 / Firefox 14.0.1

Slim025 · Answer

J'ai oublié de joindre le code que j'ai trouvé mais qui ne marche pas jusqu'a maintenant comme je l'ai dit dans le précédent message

Sub declancheur()
Dim Subj As String
Dim EmailAddr As String
Dim Fichier As String
Dim Msg As String
Dim HLink As String
'-------------------------------------------------définir les données
Subj = Range("b1")
EmailAddr = Range("b1")
Fichier = "bonjour Monsieur xxx , une vacation a cette résidence est prévue"

Subj = Range("c1")
EmailAddr = Range("c1")
Fichier = "bonjour Monsieur xxx , une vacation a cette résidence est prévue"

Subj = Range("d1")
EmailAddr = Range("d1")
Fichier = "bonjour Monsieur xxx , une mission a ce lieu est prévue"

Subj = Range("e1")
EmailAddr = Range("e1")
Fichier = "bonjour Monsieur xxx , une mission a ce lieu est prévue"

Subj = Range("f1")
Fichier = "bonjour Monsieur xxx , une mission a ce lieu est prévue"


'--------------------------------------------------Composer le message
Msg = Msg & Range("a7") '--------------------------------------------------Construire lien hypertexte
HLink = "mailto:" & EmailAddr & ""
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
'--------------------------------------------------Transmettre le message
ActiveWorkbook.FollowHyperlink HLink
Application.Wait (Now + TimeValue("0:00:03"))
SendKeys "%i", True
Application.Wait (Now + TimeValue("0:00:03"))
SendKeys "", True
Application.Wait (Now + TimeValue("0:00:03"))
SendKeys Fichier, True
Application.Wait (Now + TimeValue("0:00:03"))
SendKeys "{enter}", True
Application.Wait (Now + TimeValue("0:00:03"))
SendKeys "%v", True
End Sub


Je vous remercie par avance, Messieurs, Dames.

Cordialement,

Slim025

L'envoie des messages auto. vers ma boite hotmail depuis Excel

1 réponse

Discussions similaires