envoie mail a partir d'une date

[letroubadour]

Bonjour a tous

je voudrais qu'au dépassement d'une date un mail soit générer.
Dans mon fichier il y a une la date qui passe en rouge lorsque l'on arrive a 30 jours de l'échéance, donc envoie du mail.
dans la création du mail il y a également un texte a mettre et je pense que c'est le logiciel de mail par défaut qui s'ouvrira.

Tout est écrit dans le fichier

j'ai bien utilisé la fonction recherche mais je ne maitrise pas le VBA, je m'appuie donc sur vos connaissances

je vous remercie par avance

RAPHAEL

 

[JORDAN]

Re : envoie mail a partir d'une date

bonjour letroubadour,

tu utilises Outlook ?

 

[sixair]

Re : envoie mail a partir d'une date

Bonjour Letroubadour,
Bonjour à tous,

Une possibilité sous Outlook:
Nécessite d'activer la référence "Microsoft Outlook 12.0 Object librairy"

Pour que les envois se fassent sur toutes les dates passées de 30 jours et 1 seule fois,
j'ajouterais une colonne Envoi pour marquer ceux déjà envoyés...

Cordialement
Sixair

 

[letroubadour]

Re : envoie mail a partir d'une date

merci a tous les deux

je viens d'essayer et ça a l'air de fonctionner, je teste ca dans les semaines a venir au bureau

mille fois merci a tous les deux

RAPHAEL

 

[letroubadour]

Re : envoie mail a partir d'une date

bonjour

Dans le corps du message je voudrais supprimer dans : "affaire N° xxxxxx" les xxxxxx
quand j'essaie de la faire j'ai une erreur de syntaxe

et aussi après le " blabla " enlever les barres verticales je ne les trouve pas dans ma macro

merci

RAPHAEL

 

[letroubadour]

Re : envoie mail a partir d'une date

mon envoie précédent est réglé

maintenant ce que je désire faire: lorsque le message est généré , c'est indiqué dans la case envoie par un "1"

lorsque je change la date d'échéance et que celle-ci devient blanche (plus d'alerte ) je voudrais que le "1" dans la case envoie disparaisse

merci


RAPHAEL

 

[sixair]

Re : envoie mail a partir d'une date

re-Bonjour,

Ajoute une condition, si date > aujourd'hui +30, envoi = ""

If Cells(Ligne, 4) - Date <= Cells(10, 8) And Cells(Ligne, 6) <> 1 Then
EnvoiMail (Ligne)
Cells(Ligne, 6) = 1
Else
If Cells(Ligne, 4) - Date > Cells(10, 8) Then Cells(Ligne, 6) = ""
End If

Cordialement
sixair

 

[letroubadour]

Re : envoie mail a partir d'une date

j'ai essayé de placer le code proposé a la suite de celle figurant dans le fichier mais ca m'ouvre des messages par dizaines , j en ai plein l'écran !

pouvez vous l'écrire complètement

Merci

RAPHAEL

 

[letroubadour]

Re : envoie mail a partir d'une date

bonsoir,

j'ai bien rajouté cette commande , lorsque le message est parti il y a bien le "1" affiché mais lorsque je change ma date d'échéance le "1" ne disparait pas il est toujours présent



If Cells(Ligne, 4) - Date <= Cells(10, 8) And Cells(Ligne, 6) <> 1 Then
EnvoiMail (Ligne)
Cells(Ligne, 6) = 1
Else
If Cells(Ligne, 4) - Date > Cells(10, 8) Then Cells(Ligne, 6) = ""
End If



merci et bonne soirée

RAPHAEL

 

[sixair]

Re : envoie mail a partir d'une date

Bonsoir,

Si tu veux retirer le 1 sur changement de date,
tu peux créer un événement sur modification dans la colonne date

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Columns(4)) Is Nothing Then Exit Sub
If Target - Date > Cells(10, 8) Then Cells(Target.Row, 6) = ""
End Sub

code à placer sur la feuille

Je joins le fichier

Cdlt
Sixair

 

[letroubadour]

Re : envoie mail a partir d'une date

Bonjour SIXAIR

ton dernier message me convient, c'est exactement se que je voulais , Nickel !!!

mais je vais encore avoir besoin de tes services .

dans mon exemple il y a 3 alertes , j'envoie donc les mails , dans les cases "envoie" s'affiche les "1" .

les dates seront peut etre modifiées dans 4 ou 6 semaines , si entre temps une autre alerte se produit je voudrait que seul ce message parte et pas les 3 précédents

Si il y a "1" dans la case envoie il ne faut pas qu'ils repartent

j'espère avoir été clair

je te remercie une nouvelle fois, très sympa de ta part de t'occuper de mon problème


bonne journée

RAPHAEL

 

[letroubadour]

Re : envoie mail a partir d'une date

personne ?

jute pour terminer mon application SVP ! là, je suis a genou .

tout est mis dans le commentaire précédent

merci !!

RAPHAEL

 

[sixair]

Re : envoie mail a partir d'une date

Bonjour letroubadour,

j'avoue ne pas saisir le problème:

les dates seront peut être modifiées dans 4 ou 6 semaines , si entre temps une autre alerte se produit je voudrais que seul ce message parte et pas les 3 précédents

Or, le mail n'est regénéré que si
• La date a été modifiée ET cette nouvelle date est passée de 30 jours

Je comprends vite, mais il faut m'expliquer longtemps...😛

sixair

 

[letroubadour]

Re : envoie mail a partir d'une date

Mille excuses SIXAIR 😱

tout ça fonctionne très bien

j'ai changé la date de l'ordinateur pour faire une simulation et c'est nikel

je te remercie de t'être occupé de mon fichier

Cordialement

RAPHAEL

 

[letroubadour]

Re : envoie mail a partir d'une date

bonjour

c'est encore moi, vous aller dire que je ne sais pas ce que je veux , c'est bon , pas bon, c'est bon , ....etc.

sur le fichier, hier j'ai mis une date pour qu'il y ai une alerte aujourd'hui et hier 3 messages sont partis.
Ce matin j'ouvre mon fichier la dernière date c'est mise en rouge j'appuie sur "envoie message", les 3 qui sont déjà partis repartent mais pas le dernier or je voudrais que seul le dernier message parte.

merci

bon premier mai a tous !


RAPHAEL