Discussion :

[kitch]

Bonjour,

Ayant repris un programme ACCESS existant, je vais vous expliquer mon problème.

Le logiciel permet d'envoyer un document WORD à une liste de contact OUTLOOK 2010. la pièce jointe est renseignée, le texte prédéfini, la liste de contact remplie, mais il serait souhaitable de mettre un rappel après 3 jours car il arrive que notre message passe inaperçu. Etant donné qu'il faut le faire à chaque fois, il serait plus simple de le programmer automatiquement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
With oMail
        .BodyFormat = olFormatHTML
        'Destinataire du mail
        .To = strDestinataire
        'Destinataire en copie
        .CC = strDestinataireCopie
        'Sujet du mail
        .Subject = strSujet
        'Coprs du mail
        .Body = strMessage
        'Pièce jointe
        .Attachments.Add strPieceJointe
        'On affiche le mail pour que l'utilisateur valide l'envoi
        .Display
    End With

Je m'adresse donc à vous en espérant obtenir une réponse, existe-il une fonction ou commande pour générer automatiquement le suivi à 3 jours ?

Cordialement,

Kitch

[marot_r]

Bonjour.

Apparemment c'est possible.

Ici un article sur le sujet :
How to send Outlook Emails with attached Flag and Reminder in VBA
http://www.codekabinett.com/rdumps.p...-task-reminder

A+

[kitch]

Bonjour,

Merci de votre réponse rapide.

Il semblerait que ça corresponde en effet, je testerai ça, je reviens vers vous si j'ai des soucis mais je ne pense pas.

Bonne journée, merci encore !

Cordialement,

Kitch

[kitch]

Bonjour,

Je reviens vers vous suite à mon problème. Je n'ai pas encore résolu mon soucis.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 With oMail
        .BodyFormat = olFormatHTML
        'Destinataire du mail
        .To = strDestinataire
        'Destinataire en copie
        .CC = strDestinataireCopie
        'Sujet du mail
        .Subject = strSujet
        'Coprs du mail
        .Body = strMessage
 
        .ReminderSet = True
        .FlagStatus = olFlagMarked
        .FlagRequest = "Rappel AdR en attente"
        .FlagDueBy = DateAdd("d", 3, Date)
 
        '.ReminderOverrideDefault = True
 
 
 
        'On affiche le mail pour que l'utilisateur valide l'envoi
        .Display
    End With

Le soucis, c'est que l'indicateur s'intègre bien, mais il n'y a pas de "Rappel" pour le destinataire. La case ne se coche pas (Voir photo en PJ).

J'ai essayé d'utiliser différentes fonctions mais ça ne fonctionne pas encore. Je vais continuer de travailler dessus, mais si vous connaissez la fonction permettant d'activer le rappel, je suis preneur

Cordialement,

Kitch

[marot_r]

C'est plus un problème d'Outlook que de Access.

Je te suggère de poser ta question dans un forum dédié à ce produit.

Autre idée, dans Outlook si c'est possible, enregistrer une macro qui fait cela et regarder le code généré. Cela te donnera peut-être une piste.

A+

[kitch]

Bonjour,

C'est noté je vais essayer de trouver une réponse sur un autre forum / site.

Si je trouve la réponse je reviendrai la poster ici.

Cordialement,

Kitch