Utilisation de l'InputBox

**YannQMRX** · 29/06/2017, 12h07

Bonjour,

J'ai trouvé cette macro sur le net (merci Diane si tu passes par la, https://www.slipstick.com/developer/...-up-using-vba/ ), elle permet de créer une tache dans outlook avec le reminder qui va bien via l'InputBox. Cependant je n'arrive pas du tout à la faire fonctionner. En effet, la tache est bien créée cependant le DueDate ainsi que le Reminder ne correspondent en aucun cas avec la valeur rentrée précédemment dans l'InputBox!!

Je rentre par exemple 90 (pour 90 jours) mais le DueDate et le reminder de la tache se mettent par défault sur + 24h...

S'il vous vient une idée, je suis preneur

Merci!

Le code;

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
Dim SetFlag
Private WithEvents olSentItems As Items
 
Private Sub Application_Startup()
  Dim objNS As NameSpace
  Set objNS = Application.Session
  ' instantiate objects declared WithEvents
  Set olSentItems = objNS.GetDefaultFolder(olFolderSentMail).Items
  Set objNS = Nothing
End Sub
 
Private Sub olSentItems_ItemAdd(ByVal Item As Object)
  On Error Resume Next
 
  Dim countDays As Long
  Dim prompt As String
 
  countDays = InputBox("How many days from now?")
 
       If SetFlag = vbYes Then
 
 
 
   With Item
    .MarkAsTask olMarkThisWeek
    .TaskDueDate = countDays
    .ReminderSet = True
    .ReminderTime = countDays - 1
    .Save
   End With
       End If
 SetFlag = vbNo
End Sub
 
Sub SayYes()
 SetFlag = vbYes
End Sub

**Oliv-** · 29/06/2017, 12h28

Bonjour,
Bonne recherche !
Par contre pourquoi ne poursuis tu pas le fil précédent ? qui lui est de plus dans le bon sous forum .

https://www.developpez.net/forums/d1...n-d-aide-code/

Pour la réponse à ta question

il faut saisir une date et pas un nombre

**YannQMRX** · 29/06/2017, 14h50

Envoyé par Oliv-

Bonjour,
Bonne recherche !
Par contre pourquoi ne poursuis tu pas le fil précédent ? qui lui est de plus dans le bon sous forum .

https://www.developpez.net/forums/d1...n-d-aide-code/

Pour la réponse à ta question

il faut saisir une date et pas un nombre

Je ne sais du tout, je suis nouveau je dois juste me familiariser avec le site dans un premier temps

Pour le code le fait d'avoir mis en place ceci permet, sauf erreur, de choisir une date via un nombre non ? (ex; Si je met 80, la due Date sera dans 80 jours)

Code :

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

1
2
3
Dim countDays As Long
countDays = InputBox("How many days from now?")
.TaskDueDate = countDays

Par contre selon la créatrice le dispositif suivant permettrait lui d'entrer comme tu dis une date et non un nombre seulement j'ai beau essayé le résultat est le meme...

Code :

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

1
2
3
Dim RemindMeOn As Date
RemindMeOn = InputBox("Enter the reminder date in any valid short date (m/d/y) format")
.TaskDueDate = RemindMeOn

Dur dur de commencer ou est vite perdu!

**Oliv-** · 29/06/2017, 14h55

comme cela alors

Code :

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

.TaskDueDate = now + countDays

**YannQMRX** · 29/06/2017, 15h26

Envoyé par Oliv-

comme cela alors

Code :

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

.TaskDueDate = now + countDays

Parfait merci beaucoup !!!!!

**YannQMRX** · 30/06/2017, 09h07

Encore les derniers réglages à faire et je suis bon.

Le problème est que j'ai envoyé la macro à mes collègues et que certains d'entre eux ont l'InputBox qui s'ouvre à chaque message qu'ils envoient (Sans avoir à cliquer sur le bouton SayYes permettant le lancement de la macro). Ce qui est étrange c'est que ca ne me le fait pas à moi! Est ce que cela viendrait des réglages dans les options ?

Une idée ?

**YannQMRX** · 30/06/2017, 11h12

Envoyé par YannQMRX

Parfait merci beaucoup !!!!!

Encore les derniers réglages à faire et je suis bon.

Le problème est que j'ai envoyé la macro à mes collègues et que certains d'entre eux ont l'InputBox qui s'ouvre à chaque message qu'ils envoient (Sans avoir à cliquer sur le bouton SayYes permettant le lancement de la macro). Ce qui est étrange c'est que ca ne me le fait pas à moi! Est ce que cela viendrait des réglages dans les options ?

Une idée ?

**Oliv-** · 30/06/2017, 12h31

Bonjour,
Faudrait publier l'ensemble de ton code !

