Access-3stone - Forum - Questions générale

Forum - Questions générale - Sujet n°726

1 membre

Connectés : ( personne )

- La Charte du Forum

Forum - Forum
- Questions générale

Sujet n° 726

outlook

le 17/06/2014 : 22:47
par Nico

Anonyme

visiteur

Bonjour 3Stone

j'ai testé ton code en le copiant sur l'évènement click d'un bouton d'un formulaire

et lorsque je lance le code j'ai l'erreur sur la ligne surlignée en jaune m'indiquant "Incompatibilité de type"? - (outlook est ouvert)

pourquoi cette erreur?

comment ton code fait-il pour connaître le fichier outllok à lire?

merci

Nico

Dim Ol_App As New Outlook.Application
Dim Ol_Mapi As Outlook.NameSpace
Dim Ol_Folder As Outlook.MAPIFolder
Dim Ol_Items As Outlook.Items
Dim Ol_Appointment As Outlook.AppointmentItem

Set Ol_Mapi = Ol_App.GetNamespace("MAPI")
Set Ol_Folder = Ol_Mapi.GetDefaultFolder(olFolderCalendar)
Set Ol_Items = Ol_Folder.Items

For Each Ol_Appointment In Ol_Items

With Ol_Appointment

MsgBox "Rendez-Vous : " & .subject & vbCrLf _
           & "Début : " & .Start & vbCrLf _
           & "Fin : " & .End & vbCrLf _
           & "Convoqués : " & .RequiredAttendees & vbCrLf _
           & "Invités : " & .OptionalAttendees & vbCrLf _
           & "Lieu : " & .Location

End With

Next Ol_Appointment

Set Ol_Appointment = Nothing
Set Ol_Items = Nothing
Set Ol_Folder = Nothing
Set Ol_Mapi = Nothing
Set Ol_App = Nothing

Réponse n° 1 -------- le 19/06/2014 : 01:56 par 3Stone Administrateur	Bonjour, Tu as compilé le code ? pas d'erreur ? Ceci dit, c'est un "vieux" code qui date de WinXp et comme je n'utilise pas Outlook... Cordialement, Pierre (3Stone)