Discussion :

[kitch]

Bonjour,

Venant du forum d'ACCESS, ils n'ont pas su répondre à ma question et m'ont envoyés ici.

Ainsi, je souhaite programmer des envois de message automatiquement via ACCESS. J'y arrive, et je souhaiterais maintenant mettre le "Assurer un suivi" automatiquement car trop souvent il est oublié mais nécessaire.

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
24
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
        .ReminderTime = Date + 3 + TimeValue("09:00:00")
        .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

Ceci correspond à l'envoie du message, où il est rempli automatiquement, mais en ayant testé différentes solutions, l'assurer un suivi ne fonctionne pas :

La case "Indicateur pour les destinataires" ne se coche pas, n'indiquant pas à la personne qu'elle a un e-mail à traiter.

Sauriez vous quelle fonction je pourrait utiliser pour parvenir au bout de ma programmation?

Cordialement,

Kitch

[Oliv-]

SAlut,

Tu veux cocher lequel le premier "indicateur pour moi" ou le second "indicateur pour le destinataire" ?

[kitch]

Je souhaiterais cocher la seconde case, pour le destinataire.

[Oliv-]

comme cela ça doit être bon

Code :

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

1
2
3
4
5
6
  .ReminderSet = True
       ' .ReminderTime = Date + 3 + TimeValue("09:00:00")
        .FlagStatus = olFlagMarked
        .FlagRequest = "Rappel AdR en attente"
        .FlagDueBy = DateAdd("d", 3, Date)
        '.ReminderOverrideDefault = True

[kitch]

Merci de votre réponse.

J'ai en effet enlevé la fonction "ReminderTime" et j'avais remis FlagDueBy. Il me faut attendre demain pour être certain que ça fonctionne mais il semblerait bien que ça soit comme ça.
Bien que la case ne soit pas cochée, on dirait que le rappel est programmé.

Je confirme ça demain matin !

Merci de votre réponse

[Passepartout007]

Bonjour,
J'ai le même besoin que la personne précédente cependant je souhaiterais que les champs soit renseigner pour "indicateur pour moi" :
j'ai actuellement:

Code :

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

1
2
3
4
5
6
7
8
9
 
With omail
        .ReminderSet = True
        .ReminderTime = Dates
        .FlagStatus = olFlagMarked
        .FlagRequest = sujet
        .ReminderOverrideDefault = True
        .Display
End With

cependant ca me remplis la partie "pour le destinataire".
Avez vous une solution ?
Cordialement,
Passepartout007