Discussion :

[YannQMRX]

Bonjour à tous, je suis actuellement en stage dans une entreprise qui m'a confié un projet assez important. Mon entreprise vend des élévateurs à palettes, seulement ce n'est pas un produit qui peut se vendre du jour au lendemain. En effet il faut tout d'abord envoyé l'offre ou le devis et ensuite attendre la commande du client. Cependant ce dernier met souvent du temps à se décider d'ou la nécéssité de relancer (au bout de trois mois souvent), c'est la que j'intervient.


Il faut que j'automatise la relance, il faudrait qu'en un clique, le mail soit envoyé et qu'une tache outlook soit créée juste après l'envoi du mail contenant l'offre/devis avec si possible l'intitulé de l'objet du mail précédamment envoyé.

J'espere avoir été assez clair, sachez que je débute en codage..


Voici ce que j'ai réussi à trouver sur le net pour commencer. J'arrive donc ici à créer une tache mais seulemnt pour une date précise et sans l'intilulé du mail.

Je voudrais avoir si possible des conseils sur ce macro. Peut etre faut-il utiliser autre chose que DueDate ? Qu'en pensez vous ?

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
Option Explicit
 
Sub Relance()
On Error GoTo errHandle
Dim olTask As TaskItem
 
'// Create Task Item Instance
Set olTask = CreateItem(olTaskItem)
With olTask
    .Subject = "Relancer Offre"
    .Status = olTaskNotStarted
    .Importance = olImportanceNormal
    .DueDate = DateValue("12/12/2017")
    .Save
 
End With
 
Set olTask = Nothing
 
Exit Sub
 
errHandle:
MsgBox "Error: " & Err.Description, vbExclamation
Set olTask = Nothing
End Sub

[Jean-Philippe André]

Salut,

pour la Due Date, tu peux deja commencer avec par exemple

Code :

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

.DueDate = DateAdd("m",3,Date)

Pour le sujet du mail, il s'agit de la propriete .Subject du MailItem

Il faudra donc recuperer cette information lors de l'envoi du mail

Code :

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

1
2
3
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 
End Sub

[YannQMRX]

Merci pour la réponse rapide, je vais l'essayer tout de siute!

[Oliv-]

Bonjour,
Il y a une solution sans MACRO, dans Outlook 2010 par exemple quand tu es sur un Email tu cliques sur "Assurer un suivi"


Si tu veux le faire avec une macro il faut définir à quel moment tu va lancer cette macro, est-ce que tu veux un rappel sur tous le Emails, ceux avec un sujet particulier, un PJ etc...