OVH Cloud OVH Cloud

Ouverture Outlook depuis Acces

6 réponses
Avatar
Alain TEYSSEDRE
Bonjour

Je suis au départ sous ACCESS 2000 - Je souhaite copier une valeur dans le
clipboard
puis ouvrir Le calendrier Outlook ( ou toute l'appli Outlook) pour pouvoir
faire un copier
(manuel) de ma valeur.

Problème : comment rendre la fenetre Outlook visible ?

ps mon code Acces fonctionne avec Get ou Create si Outlook n'est pas ouvert.

Dim OL_App As Outlook.Application

Set OL_App = GetObject(, "Outlook.application")

merci pour votre aide

Alain

6 réponses

Avatar
Alain TEYSSEDRE
Bon pour l'instant j'avance tout seul ...je croyais qu'il y avait des
experts Outlook sur ce Forum ?
(pour info j'ai aussi essayé le forum Access qui m'a indiqué des pistes mais
qui ne maitrise pas
totalement Outlook)

Je suis arrivé à rendre ma fenetre visible avec le code suivant:

Dim OlApp As Outlook.Application
Dim OlMapi As Outlook.NameSpace
Dim OlFolder As Outlook.MAPIFolder

Set OlApp = GetObject(, "Outlook.application")

Set OlMapi = OlApp.GetNamespace("MAPI")
Set OlFolder = OlMapi.GetDefaultFolder(olFolderCalendar)
OlFolder.Display


Ce que je ne comprends pas c'est pourquoi il m'ouvre une autre fenetre
outlook avec le Calendar ?

en fait j'aimerai qu'il utilise l'Outlook qui est déja ouvert et qu'il
affiche la fenetre Calendar dans l'Outloo déja ouvert .

merci pour votre aide

@+
Alain


"Alain TEYSSEDRE" a écrit dans le
message de news:
Bonjour

Je suis au départ sous ACCESS 2000 - Je souhaite copier une valeur dans le
clipboard
puis ouvrir Le calendrier Outlook ( ou toute l'appli Outlook) pour pouvoir
faire un copier
(manuel) de ma valeur.

Problème : comment rendre la fenetre Outlook visible ?

ps mon code Acces fonctionne avec Get ou Create si Outlook n'est pas
ouvert.


Dim OL_App As Outlook.Application

Set OL_App = GetObject(, "Outlook.application")

merci pour votre aide

Alain




Avatar
Anor
Bonjour Alain

Alain TEYSSEDRE :

| Ce que je ne comprends pas c'est pourquoi il m'ouvre une autre fenetre
| outlook avec le Calendar ?
|
| en fait j'aimerai qu'il utilise l'Outlook qui est déja ouvert et qu'il
| affiche la fenetre Calendar dans l'Outloo déja ouvert .
|

Effectivement, Automation ne sait pas utiliser une instance d'Outlook
qu'il n'a pas ouverte lui-même.

Il va falloir se replonger dans la doc pour comprendre la différence entre
les méthodes GetObject et CreateObject, outre le fait que :

createobject crée une instance à condition que outlook soit déjà ouvert
tandis que
getobject refusera de s'exécuter si outlook est fermé.

Essaye ceci pour afficher un message,
peut-être que tu arriveras à détourner le code pour faire ce que tu souhaites.

Sub test()
Dim OlApp As Outlook.Application
Set OlApp = GetObject(, "Outlook.application")
OlApp.CreateItem(olMailItem).display
Set OlApp = Nothing
End Sub
--
à+
Arnaud
--------------------------------------------------
Access Memorandum - http://memoaccess.free.fr
## Réponses souhaitées sur ce forum, merci. ##
--------------------------------------------------
Avatar
Alain TEYSSEDRE
Bonjour Arnaud

Comme tu vois j'arpente les newsgroup ...

Finalement je suis arrivé à ouvrir mon Calendar (c'est ce que je souhaitais)
et effectivement que je fasse
Create ou Get c'est pareil (comme tu disais Automation ne sait pas utiliser
l'instance active) ...
donc j'ai le code suivant:

Dim OlApp As Outlook.Application
Dim OlMapi As Outlook.NameSpace
Dim OlFolder As Outlook.MAPIFolder

Set OlApp = Outlook.Application '
Set OlMapi = OlApp.GetNamespace("MAPI")
Set OlFolder = OlMapi.GetDefaultFolder(olFolderCalendar)
OlFolder.Display

Je te rappelle que mon objectif c'est copier une valeur dans le clipboard
pour
la coller dans le Calendar Outlook.
Ce qui reste incomprehensible pour moi c'est que parfois ça marche
(j'arrive à la copier la valeur)
parfois ça ne marche pas (je n'ai plus la fonction coller accessible dans
Outlook) et impossible
d'en détecter la raison.

si tu as des idées ...

@+

Alain



"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de
news:3fbe648a$0$28636$
Bonjour Alain

Alain TEYSSEDRE :

| Ce que je ne comprends pas c'est pourquoi il m'ouvre une autre fenetre
| outlook avec le Calendar ?
|
| en fait j'aimerai qu'il utilise l'Outlook qui est déja ouvert et qu'il
| affiche la fenetre Calendar dans l'Outloo déja ouvert .
|

Effectivement, Automation ne sait pas utiliser une instance d'Outlook
qu'il n'a pas ouverte lui-même.

Il va falloir se replonger dans la doc pour comprendre la différence entre
les méthodes GetObject et CreateObject, outre le fait que :

createobject crée une instance à condition que outlook soit déjà ouvert
tandis que
getobject refusera de s'exécuter si outlook est fermé.

Essaye ceci pour afficher un message,
peut-être que tu arriveras à détourner le code pour faire ce que tu
souhaites.


Sub test()
Dim OlApp As Outlook.Application
Set OlApp = GetObject(, "Outlook.application")
OlApp.CreateItem(olMailItem).display
Set OlApp = Nothing
End Sub
--
à+
Arnaud
--------------------------------------------------
Access Memorandum - http://memoaccess.free.fr
## Réponses souhaitées sur ce forum, merci. ##
--------------------------------------------------




Avatar
DanRod
Bon pour l'instant j'avance tout seul ...je croyais qu'il y avait des
experts Outlook sur ce Forum ?



----> Bah non, on t'attendait justement....
Ici, il n'y a pas d' "EXPERTS", juste des bénévoles que s'entre-aident.
Daniel

Avatar
Alain TEYSSEDRE
Salut Dan


----> Bah non, on t'attendait justement....
Ici, il n'y a pas d' "EXPERTS", juste des bénévoles que s'entre-aident.
Daniel


==> Heureusement que tu es la pour mettre un peu d'ambiance


@+

Alain

Avatar
DanRod
Oh, je crois que nos amis JièlG et J.K ont bien mérité leurs WE.
Daniel

"Alain TEYSSEDRE" a écrit dans le
message de news:
Salut Dan


----> Bah non, on t'attendait justement....
Ici, il n'y a pas d' "EXPERTS", juste des bénévoles que s'entre-aident.
Daniel


==> Heureusement que tu es la pour mettre un peu d'ambiance


@+

Alain