**YannQMRX** · 30/06/2017, 12h47

Envoyé par Oliv-

Bonjour,
Faudrait publier l'ensemble de ton code !

Salut,

Oui évidemment

Voici le code, le problème est simplement que l'inputbox apparait à chaque envoi de mail après avoir envoyer le dernier mail utilisant la macro. Elle reste donc toujours active meme si on ne clique pas sur le bouton avant d'envoyer, et je dois donc à chaque fois relancer Outlook pour que la macro cesse de fonctionner (ce qui est plutot embetant). :/

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
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
Dim SetFlag
Private WithEvents olSentItems As Items
 
Private Sub Application_Startup()
  Dim objNS As NameSpace
  Set objNS = Application.Session
  ' instantiate objects declared WithEvents
  Set olSentItems = objNS.GetDefaultFolder(olFolderSentMail).Items
  Set objNS = Nothing
End Sub
 
 
Private Sub olSentItems_ItemAdd(ByVal Item As Object)
 
  On Error Resume Next
  Dim prompt As String
  Dim countDays As Long
 
  countDays = InputBox("How many days from now?")
 
       If SetFlag = vbYes Then
 
   With Item
    .MarkAsTask olMarkThisWeek
    .TaskDueDate = Now + countDays
    .ReminderSet = True
    .ReminderTime = Now + countDays
    .Save
   End With
       End If
SetFlag = vbNo
End Sub
 
Sub SayYes()
SetFlag = vbYes
End Sub

**Oliv-** · 30/06/2017, 14h31

as tu vu ce message ?
tu disais pas qu'il fallait un rappel à 30 jours ?

**YannQMRX** · 30/06/2017, 14h41

Envoyé par Oliv-

as tu vu ce message ?
tu disais pas qu'il fallait un rappel à 30 jours ?

Le message ?

Non pas forcément c'est pourquoi j'utilise ce code comme indiqué précédemment dans la discussion pour pouvoir avoir un rappel + tache en fonction du nombre de jour que je tape dans l'inputbox.

Code :

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

.TaskDueDate = now + countDays

Le problème est que je gère mal le If then Else et donc une fois que j'ai cliqué sur le bouton pour activer la macro pour un mail, elle reste activée pour tout les autres mails que je veux envoyer.

**Oliv-** · 30/06/2017, 14h47

Envoyé par YannQMRX

Le message ?

Non pas forcément c'est pourquoi j'utilise ce code comme indiqué précédemment dans la discussion pour pouvoir avoir un rappel + tache en fonction du nombre de jour que je tape dans l'inputbox.

Code :

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

.TaskDueDate = now + countDays

Le problème est que je gère mal le If then Else et donc une fois que j'ai cliqué sur le bouton pour activer la macro pour un mail, elle reste activée pour tout les autres mails que je veux envoyer.

oups --> https://www.developpez.net/forums/d1...e/#post9411860

**YannQMRX** · 30/06/2017, 15h15

Envoyé par Oliv-

oups --> https://www.developpez.net/forums/d1...e/#post9411860

Ah oui merci!

Seulement la macro est plus rapide! Nous envoyons des dizaines de mails par jour donc cette macro permettrait d'aller plus vite

Une idée sur le problème ?

En tout cas merci de prendre le temps pour me répondre j'apprécie !

**Oliv-** · 30/06/2017, 15h27

Si tu répondais à toutes mes questions cela irait plus vite !

Veux tu un rappel sur tous les Emails envoyés ? ou juste ceux contenant une PJ ? ou un mot dans le sujet comme DEVIS ?

**Oliv-** · 30/06/2017, 15h41

Moi je ferais comme cela

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
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'---------------------------------------------------------------------------------------
' Procedure : Application_ItemSend
' Author    : OLIV
' Date      : 30/06/2017
' Purpose   : TACHE LORS DE L'ENVOI
'---------------------------------------------------------------------------------------
'
 
    If Not Item.Class = olMail Then GoTo fin
 
    If Item.Attachments.Count > 0 And (InStr(1, Item.Body, "Devis", vbTextCompare) > 0 Or InStr(1, Item.Subject, "Devis", vbTextCompare) > 0) Then
        Item.GetInspector.CommandBars.ExecuteMso ("FlagCustom")
    End If
 
fin:
End Sub

si la personne ne veut pas de TACHE elle clique sur annuler, après on peut forcer la création de tâche en insérant une ligne

Code :

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

Item.GetInspector.CommandBars.ExecuteMso ("FlagNextWeek")

'ou "FlagToday","FlagThisWeek", ("FlagNoDate")
avant le FlagCustom

Utilisation de l'InputBox [Toutes versions]

Outlook

Discussions similaires

Partager

Partager