Discussion :

[Daniel MOREAU]

Bonjour à tous,

J'ai consulté les cours et tutoriels avec beaucoup d'intérêts et j'ai duplicopier le module de "macno" du 25/03/2005 qui m'interresse plus particulièrement.

Voici 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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Public Function CreerRendezVous(PCalendrier As String, _
 PDate As String, _
 PHeure As String, _
 PDuree As Integer, _
 PSubject As String, _
 PNotes As String, _
 PLieu As String, _
 Optional PMinutesRappel As Integer = 0)
 
On Error GoTo Add_Err
 
Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim olns As Outlook.NameSpace
Dim MycalendarFolder As Outlook.MAPIFolder
Dim MyFolder As Outlook.Items
 
Set objOutlook = CreateObject("Outlook.Application")
Set olns = objOutlook.GetNamespace("MAPI")
Set MycalendarFolder = olns.GetDefaultFolder(olFolderCalendar)
'Selectionne le calendrier
'Selectionne le calendrier
If PCalendrier = "" Then
Set MyFolder = MycalendarFolder.Items
Else
Set MyFolder = MycalendarFolder.Folders(PCalendrier).Items
End If
Set objAppt = MyFolder.Add
'Cree le rendez vous
With objAppt
 
  If PDuree > 0 Then
  .Start = PDate & " " & PHeure
  .Duration = PDuree
  Else
  .Start = PDate
  .AllDayEvent = True
  End If
  .Subject = PSubject
  .Body = PNotes
  .Location = PLieu
  'Ajoute le rappel
  If PMinutesRappel > 0 Then
    .ReminderMinutesBeforeStart = PMinutesRappel
    .ReminderSet = True
  End If
  'Sauvegarde et ferme
  .SAVE
  .Close (olSave)
End With
'Libération des variables.
Set objAppt = Nothing
Set objOutlook = Nothing
MsgBox "Rdv ajouté!"
Exit Function
'Gere les erreurs
Add_Err:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
End Function

Je suis débutant et j'avoue que j'ai beaucoup de mal à m'en sortir.

Dans un premier temps, je voudrai juste tester ce code.

J'ai essayé de la façon suivante, mais j'ai un message d'erreur 'Incompatibilité de type - erreur 13'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Outlook()
 
 PCalendrier = "Calendrier Isabelle"
 PDate = Date
 PHeure = Time()
 PDuree = "15"
 PSubject = "Essai"
 PNotes = "Test"
 PLieu = "Paris"
  CreerRendezVous "PCalendrier", "PDate", "PHeure", "PDurée", "PSubject", "PNotes", "PLieu", "PMinutesRapel"
 
End Sub

Pouvez-vous m'aider à résoudre ce problème

Merci

Daniel

[cafeine]

Hello,

il y a confusion entre variable et valeur ...

Code :

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

  CreerRendezVous "PCalendrier", "PDate", "PHeure", "PDurée", "PSubject", "PNotes", "PLieu", "PMinutesRapel"

Ne pas mettre de double quotes (") lorsqu'on utilise des variables, sinon tout sera considéré comme du texte.

[Tofalu]

La réponse figure dans nos pages sources

http://access.developpez.com/sources

section automation

En outre, là tu confonds variable et valeur

[Daniel MOREAU]

Bonjour,

Je suis confu, mais j'ai encore un message d'erreur "Erreur de compilation - type d'argument BYREF imcompatible".

Je viens de passer en revu les cours et tutoriels, mais j'avoue que sans votre aide je vais avoir du mal à trouver la solution.

Qu'est ce qui ne va pas ? :

Merci à vous

Daniel

[Daniel MOREAU]

Bonjour à tous,

Je viens de tester à nouveau le code et maintenant j'ai ce message d'erreur :

Code :

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

error-2147221233  Impossible trouver un objet

J'ai bien cocher la bibliothèque 'Microsoft Outlook 9.0 Objet Library'

Quelqu'un a-t-il une idée ?

Merci à vous

Daniel

[Tofalu]

Aucune idée car le code des pages sources semble bien fonctionner