Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Résolu : Ajouter des rendez-vous à Outlook sans utiliser la référence

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

Gelinotte

XLDnaute Accro
Bonjour,

Dans une autre discussion, tototiti2008 nous a aimablement donné le code pour envoyer un fichier attaché par courriel via Outlook sans être obligé d'avoir en référence "Microsoft Outlook xx.x Object Library" dans VBE de la version de notre suite Office.

Serait-il possible d'inscrire des rendez-vous dans Outlook sans utiliser cette même référence dans vbe ?

Merci de votre aide

G
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Ajouter des rendez-vous à Outlook sans utiliser la référence

Bonjour,

Malheureusement, dans le lien source de la fonction, il y ait mentionné : "Cette fonction crée un rendez vous dans un calendrier Outlook. Elle nécessite la référence Microsoft Outlook Object Library"

G
 
Vote positif 0 Vote négatif
Re : Ajouter des rendez-vous à Outlook sans utiliser la référence

RE


Pour ne pas avoir à se soucier des références des objets en général, faire ainsi

VB: 
Dim objOutlook 'As Outlook.Application 
Dim objAppt 'As Outlook.AppointmentItem 
Dim olns 'As Outlook.NameSpace
Dim MycalendarFolder 'As Outlook.MAPIFolder
Dim MyEssaiFld 'As  Outlook.MAPIFolder 
Dim MyFolder 'As Outlook.Items
Set  objOutlook = CreateObject("Outlook.Application")
Mais on perd l'avantage liée à la référence
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ajouter des rendez-vous à Outlook sans utiliser la référence

Bonjour Gelinotte, Bonjour Staple,

Les "Objets" Outlook, j'ai l'habitude de les déclarer "As Object", mais l'écriture proposée par Staple doit fonctionner
Il faut aussi remplacer les constantes outlook par leurs valeurs (constantes dont le nom commence par "ol", ici olAppointmentItem)
Et on a vu sur l'autre fil, chose que je ne savais pas, que si des méthodes sont appelées avec les arguments nommés, il vaut mieux enlever les noms des arguments sinon ça risque de planter, ce qui ne te concerne pas dans ce fil

Donc, je récapitule :
chercher les valeurs des constantes outlook utilisées dans le code et les remplacer par leurs valeurs
enlever les noms des arguments nommés dans les méthodes
changer la déclaration des objets Outlook en "As Object"
initialiser l'objet application Outlook comme ça :

Set objOutlook = CreateObject("Outlook.Application")
Cliquez pour agrandir...

Et évidement, décocher la référence Outlook
normalement ça devrait rouler...
 
Vote positif 0 Vote négatif
Re : Ajouter des rendez-vous à Outlook sans utiliser la référence

Bonjour,

Code: 
Sub InscriptionCalendrier()

Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.application")

Dim objOutlookAppt As Object
Set objOutlookAppt = objOutlook.Createitem(1)
      
      objOutlookAppt.Start = Sheets("Feuil1").Cells(1, 1) & " 00:00"
      objOutlookAppt.Subject = Sheets("Feuil1").Cells(1, 2)
      objOutlookAppt.AllDayEvent = True ' Toute la journée oui/non
      objOutlookAppt.ReminderSet = False ' S'il y a un rappel
      objOutlookAppt.Categories = "Catégorie Bleue"
      objOutlookAppt.Save
End Sub

Merci énormément à vous tous de votre intérêt dans les deux fils concernant la gestion de Outlook via Excel.
Ça m'a motivé à bûcher et, enfin, ça fonctionne.
Je peux ajouter des rendez-vous dans Outlook sans avoir la référence "Microsoft Outlook xx.x Object Library".
Ce qui permet la transportabilité de mon fichier indifféremment entre Office 2010 et Office 2007.

Merci encore 😎

Note : On peut envoyer des courriels sans que Outlook soit ouvert; il s'ouvre en arrière plan et se referme dès que le courriel est parti.

Note2 : Mais avec ce code, pour que des rendez-vous s'inscrivent, Outlook doit être ouvert.

Geli
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2016 Mise à jour calendrier partagé Outlook depuis Excel
Réponses
0
Affichages
2 K
roby
  • Question Question
XL 2013 [Résolu] grâce à vous tous]Ajouter des cellules sur une partie de ligne
Réponses
7
Affichages
1 K
bellenm
M
  • Question Question
XL 2013 [VBA] Envoyer un mail avec Outlook sans Object Library
Réponses
1
Affichages
2 K
Mjgreg67
M
S
  • Question Question
Demande de rendez-vous Outlook
Réponses
0
Affichages
983
So22
S
C
  • Question Question
Librairie invalide / library invalid - référence Objet : mise-à-jour Office et .exd
Réponses
1
Affichages
2 K
tototiti2008
M
[REF] Wiki 3 de MichelXld (Piloter d'autres applications depuis Excel)
Réponses
0
Affichages
80 K
MichelXld
M
M
[REF] Wiki Page 7 de MichelXld
Réponses
0
Affichages
51 K
MichelXld
M
M
[REF] Wiki Page 8 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
M
[REF] Wiki 6 de MichelXld (Doublons, Tris, Filtres, Variables, Fichiers fermés, Acces
Réponses
0
Affichages
68 K
MichelXld
M
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
35 K
MichelXld
M
M
[REF] Wiki Page 9 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…