Access-Outlook:Envoi de données dans un calendrier autre que le calendrier par dRésolu

Question

Une aide serait la bienvenue... Je dois cr&#233;er plusieurs calendriers Outlook dans lesquels je dois &#234;tre capable d'entrer des rendez vous.
L'envoi de rendez vous est r&#233;alis&#233; dans une interface Access:

Private Sub CmdValid_Click()


Dim objOutlook As Outlook.Application
Dim apptOutlook As Outlook.AppointmentItem
Set objOutlook = CreateObject("Outlook.Application")
Set apptOutlook = objOutlook.CreateItem(olAppointmentItem)


With apptOutlook
 .start = DDate.Value & Space(1) & HDbt.Value
 .End = DDate.Value & Space(1) & HFin.Value
 .Subject = "r&#233;union"
 .Body = "chose"
 .ReminderSet = True
 .Save
End With


Set apptOutlook = Nothing


End Sub

Ce qui me manque, c'est le moyen de l'envoyer dans un autre calendrier que celui par d&#233;faut.
S'il vous plait, m&#234;me si vous n'&#234;tes pas sur d'avoir la r&#233;ponse, laissez moi quelques pistes, adresses internet ou bout de code susceptible d'avoir un lien avec ce que je fais.

Merci d'avance.

BrianBellamy · Accepted Answer

J'ai trouv&#233; la r&#233;ponse seul:

Private Sub CmdValid_Click()


Dim objOutlook As Outlook.Application
Dim apptOutlook As Outlook.AppointmentItem
Dim Nom As Outlook.NameSpace
Dim DossierCal As Outlook.MAPIFolder
Dim Cal As Outlook.Items


Set objOutlook =  CreateObject("Outlook.Application")
Set Nom = objOutlook.GetNamespace("MAPI")
Set DossierCal = Nom.GetDefaultFolder(olFolderCalendar)


Set Cal = DossierCal.Folders(NomSalle.Value).Items
("NomSalle.Value" est le nom d'un calendrier situ&#233; en sous dossier du calendrier par d&#233;faut)


 Set apptOutlook = Cal.Add 


With apptOutlook
 .start  = DDate.Value & Space(1) & HDbt.Value
 .End =  DDate.Value & Space(1) & HFin.Value
 .Subject = "r&#233;union"
 .Body = "chose"
 .ReminderSet = True
 .Save
End With


 MsgBox "rendez vous pris!", vbOKOnly 


Set apptOutlook  = Nothing


End Sub

Voila, en esp&#233;rant que ca serve &#224; quelqu'un.. sur ce..
A bient&#244;t

Access-Outlook:Envoi de données dans un calendrier autre que le calendrier par d

1 réponse

Discussions similaires