Excel annonceur de date d'expiration via mail
jjralph
-
melanie1324 Messages postés 1561 Statut Membre -
melanie1324 Messages postés 1561 Statut Membre -
Bonjour,
J'ai vraiment besoin d'aide. Je dois preparer dans un tableau excel, avec des dates d'anniversaire. J'aimerais trouver une formule pour non seulement m'annoncer trois jours a l'avance que l'anniversaire de mes collegues arrive "reminder" mais aussi un envoie automatique d'email a une liste de personnes.
J'utilise microsoft office 2007 Ver. anglaise.
Really need help.
J'ai vraiment besoin d'aide. Je dois preparer dans un tableau excel, avec des dates d'anniversaire. J'aimerais trouver une formule pour non seulement m'annoncer trois jours a l'avance que l'anniversaire de mes collegues arrive "reminder" mais aussi un envoie automatique d'email a une liste de personnes.
J'utilise microsoft office 2007 Ver. anglaise.
Really need help.
A voir également:
- Excel annonceur de date d'expiration via mail
- Liste déroulante excel - Guide
- Nombre de jours entre deux dates excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Windows live mail - Télécharger - Mail
1 réponse
Bonjour,
créés ta liste dans une feuille avec des dates d'anniversaire.
crées dans une autre feuille ta liste des personnes avec les mails.
Maintenant, tu vas dans Outils, macro, visual basic editor
Tu te mets sur Workbook.
En haut est sélectionné par défaut général, tu choisis Workbook.
ici, tu mets ca (fonctionne avec Outlook uniquement):
Private Sub Workbook_Open()
sheets("feuilouanniversaire").select
i=2 'si tes anniversaires commencent en ligne 3, remplaces 2 par 3
do while cells(i,1) <> "" 'vérifies que ta première colonne contient toujours une donnée
if cells(i,3) = date - 3 '3 correspond à la colonne ou tu as tes anniversaires. Si c'est pas le bon numéro, modifies le
if anniversaire="" then
anniversaire = cells(i,2) & cells(i,1) 'ta 2ème colonne = prénom si c'est pa bon mets le numéro de colonne à la place du 2, 1 est pour le nom
else
anniversaire = anniversaire & vbnewline & cells(i,2) & cells(i,1)
end if
i=i+1
end if
sheets("feuilleoutuasadressesmails").select
i=1
do while cells(i,2) <>"" '2 est la colonne ou tu as tes mails
if adresse ="" then
adresse = cells(i,2) & ";"
else
adresse = adresse & cells(i,2) & ";"
end if
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = adresse
msg.Subject = "Il y a des Anniversaires qui arrivent"
msg.Body = anniversaire
Application.DisplayAlerts = False
End Sub
pour finir toujours dans visual basic editor, tu vas dons options et tu coches : microsoft outlook 11.0 object library.
Normalement, à chaque fois que tu ouvriras le fichier, si il y a des anniversaires qui arrivent dans 3 jours, ca te préparera un mail.
créés ta liste dans une feuille avec des dates d'anniversaire.
crées dans une autre feuille ta liste des personnes avec les mails.
Maintenant, tu vas dans Outils, macro, visual basic editor
Tu te mets sur Workbook.
En haut est sélectionné par défaut général, tu choisis Workbook.
ici, tu mets ca (fonctionne avec Outlook uniquement):
Private Sub Workbook_Open()
sheets("feuilouanniversaire").select
i=2 'si tes anniversaires commencent en ligne 3, remplaces 2 par 3
do while cells(i,1) <> "" 'vérifies que ta première colonne contient toujours une donnée
if cells(i,3) = date - 3 '3 correspond à la colonne ou tu as tes anniversaires. Si c'est pas le bon numéro, modifies le
if anniversaire="" then
anniversaire = cells(i,2) & cells(i,1) 'ta 2ème colonne = prénom si c'est pa bon mets le numéro de colonne à la place du 2, 1 est pour le nom
else
anniversaire = anniversaire & vbnewline & cells(i,2) & cells(i,1)
end if
i=i+1
end if
sheets("feuilleoutuasadressesmails").select
i=1
do while cells(i,2) <>"" '2 est la colonne ou tu as tes mails
if adresse ="" then
adresse = cells(i,2) & ";"
else
adresse = adresse & cells(i,2) & ";"
end if
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = adresse
msg.Subject = "Il y a des Anniversaires qui arrivent"
msg.Body = anniversaire
Application.DisplayAlerts = False
End Sub
pour finir toujours dans visual basic editor, tu vas dons options et tu coches : microsoft outlook 11.0 object library.
Normalement, à chaque fois que tu ouvriras le fichier, si il y a des anniversaires qui arrivent dans 3 jours, ca te préparera un mail.
