[jldancet]

Bonjour,

Je n'arrive pas à trouver la liste des champs complete des infos u calendrier Outlook qui doit etre dans olAppointmentItem d'après ce que j'ai compris.

SVP, y-aurai-t-il sur le forum quelqu'un qui puisse me diriger.

Un tout grand merci d'avance


Jean-Louis

[MichelXld]

bonjour Jean-Louis

voici la liste des propriétés pour l'objet AppointmentItem


Actions
AllDayEvent
Application
Attachments
BillingInformation
Body
BusyStatus
Categories
Class
Companies
ConferenceServerAllowExternal
ConferenceServerPassword
ConversationIndex
ConversationTopic
CreationTime
DownloadState
Duration
End
EntryID
FormDescription
GetInspector
Importance
InternetCodepage
IsConflict
IsOnlineMeeting
IsRecurring
ItemProperties
LastModificationTime
Links
Location
MarkForDownload
MeetingStatus
MessageClass
Mileage
NetMeetingAutoStart
NetMeetingDocPathName
NetMeetingOrganizerAlias
NetMeetingServer
NetMeetingType
NetShowURL
NoAging
OptionalAttendees
Organizer
OutlookInternalVersion
OutlookVersion
Parent
Recipients
RecurrenceState
ReminderMinutesBeforeStart
ReminderOverrideDefault
ReminderPlaySound
ReminderSet
ReminderSoundFile
ReplyTime
RequiredAttendees
Resources
ResponseRequested
ResponseStatus
Saved
Sensitivity
Session
Size
Start
Subject
UnRead
UserProperties



et la liste des méthodes

ClearRecurrencePattern, méthode
Close, méthode
Copy, méthode
Delete, méthode
Display, méthode
ForwardAsVcal, méthode
GetRecurrencePattern, méthode
Move, méthode
PrintOut, méthode
Respond, méthode
Save, méthode
SaveAs, méthode
Send, méthode
ShowCategoriesDialog, méthode



bon apres midi
MichelXld

[jldancet]

Merci Michel
Super sympa, je vais pouvoir retrousser mes manches.
Question indiscrete : où as-tu piqué l'information ?

Salutations
Jean-Louis

[MichelXld]

bonsoir

tu vas dans Outlook
Menu Outils
Macro
Visual Basic Editor
Insertion Module
tu y colles par exemple

Dim MyItem As AppointmentItem

Place le curseur sur le mot AppointmentItem , et appuye sur la touche F1
Sélectionne le 1er item dans la boite de dialogue et clique sur le bouton "Aide"
En haut de la page d'aide , tu as la liste des méthodes et propriétés


bonne soiree
MichelXld

[jldancet]

Posté par MichelXld

bonjour Jean-Louis

voici la liste des propriétés pour l'objet AppointmentItem


Actions
AllDayEvent
Application
Attachments
BillingInformation
Body
BusyStatus
Categories
Class
Companies
ConferenceServerAllowExternal
ConferenceServerPassword
ConversationIndex
ConversationTopic
CreationTime
DownloadState
Duration
End
EntryID
FormDescription
GetInspector
Importance
InternetCodepage
IsConflict
IsOnlineMeeting
IsRecurring
ItemProperties
LastModificationTime
Links
Location
MarkForDownload
MeetingStatus
MessageClass
Mileage
NetMeetingAutoStart
NetMeetingDocPathName
NetMeetingOrganizerAlias
NetMeetingServer
NetMeetingType
NetShowURL
NoAging
OptionalAttendees
Organizer
OutlookInternalVersion
OutlookVersion
Parent
Recipients
RecurrenceState
ReminderMinutesBeforeStart
ReminderOverrideDefault
ReminderPlaySound
ReminderSet
ReminderSoundFile
ReplyTime
RequiredAttendees
Resources
ResponseRequested
ResponseStatus
Saved
Sensitivity
Session
Size
Start
Subject
UnRead
UserProperties



et la liste des méthodes

ClearRecurrencePattern, méthode
Close, méthode
Copy, méthode
Delete, méthode
Display, méthode
ForwardAsVcal, méthode
GetRecurrencePattern, méthode
Move, méthode
PrintOut, méthode
Respond, méthode
Save, méthode
SaveAs, méthode
Send, méthode
ShowCategoriesDialog, méthode



bon apres midi
MichelXld

Un grand merci, ca marche, "mais" petit probleme, il y a deux champs catégories dans outlook, je ne peux en modifier qu'un seul, celui du bas droit, celui nommé "Catégorie du calendrier" n'est pas atteignable.
encore merci d'avance.

Amicalement et bon week end
Jean-louis

[MichelXld]

bonjour Jean-Louis

tu peux utiliser

 
Sub NouveauRDV_Calendrier()
'nécéssite d'activer la référence Microsoft Outlook 10.0 Object Library
Dim myOlApp As New Outlook.Application
Dim MyItem As Outlook.AppointmentItem
 
Set MyItem = myOlApp.CreateItem(olAppointmentItem)
 
With MyItem
    .MeetingStatus = olMeeting
    .Subject = "le forum xld"
    .Body = "...description ...."
    .Location = "sur le chat"
    .Start = #8/7/2006 9:30:00 PM#     ' Attention : format mois/jours/année
    .Duration = 30 'minutes
    .Categories = "Amis"
    .Save
End With
 
Set myOlApp = Nothing
End Sub

(testé avec Office2002)


bon apres midi
MichelXld