Bonjour à tous,
je cherche rappeler a certaines personnes les taches qui arrivent a échéance
avec en objet dans le message la tache qui arrive a échéance.
Exemple la colonne A les taches, la colonne B le délai pour cette tache,
colonne C les initiales de la personnes qui suit le projet et la colonne F
la liste des adresses email de chaque responsable de projet.
en A2 initiales "relancer le fourniseur toto", en B2 "la date du délai", en
C2 les initiales "PF" et en F7 l'adresse du chargé de projet pour la tache
concernée.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Sub envoi_Mail() Dim olapp As Outlook.Application Range("A2").Select Do While Not IsEmpty(ActiveCell) Dim msg As MailItem Set olapp = New Outlook.Application Set msg = olapp.CreateItem(olMailItem) msg.To = ActiveCell.Offset(0, 5) msg.Subject = ActiveCell msg.Body = "Tâche " & ActiveCell & vbCrLf & "Délai" & ActiveCell.Offset(0, 1) msg.Send ActiveCell.Offset(1, 0).Select Loop End Sub
http://cjoint.com/?hmiOHdePqH
JB
On 11 juil, 22:11, "Pierre" wrote:
Bonjour à tous, je cherche rappeler a certaines personnes les taches qui arrivent a éch éance avec en objet dans le message la tache qui arrive a échéance. Exemple la colonne A les taches, la colonne B le délai pour cette tache, colonne C les initiales de la personnes qui suit le projet et la colonne F la liste des adresses email de chaque responsable de projet. en A2 initiales "relancer le fourniseur toto", en B2 "la date du délai ", en C2 les initiales "PF" et en F7 l'adresse du chargé de projet pour la ta che concernée.
Si vous pouvez m'aider ce serait sympa.
--
Bonjour,
Sub envoi_Mail()
Dim olapp As Outlook.Application
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Offset(0, 5)
msg.Subject = ActiveCell
msg.Body = "Tâche " & ActiveCell & vbCrLf & "Délai" &
ActiveCell.Offset(0, 1)
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
End Sub
http://cjoint.com/?hmiOHdePqH
JB
On 11 juil, 22:11, "Pierre" <nos...@nospam.fr> wrote:
Bonjour à tous,
je cherche rappeler a certaines personnes les taches qui arrivent a éch éance
avec en objet dans le message la tache qui arrive a échéance.
Exemple la colonne A les taches, la colonne B le délai pour cette tache,
colonne C les initiales de la personnes qui suit le projet et la colonne F
la liste des adresses email de chaque responsable de projet.
en A2 initiales "relancer le fourniseur toto", en B2 "la date du délai ", en
C2 les initiales "PF" et en F7 l'adresse du chargé de projet pour la ta che
concernée.
Sub envoi_Mail() Dim olapp As Outlook.Application Range("A2").Select Do While Not IsEmpty(ActiveCell) Dim msg As MailItem Set olapp = New Outlook.Application Set msg = olapp.CreateItem(olMailItem) msg.To = ActiveCell.Offset(0, 5) msg.Subject = ActiveCell msg.Body = "Tâche " & ActiveCell & vbCrLf & "Délai" & ActiveCell.Offset(0, 1) msg.Send ActiveCell.Offset(1, 0).Select Loop End Sub
http://cjoint.com/?hmiOHdePqH
JB
On 11 juil, 22:11, "Pierre" wrote:
Bonjour à tous, je cherche rappeler a certaines personnes les taches qui arrivent a éch éance avec en objet dans le message la tache qui arrive a échéance. Exemple la colonne A les taches, la colonne B le délai pour cette tache, colonne C les initiales de la personnes qui suit le projet et la colonne F la liste des adresses email de chaque responsable de projet. en A2 initiales "relancer le fourniseur toto", en B2 "la date du délai ", en C2 les initiales "PF" et en F7 l'adresse du chargé de projet pour la ta che concernée.
Si vous pouvez m'aider ce serait sympa.
--
Pierre
Je viens d'essayer mais il faudrait que les messages ne partent que si la date "délai" est atteinte ou passée, sinon pas de message. Merci pour votre aide --
"JB" a écrit dans le message de news:
Bonjour,
Sub envoi_Mail() Dim olapp As Outlook.Application Range("A2").Select Do While Not IsEmpty(ActiveCell) Dim msg As MailItem Set olapp = New Outlook.Application Set msg = olapp.CreateItem(olMailItem) msg.To = ActiveCell.Offset(0, 5) msg.Subject = ActiveCell msg.Body = "Tâche " & ActiveCell & vbCrLf & "Délai" & ActiveCell.Offset(0, 1) msg.Send ActiveCell.Offset(1, 0).Select Loop End Sub
http://cjoint.com/?hmiOHdePqH
JB
On 11 juil, 22:11, "Pierre" wrote:
Bonjour à tous, je cherche rappeler a certaines personnes les taches qui arrivent a échéance avec en objet dans le message la tache qui arrive a échéance. Exemple la colonne A les taches, la colonne B le délai pour cette tache, colonne C les initiales de la personnes qui suit le projet et la colonne F la liste des adresses email de chaque responsable de projet. en A2 initiales "relancer le fourniseur toto", en B2 "la date du délai", en C2 les initiales "PF" et en F7 l'adresse du chargé de projet pour la tache concernée.
Si vous pouvez m'aider ce serait sympa.
--
Je viens d'essayer mais il faudrait que les messages ne partent que si la
date "délai" est atteinte ou passée, sinon pas de message.
Merci pour votre aide
--
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1184222443.551873.15290@n60g2000hse.googlegroups.com...
Bonjour,
Sub envoi_Mail()
Dim olapp As Outlook.Application
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = ActiveCell.Offset(0, 5)
msg.Subject = ActiveCell
msg.Body = "Tâche " & ActiveCell & vbCrLf & "Délai" &
ActiveCell.Offset(0, 1)
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
End Sub
http://cjoint.com/?hmiOHdePqH
JB
On 11 juil, 22:11, "Pierre" <nos...@nospam.fr> wrote:
Bonjour à tous,
je cherche rappeler a certaines personnes les taches qui arrivent a
échéance
avec en objet dans le message la tache qui arrive a échéance.
Exemple la colonne A les taches, la colonne B le délai pour cette tache,
colonne C les initiales de la personnes qui suit le projet et la colonne F
la liste des adresses email de chaque responsable de projet.
en A2 initiales "relancer le fourniseur toto", en B2 "la date du délai",
en
C2 les initiales "PF" et en F7 l'adresse du chargé de projet pour la tache
concernée.
Je viens d'essayer mais il faudrait que les messages ne partent que si la date "délai" est atteinte ou passée, sinon pas de message. Merci pour votre aide --
"JB" a écrit dans le message de news:
Bonjour,
Sub envoi_Mail() Dim olapp As Outlook.Application Range("A2").Select Do While Not IsEmpty(ActiveCell) Dim msg As MailItem Set olapp = New Outlook.Application Set msg = olapp.CreateItem(olMailItem) msg.To = ActiveCell.Offset(0, 5) msg.Subject = ActiveCell msg.Body = "Tâche " & ActiveCell & vbCrLf & "Délai" & ActiveCell.Offset(0, 1) msg.Send ActiveCell.Offset(1, 0).Select Loop End Sub
http://cjoint.com/?hmiOHdePqH
JB
On 11 juil, 22:11, "Pierre" wrote:
Bonjour à tous, je cherche rappeler a certaines personnes les taches qui arrivent a échéance avec en objet dans le message la tache qui arrive a échéance. Exemple la colonne A les taches, la colonne B le délai pour cette tache, colonne C les initiales de la personnes qui suit le projet et la colonne F la liste des adresses email de chaque responsable de projet. en A2 initiales "relancer le fourniseur toto", en B2 "la date du délai", en C2 les initiales "PF" et en F7 l'adresse du chargé de projet pour la tache concernée.