Help!! VBA-Outlook appointment! modification, suppression de rdvRésolu

Question

Si quelqu'un &#233;tait en mesure de m'aider, il pourrait m'&#234;tre d'un tr&#232;s grand secours!!
Apr&#232;s avoir r&#233;ussi &#224; ins&#233;rer un rendez vous dans un calendrier Outlook avec ce code sous une interface Access que j'ai cr&#233;e:

Private Sub Command16_Click()

Dim objOutlook As Outlook.Application
Dim apptOutlook As Outlook.AppointmentItem
Set objOutlook = CreateObject("Outlook.Application")
Set apptOutlook = objOutlook.CreateItem(olAppointmentItem)


With apptOutlook
 .start = Date.Value & Space(1) & Hdbt.Value
 .End = Date.Value & Space(1) & Hfin.Value
 .Subject = "r&#233;union"
 .Body = "chose"
 .ReminderSet = True
 .Save
End With

Set apptOutlook = Nothing


End Sub

Je dois offrir la possibilit&#233; dans une interface le moyen de modifier et de supprimer l'un de ces rendez vous. 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

DarkCid · Accepted Answer

Yaoh !

Tout le plaisir fut pour moi

Dans mon cas, cela peut para&#238;tre b&#234;te mais mes variables sont des string ke g construites pour k'elles ressemebles &#224; &#231;a : "jj/mm/aaaa 00:00"

Attention ! Ne met pas les secondes sinon il va geuler.

Sinon, je viens de mettre une source &#224; ce sujet ki s'appelle Outlook : Envoi de mail et ajout, modification et suppression de rdv dans le calendrier, tu pourra aller y jeter un coup d'oeil

DarkCid · Answer

