Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic calendrier outlook

calendrier outlook

2 réponses
Avatar
manu
bonjour
j'ai cr=E9e dans outlook plusieurs calendrier : C1,C2,C3 ...
je voudrais cr=E9er avec vb un rendez vous dans un de ces=20
calendriers....
j'utilise =20

Dim objOutlook As Outlook.Application
Dim apptOutlook As Outlook.AppointmentItem
Set objOutlook =3D CreateObject("Outlook.Application")
Set apptOutlook =3D objOutlook.CreateItem(olAppointmentItem)
With apptOutlook
.Start =3D Date & " 9:00 am"
.Duration =3D 15
.Subject =3D "toto"
.Body =3D "titi"
.ReminderMinutesBeforeStart =3D 10
.ReminderSet =3D True
.Save
End With
Set apptOutlook =3D Nothing

le pb c'est que mon rdv ce cr=E9e dans le calendrier par=20
defaut..; je vois pas comment specifier le calendrier (ex=20
C1) dans lequel je veux creer ce rendez vous...

Merci d'avance pour vos reponses
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Je ne peux pas tester sur vb, mais tu dois pouvoir renseigner le "dossier"
en utilisant les méthodes GetNameSpace et GetFolderFromID
Dim EspaceNom As objOutlook.Namespace
Set EspaceNom = objOutlook.GetNamespace("MAPI")
Set objOutlook.ActiveExplorer.CurrentFolder = _
EspaceNom.GetFolderFromID("TOTO")

Cordialement
Pascal

"manu" a écrit dans le message de
news:0b7f01c49680$9e23e7b0$
bonjour
j'ai crée dans outlook plusieurs calendrier : C1,C2,C3 ...
je voudrais créer avec vb un rendez vous dans un de ces
calendriers....
j'utilise

Dim objOutlook As Outlook.Application
Dim apptOutlook As Outlook.AppointmentItem
Set objOutlook = CreateObject("Outlook.Application")
Set apptOutlook = objOutlook.CreateItem(olAppointmentItem)
With apptOutlook
.Start = Date & " 9:00 am"
.Duration = 15
.Subject = "toto"
.Body = "titi"
.ReminderMinutesBeforeStart = 10
.ReminderSet = True
.Save
End With
Set apptOutlook = Nothing

le pb c'est que mon rdv ce crée dans le calendrier par
defaut..; je vois pas comment specifier le calendrier (ex
C1) dans lequel je veux creer ce rendez vous...

Merci d'avance pour vos reponses
Avatar
manu
merci pour ta reponse.
mais ca fait pas ce que je veux : le calendrier dans
lequel je veux ajouter mon rdv est bien selectionner, mais
mon rdv ce crée quand meme dans le calendrier par defaut...

-----Message d'origine-----
Bonjour
Je ne peux pas tester sur vb, mais tu dois pouvoir


renseigner le "dossier"
en utilisant les méthodes GetNameSpace et GetFolderFromID
Dim EspaceNom As objOutlook.Namespace
Set EspaceNom = objOutlook.GetNamespace("MAPI")
Set objOutlook.ActiveExplorer.CurrentFolder = _
EspaceNom.GetFolderFromID("TOTO")

Cordialement
Pascal

"manu" a écrit dans


le message de
news:0b7f01c49680$9e23e7b0$
bonjour
j'ai crée dans outlook plusieurs calendrier : C1,C2,C3 ...
je voudrais créer avec vb un rendez vous dans un de ces
calendriers....
j'utilise

Dim objOutlook As Outlook.Application
Dim apptOutlook As Outlook.AppointmentItem
Set objOutlook = CreateObject("Outlook.Application")
Set apptOutlook = objOutlook.CreateItem(olAppointmentItem)
With apptOutlook
.Start = Date & " 9:00 am"
.Duration = 15
.Subject = "toto"
.Body = "titi"
.ReminderMinutesBeforeStart = 10
.ReminderSet = True
.Save
End With
Set apptOutlook = Nothing

le pb c'est que mon rdv ce crée dans le calendrier par
defaut..; je vois pas comment specifier le calendrier (ex
C1) dans lequel je veux creer ce rendez vous...

Merci d'avance pour vos reponses


.