Discussion :

[Oliv-]

Je veux bien y regarder si tu m'envois du toblerone !!

[Dailyplanet]

Salut,

Merci Oliv'.
Tobleron...c'est pas ce chocolat en forme de pyramide...y vient pas d'Egypte !

Pour le point 2), c'est uniquement le raccourci du mail que je désire dans la demande de réunion. Ce qui veut dire que où qu'on ai déplacé le mail, on pourra toujour l'ouvrir en cliquant sur le lien (heuu ai-je bien expliqué )

Dailyplanet

[Oliv-]

Non non de la suisse comme les ricola

Voici une première méthode :

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
'création du lien
NomFichier = "c:\temp\message.url"
Open NomFichier For Output As #1
Print #1, "[InternetShortcut]"
Print #1, "URL=outlook:" & objMail.EntryID
Print #1, "IDList="
Print #1, "IconFile=C:\WINDOWS\system32\SHELL32.dll"
Print #1, "Hotkey = 0"
Print #1, "IconIndex = 156"
Print #1, "[{000214A0-0000-0000-C000-000000000046}]"
Print #1, "Prop3=19,0"
Close #1
objReunion.Attachments.add NomFichier, olOLE
'suppression fichier
Kill NomFichier
 
    Next

Par contre question importante pourquoi créer une réunion qui a lieu au moment où tu la crée ? quel est le but assurer un suivi du mail ?

[Dailyplanet]

En fait voilà ce que je fais manuellement et ça plusieurs fois par jour. Alors c'est ch....

1) Je reçois un mail qui implique une demande de réunion
2) Je déplace ce mail dans le répertoire "Etudiant"
3) Je créer une demande de réunion pour l'expéditeur du mail
4) J'agende la demande de réunion (date/heure manuellement)
5) Dans la demande de réunion j'ajoute un lien pointant vers son mail

C'est pour cela que j'aimerai automatiser tout ça en un seul click

Heuuu pour le code qu'il y a dans ta réponse, je le colle à quel endroit dans la macro.

Dailyplanet

[Oliv-]

Oui mais pourquoi une réunion ? et pas simplement un suivi sur le mail ?

[Dailyplanet]

Parce que le mail implique l'envoie d'une demande de réunion à plusieurs autres personnes.

Dailyplanet

[Oliv-]

OK Comme tu es devenu mon fournisseur officiel de TOBLERONE , voici la deuxième méthode qui est préférable.

Code :

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

        .Attachments.add objMail, olOLE, , objMail.Subject

à mettre avant .Display

Pour déplacer le mail :

Code :

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

1
2
3
4
5
6
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.MAPIFolder
Set myNameSpace = objOutlook.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myDestFolder = myInbox.Folders("test")
objMail.move myDestFolder

à mettre avant NEXT

[Dailyplanet]

Salut Oliv'

C'est presque parfait .
Le mail est bien déplacé dans "test", mais après le déplacement, quand je clique sur le raccourci du mail (celui qui est dans la demande de réunion), j'ai le message d'erreur suivant:
Microsoft Office Outlook Impossible de trouver cet élément. Il a peut-être été supprimé ou déplacé.
Le but étant de conserver un raccourci du mail dans la demande de réunion pour accéder en tout temps à ce mail (uniquement le raccourci et non le mail en entier pour une question de place disque)

PS: Pour le Tobleron, j'ai voulu te l'offrir en "avatar" mais j'arrive pas

Dailyplanet

[Oliv-]

Salut,
voici une correction à mettre avant With objReunion

Code :

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

1
2
3
4
5
6
7
    Dim myNameSpace As Outlook.NameSpace
    Dim myInbox As Outlook.MAPIFolder
    Set myNameSpace = objOutlook.GetNamespace("MAPI")
    Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
    Set myDestFolder = myInbox.Folders("test")
    Myentryid = objMail.EntryID
     Set objMail = objMail.Move(myDestFolder)

mais il ne faudra pas que le mail soit changé de dossier plus tard !!!

[Dailyplanet]

SUPER et merci Oliv'

J'ai fait quelques tests (non exhaustifs) et tout à l'air de bien fonctionner
Je clos je sujet et te remercie beaucoup