Yaoh ! Dim outlk As Outlook.Application Dim appt As Outlook.AppointmentItem Dim Nom As Outlook.NameSpace Dim Calend As Outlook.Items Set outlk = CreateObject("Outlook.Application") Set Nom = outlk.GetNameSpace("MAPI") Set Calend = Nom.GetDefaultFolder(olFolderCalendar).Items Calend.Sort "[Start]" Calend.IncludeRecurrences = True Set appt = Calend.Find("[Start] >= """ & datedébutrecherche & """ and [Start] <= """ & datefinrecherche & """") While TypeName(appt) <> "Nothing" blabla set appt = calend.findnext Wend dans le blabla de la boucle while, tu as deux choix : si tu veu modifier un rdv dont tu connais le nom, la date... if appt.Subject (ou aut chose, ici je prends l'exemple du texte du rdv) = ce ke tu recherche then appt.subject = nouveau subject appt.save end if si tu veu supprimer if appt.Subject (ou aut chose, ici je prends l'exemple du texte du rdv) = ce ke tu recherche then appt.delete end if Voilà, j'espère t'avoir aider !

BrianBellamy · Answer

Merci!!! Vraiment un grand merci &#224; toi!! Pour un peu, je t'embrasserai mais bon... une poign&#233;e de main suffira je pense 
La commande supprimer marche &#224; merveille mais je voulais te demander une chose pour la modification: la variable "dated&#233;butrecherche", peux tu me donner son contenu parce que apparement, la mani&#232;re dont je lui donne la date ( dated&#233;butrecherche = VBA.Format(Date.Value & Space(1) & HDbt.Value, "Short Date") ) ne fonctionne pas.

Voila j'ose encore te d&#233;ranger..
En tout cas, merci &#233;norm&#233;ment pour le poids que tu m'as d&#233;j&#224; enlev&#233;!!!

BrianBellamy · Answer

Ah.. donc mon probl&#232;me viendrait des secondes... mais malgr&#233; le fait que je ne lui propose dans ma combo box des horaires du type "08:00", "09:00" etc.. lors de la lecture du programme, il convertit ce hh/mm en hh/mm/ss d'apr&#232;s ce que je vois...

DarkCid · Answer

dans ce cas, tu devrais construire ta chaine de caract&#232;re toi-meme, par exemple avec la fonction datepart ki extraie une partie d'une date
Syntaxe = DatePart(constante,Date)

Constante d&#233;finit k'elle partie tu veux :
"yyyy" = ann&#233;e
"m" = mois
"d" = jour
"h" = heur
"n" = minute
"s" = seconde

BrianBellamy · Answer

Pourrais tu être un tout petit peu plus précis s'il te plait.. voici mon code: Dim OlApp As Outlook.Application Dim Nom As Outlook.NameSpace Dim Calend As Outlook.Items Dim Appt As Outlook.AppointmentItem Dim DbtRecherche As Date Dim FinRecherche As Date Set OlApp = CreateObject("Outlook.Application") Set Nom = OlApp.GetNamespace("MAPI") DbtRecherche = Date.Value & Space(1) & HDbt.Value FinRecherche = Date.Value + 1 & Space(1) & Hfin.Value Set Calend = Nom.GetDefaultFolder(olFolderCalendar).Items Calend.Sort "[Start]" Calend.IncludeRecurrences = True Set Appt = Calend.Find("[Start] >= """ & DbtRecherche & """ and [Start] <= """ & FinRecherche & """") While TypeName(Appt) <> "Nothing" If Appt.start = DbtRecherche Then Appt.Display End If Set Appt = Calend.FindNext Wend End Sub A quelle variable suis-je sensé donner la variable DatePart? DbtRecherche et FinRecherche ou HDbt et Hfin? Merci d'avance

DarkCid · Answer

Essaye de mettre tes variables DbtRecherche et FinRecherche en String.
En th&#233;orie (g horreur de cette expression mais bon), il ne devrait pas de remttre les secondes.

Sinon, pour te donner un exemple de comment utiliser datepart :

DbtRecherche = DatePart("d",Date.Value) & "/" & DatePart("m",Date.Value) & "/" & DatePart("yyyy",Date.Value) & " " & DatePart("h",HDbt.Value) & ":" & DatePart("n",HDbt.Value)

La partie en orange, c ke je suis pas s&#251;r &#224; 100% ke datepart marche avec une variable juste heure, &#224; tester.

Mais bon, ne t'en fait pas, depuis ke l'informatique existe, les dates ont tjrs fait chier nous autres programmeurs et c'est pas demain la veille ke sa changera. Tout le monde a un jour eu une crise de nerf face &#224; une date (moi par exemple d&#232;s ke je vois la date d'anniversaire de ma copine, hop crise de nerf pour trouver un cadeau... enfin l&#224; je crois ke je m'&#233;carte du sujet )

BrianBellamy · Answer

LOL! effectivement les dates sont un réel problème mais cela ne l'est plus pour mon programme désormais!! encore merci!!! voici le code après changement: Set OlApp = CreateObject("Outlook.Application") Set Nom = OlApp.GetNamespace("MAPI") DbtRecherche = DatePart("d", DDate.Value) & "/" & DatePart("m", DDate.Value) & "/" & DatePart("yyyy", DDate.Value) & " " & DatePart("h", HDbt.Value) & ":" & DatePart("n", HDbt.Value) FinRecherche = DatePart("d", DDate.Value) & "/" & DatePart("m", DDate.Value) & "/" & DatePart("yyyy", DDate.Value) & " " & DatePart("h", HFin.Value) & ":" & DatePart("n", HFin.Value) Set Calend = Nom.GetDefaultFolder(olFolderCalendar).Items Calend.Sort "[Start]" Calend.IncludeRecurrences = True Set Appt = Calend.Find("[Start] >= """ & DbtRecherche & """ and [Start] <= """ & FinRecherche & """") DbtRecherche = DDate.Value & Space(1) & HDbt.Value FinRecherche = DDate.Value & Space(1) & HFin.Value (obligatoire, sinon il me remet un type mismatch avec le "Appt.start" d'en dessous) While TypeName(Appt) <> "Nothing" If Appt.start <> DbtRecherche Then Appt.Display End If Set Appt = Calend.FindNext Wend End Sub Dis moi, tu ne saurais pas comment envoyer les demandes sur un autre calendrier que celui par défaut par hasard?? parce que ce sera probablement le prochain sujet d'un de mes prochains messages sur le forum! Merci beaucoup et j'espère qu'une prochaine fois, j'arriverais a te rendre l'appareil

DarkCid · Answer

Malheureusment non.
Mais si tu trouves fait mi signe, sa m'int&#233;resse, meme si mon probl&#232;me actuel n'est pas de faire des modif sur un aut calendrier, mais carr&#233;ment sur un calendrier d'un autre poste de mon r&#233;seau !!

BrianBellamy · Answer

Ah d'accord... eh bien bon courage &#224; toi! Je ne t'oublie pas si jamais j'ai la moindre piste, je t'enverrai ca(dans un msg, forum...)

Bonne continuation!!

Help!! VBA-Outlook appointment! modification, suppression de rdv

10 réponses

Discussions similaires