Discussion :

[gaet76]

Bonjour le forum,

Je me lance dans la programmation d'outlook et je bloque déjà et je ne trouve aucune réponse sur google qui m'aide.

Ce que je veux faire c'est:

• A l'ouverture d'outlook qu'il vérifie si le lendemain j'ai une réunion qui s'appel "Futsal ..."

• Si c'est le cas je veux récupérer l'adresse mail des personnes à qui j'ai envoyé la réunion

• pour ensuite les mettre en tant que destinataire d'un mail qui leur rappel qu'il y a un futsal le lendemain (je suis un peu leur maman et si je ne les préviens pas ils oublient leurs affaires

Et pour le coup mon problème se trouve au moment de récupérer l'adresse mail des participants.

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
Private Sub Application_Startup()
 
Dim olApp As Outlook.Application
Dim olMail As Outlook.MailItem
Dim olAppointment As Outlook.AppointmentItem
Dim namespaceOutlook As Outlook.NameSpace
Dim DossierCalendrier As Outlook.MAPIFolder
Dim sFilter As String
 
Set olApp = CreateObject("Outlook.application")
Set namespaceOutlook = olApp.GetNamespace("MAPI")
Set DossierCalendrier = namespaceOutlook.GetDefaultFolder(olFolderCalendar)
 
sFilter = "[subject] = Futsal le " & Format(Date + 1, "dddd d mmmm yyyy")
 
Set olAppointment = DossierCalendrier.Items.Find(sFilter)
Set olMail = olApp.CreateItem(olMailItem)
 
If Not olAppointment Is Nothing Then
    With olMail
        .To = olAppointment.Recipients
        .Subject = "Rappel futsal"
        .Body = "Bonjour messieurs," & Chr(10) & "Je vous rappel que demain il y a foot, n'oubliez pas vos affaires :)"
        .Display
        .Send
    End With
End If
 
olApp.Quit
 
Set olMail = Nothing
'Set olApp = Nothing
Set olAppointment = Nothing
 
End Sub

Merci de votre aide

[Oliv-]

Bonsoir,

Tu dois pouvoir utiliser

Code :

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

Set olMail= myItem.Actions("Reply to All").Execute

à la place de

Code :

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

Set olMail = olApp.CreateItem(olMailItem)

et supprimer le .to=...

[gaet76]

Oliv-,

Merci pour ton aide.

Par contre le MyItem je le déclare où et comment, parce que là la macro bloque et me dit "object requis"

[Oliv-]

OUPS FAUT REMPLACER MyItem par olAppointment

[gaet76]

Oliv,

Ca bloque toujours sur cette même ligne même en faisant le remplacement de MyItem par olAppointment.

Maintenant ça me met le message ci dessous:
"Erreur d'exécution '91':
Variable objet ou variable de bloc with non définie"

Mais grace à ton aide j'ai trouvé quelquechose sur l'aide office qui me dis de faire comme suit :

Code :

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

1
2
myItem = CreateItem(olMailItem) 
 Set olMail = myItem.Actions("ReplyAll").Execute

Mais ca ne marche pas non plus (Je l'ai adapté à mon cas ..., enfin j'ai essayé)

Je pense que je ne suis pas loin mais ca bloque toujours à "Set olMail=..." :

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
Private Sub Application_Startup()
 
Dim olApp As Outlook.Application
Dim MyItem As Outlook.MailItem
Dim olMail As Outlook.MailItem
Dim olAppointment As Outlook.AppointmentItem
Dim namespaceOutlook As Outlook.NameSpace
Dim DossierCalendrier As Outlook.MAPIFolder
Dim sFilter As String
 
Set olApp = CreateObject("Outlook.application")
Set namespaceOutlook = olApp.GetNamespace("MAPI")
Set DossierCalendrier = namespaceOutlook.GetDefaultFolder(olFolderCalendar)
 
sFilter = "[subject] = Futsal le " & Format(Date + 5, "dddd d mmmm yyyy")
 
Set olAppointment = DossierCalendrier.Items.Find(sFilter)
Set MyItem = olApp.CreateItem(olMailItem)
Set olMail = MyItem.Actions("ReplyAll").Execute
 
If Not olAppointment Is Nothing Then
    With olMail
        '.To = olAppointment.Recipients
        .Subject = "Rappel futsal"
        .Body = "Bonjour messieurs," & Chr(10) & "Je vous rappel que demain il y a foot, n'oubliez pas vos affaires :)"
        .Display
        .Send
    End With
End If
 
'olApp.Quit
 
Set olMail = Nothing
Set olApp = Nothing
Set olAppointment = Nothing
 
End Sub

C'est peut être dans mes déclarations que ce n'est pas bon mais je ne sais pas quoi changer.

[Oliv-]

Bonjour
il faut "juste" le mettre en français
mais en repartant du code initial

Code :

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

1
2
 
Set olMail= olAppointment.Actions("Répondre à tous").Execute

VOICI TES ERREURS EXPLIQUEES

Code :

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

1
2
3
Set olAppointment = DossierCalendrier.Items.Find(sFilter) ' TU TROUVES TON RDV = OK 
Set MyItem = olApp.CreateItem(olMailItem)                              ' TU CREES UN MESSAGE VIDE = KO 
Set olMail = MyItem.Actions("ReplyAll").Execute

' TU FAIS REPONDRE A TOUS A PARTIR DU MESSAGE VIDE = KO

[gaet76]

MA-GNI-FI-QUE

Merci beaucoup ça marche nickel.

Effectivement c'était pas très logique ce que j'avais fait.

Encore merci Oliv.