Voici le code complet au cas où ça intéresserai quelqu'un:

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Sub CreationReunion()
'---------------------------------------------------------------------------------------
' Procédure : CreationReunion
' Auteur    : Dolphy35 - http://dolphy35.developpez.com/
' Modifs    : Oliv' & Dailyplanet
' Date      : 16/05/2008
' Détail     : Création d'une nouvelle entrée du calendrier
'---------------------------------------------------------------------------------------
'Déclaration des objets
 
    Dim objOutlook As Outlook.Application
    Dim objReunion As Outlook.AppointmentItem
    Dim objExplorer As Outlook.Explorer
    Dim objSelection As Outlook.Selection
    Dim objMail As Object
    Dim strMail As String
    Dim strSujet As String
    Dim strDate As String
 
    'Instance des Objets
    Set objOutlook = Outlook.Application    'Instance de l'application
    Set objExplorer = objOutlook.ActiveExplorer
    Set objSelection = objExplorer.Selection
    Set objReunion = objOutlook.CreateItem(olAppointmentItem)  'Instance de la nouvelle entrée du calendrier
 
    'Récupère les infos du mail reçu
    For Each objMail In objSelection
        With objMail
            strMail = .SenderEmailAddress
            strSujet = .Subject
            strDate = .ReceivedTime
        End With
    'Déplacement du mail et création du raccourci
    Dim myNameSpace As Outlook.NameSpace
    Dim myInbox As Outlook.MAPIFolder
    Set myNameSpace = objOutlook.GetNamespace("MAPI")
    Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
    Set myDestFolder = myInbox.Folders("test")
    Myentryid = objMail.EntryID
    Set objMail = objMail.Move(myDestFolder)
 
    'définition de la réunion
    With objReunion
        .MeetingStatus = olMeeting
        .Subject = strSujet
        .Location = "Mon Bureau"
        .Recipients.Add (strMail)
        .Body = "Selon votre mail du " + "" + strDate + "." + Chr(13) + "Texte deuxième ligne" + Chr(13) + "" + Chr(13) + ""        .Attachments.Add objMail, olOLE, , objMail.Subject
        .Display
 
        End With
 
    Next
    'Vide des instances
    Set objOutlook = Nothing
    Set objReunion = Nothing
    Set objExplorer = Nothing
    Set objSelection = Nothing
 
End Sub

Heuu...le Tobleron je te l'envoie comment...par mail . Allez, A+

Dailyplanet

[Oliv-]

ok content que ce soit fini

Pour ce que tu sais, si tu veux je peux te transmettre mon adresse postale !!!

A plus

[Dolphy35]

je viens de faire une demande auprès des admins du site pour créer une page pour commande de Tobleron avec comme fournisseur . elle devrait être opérationnelle d'ici la semaine prochaine

je m'occupe du chouchen, galettes et kouign aman

remarque Oliv' est bien placé (pas trop loin de la Belgique )

[Oliv-]

il y a du choix effectivement :
Les bières Blanches
Blanche du Hainaut bio 2,5 € 5,5 ° 25 cl
Hoegaerden 2 € 5 ° 25 cl
Saisie de Quintine 3 € - 33 cl

Les bières de Garde
cochonette 35 € 9 ° 33cl
Moinette Blonde 7 € 8,5 ° 75 cl
Moinette bio 8 € 7,5 ° 75 cl
Moinette blonde 3 € 8,5 ° 25 cl
Moinette bio 3 € 7,5 ° 25 cl
Bière de miel 8 € 8 ° 75 cl
Cordendonck 3,5 € 7,5 ° 33 cl
Karmeliet triple 4 € 8 ° 33 cl
Caracole 3,5 € 8 ° 33 cl
Saxo 3,5 € 8 ° 33 cl
Bush 3 € 12 ° 33 cl
Gouyasse 3 € - 33 cl

Les bières légères
Bel Pils 2 € 5,3 ° 25 cl
Leffe blonde 2,6 € 6,6 ° 33 cl
Quintine blonde 2,7 € - 33 cl
Quintine ambrée 3 € - 33 cl

Les bières légères fruitées
Kriek 3 € 4,5 ° 25 cl
Framboise 3 € 2,5 ° 25 cl
Faro 25 € 4 ° 25 cl

Les Trappistes
Chimay 3,5 € 9 ° 33 cl
Orval 3 € 6,5 ° 33 cl
Duvel 3 € 8,5 ° 33 cl

La GOUYASSE a ma préférence.
Allez je vous met le lien de ce sympathique endroit
http://www.fermedelanciennecure.net/index.asp