Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Comment connaître le profile en cours d'utilisation via OUTLOOK. A.

7 réponses
Avatar
xla001
Est-il possible via une propriété ou méthode de l'objet OUTLOOK.APPLICATION
de connaître le profile en cours d'utilisation ?

Merci

7 réponses

Avatar
Geo

Est-il possible via une propriété ou méthode de l'objet OUTLOOK.APPLICATION
de connaître le profile en cours d'utilisation ?

Merci


Si c'est le nom de l'utilisateur Windows que vous voulez :
Option Explicit
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" ( _
ByVal lpBuffer As String, _
nSize As Long) As Long

Sub Profil()
Debug.Print UserName
End Sub

Public Function UserName() As String
' Retourne le nom de l'utilisateur courant
Dim stTmp As String, lgTmp As Long
stTmp = Space$(250)
lgTmp = 251
Call GetUserName(stTmp, lgTmp)
UserName = Mid$(stTmp, 1, InStr(1, stTmp, Chr$(0)) - 1)
End Function

--
A+

Avatar
xla001
Désolé, ce n'était pas le but de ma question.

En fait, je désire connaître le "PROFIL" utilisé par MS-Outlook.
Par défaut, Outlook utilise le profil "Paramètres Microsoft Exchange".
Certains utilisateurs ont plusieurs "PROFILS" définis dans Outlook avec la
possibilité de choisir l'un d'entre eux au démarrage de Outlook.

J'ai actuellement une application qui se connecte à Outlook afin de lire ou
envoyé des e-mails, cependant, fonction du "Profil" chargé au démarrage de
Outlook, les bôites de réception / émission ne sont pas les mêmes !

Si Outlook n'est pas encore chargé, il n'y a pas de problème, le programme
se connecte via la méthode ".Logon" de l'objet NameSpace MAPI.
Si outlook est déjà chargé, la methode "Logon" n'a aucun effet, Outlook
n'autorisant pas plusieurs cessions et donc je me retoruve dans un "Profil"
inconnu !

J'espère avoir été plus clair.

Merci

Le but est donc de vérifier le "Profil" en cours afin d'avertir l'utilisateur.




Est-il possible via une propriété ou méthode de l'objet OUTLOOK.APPLICATION
de connaître le profile en cours d'utilisation ?

Merci


Si c'est le nom de l'utilisateur Windows que vous voulez :
Option Explicit
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" ( _
ByVal lpBuffer As String, _
nSize As Long) As Long

Sub Profil()
Debug.Print UserName
End Sub

Public Function UserName() As String
' Retourne le nom de l'utilisateur courant
Dim stTmp As String, lgTmp As Long
stTmp = Space$(250)
lgTmp = 251
Call GetUserName(stTmp, lgTmp)
UserName = Mid$(stTmp, 1, InStr(1, stTmp, Chr$(0)) - 1)
End Function

--
A+






Avatar
Geo

Désolé, ce n'était pas le but de ma question.

En fait, je désire connaître le "PROFIL" utilisé par MS-Outlook.
Par défaut, Outlook utilise le profil "Paramètres Microsoft Exchange".
Certains utilisateurs ont plusieurs "PROFILS" définis dans Outlook avec la
possibilité de choisir l'un d'entre eux au démarrage de Outlook.

J'ai actuellement une application qui se connecte à Outlook afin de lire ou
envoyé des e-mails, cependant, fonction du "Profil" chargé au démarrage de
Outlook, les bôites de réception / émission ne sont pas les mêmes !

Si Outlook n'est pas encore chargé, il n'y a pas de problème, le programme
se connecte via la méthode ".Logon" de l'objet NameSpace MAPI.
Si outlook est déjà chargé, la methode "Logon" n'a aucun effet, Outlook
n'autorisant pas plusieurs cessions et donc je me retoruve dans un "Profil"
inconnu !

J'espère avoir été plus clair.


Absolument !
Et j'avoue mon incompétence sur le sujet.
J'ai bien vu quelque part que Outlook s'aperçoit que je n'ai pas de
serveur Exchange, mais ça s'arrête là.

--
A+

Avatar
Geo
Est-ce que ceci correspondrait à ce que vous cherchez ?

Sub Profil()
Dim myOlApp As Outlook.Application
Dim MaSession As NameSpace
Dim MonUtilisateur As Recipient
Dim MonType As OlDisplayType
'Les constantes OlDisplayType disponibles sont :
'olAgent = 3
'olDistList = 1
'olForum = 2
'olOrganization = 4
'olPrivateDistList = 5
'olRemoteUser = 6
'olUser = 0
Set myOlApp = CreateObject("Outlook.Application")
Set MaSession = myOlApp.Session
Set MonUtilisateur = MaSession.CurrentUser
MonType = MonUtilisateur.DisplayType
Debug.Print MonUtilisateur.DisplayType
End Sub

--
A+
Avatar
xla001
Malheureusement, toujours pas.

Mais je vous remercie pour vos efforts.

Je continue mes investigations.

@+

"Geo" wrote:

Est-ce que ceci correspondrait à ce que vous cherchez ?

Sub Profil()
Dim myOlApp As Outlook.Application
Dim MaSession As NameSpace
Dim MonUtilisateur As Recipient
Dim MonType As OlDisplayType
'Les constantes OlDisplayType disponibles sont :
'olAgent = 3
'olDistList = 1
'olForum = 2
'olOrganization = 4
'olPrivateDistList = 5
'olRemoteUser = 6
'olUser = 0
Set myOlApp = CreateObject("Outlook.Application")
Set MaSession = myOlApp.Session
Set MonUtilisateur = MaSession.CurrentUser
MonType = MonUtilisateur.DisplayType
Debug.Print MonUtilisateur.DisplayType
End Sub

--
A+





Avatar
Oliv'
*xla001 que je salut a écrit *:
Désolé, ce n'était pas le but de ma question.

En fait, je désire connaître le "PROFIL" utilisé par MS-Outlook.
Par défaut, Outlook utilise le profil "Paramètres Microsoft Exchange".
Certains utilisateurs ont plusieurs "PROFILS" définis dans Outlook
avec la possibilité de choisir l'un d'entre eux au démarrage de
Outlook.

J'ai actuellement une application qui se connecte à Outlook afin de
lire ou envoyé des e-mails, cependant, fonction du "Profil" chargé au
démarrage de Outlook, les bôites de réception / émission ne sont pas
les mêmes !

Si Outlook n'est pas encore chargé, il n'y a pas de problème, le
programme
se connecte via la méthode ".Logon" de l'objet NameSpace MAPI.
Si outlook est déjà chargé, la methode "Logon" n'a aucun effet,
Outlook n'autorisant pas plusieurs cessions et donc je me retoruve
dans un "Profil" inconnu !


tu trouveras sans doute ta réponse là
http://www.outlookcode.com/

aller comme suis curieux

il faut utiliser "CDO 1.21 Session object and use its Name property. "

tu pourrais aussi si l'info n'est pas dispo la créer à l'ouverture
(application_startup) en déclarant une variable .


--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Avatar
xla001
Merci pour l'info.

Entre-temps, j'ai trouvé une parade ( du moins pour moi ) à ce problème en
utilisant uniquement l'objet OUTLOOK. ( Exchange server ou pas )

Cela étant un peu long à expliquer ( détail du comment et du pourquoi de
l'application et donc, le but recherché ) je m'attacherai à donner une
réponse complète dès que possible ( je suis un peu pris par le temps ) .

Si cela vous intéresse de manière pressante, vous pouvez toujours me
contacter à l'adresse :

Merci encore pour vos efforts !

@+

P.S.: j



*xla001 que je salut a écrit *:
Désolé, ce n'était pas le but de ma question.

En fait, je désire connaître le "PROFIL" utilisé par MS-Outlook.
Par défaut, Outlook utilise le profil "Paramètres Microsoft Exchange".
Certains utilisateurs ont plusieurs "PROFILS" définis dans Outlook
avec la possibilité de choisir l'un d'entre eux au démarrage de
Outlook.

J'ai actuellement une application qui se connecte à Outlook afin de
lire ou envoyé des e-mails, cependant, fonction du "Profil" chargé au
démarrage de Outlook, les bôites de réception / émission ne sont pas
les mêmes !

Si Outlook n'est pas encore chargé, il n'y a pas de problème, le
programme
se connecte via la méthode ".Logon" de l'objet NameSpace MAPI.
Si outlook est déjà chargé, la methode "Logon" n'a aucun effet,
Outlook n'autorisant pas plusieurs cessions et donc je me retoruve
dans un "Profil" inconnu !


tu trouveras sans doute ta réponse là
http://www.outlookcode.com/

aller comme suis curieux

il faut utiliser "CDO 1.21 Session object and use its Name property. "

tu pourrais aussi si l'info n'est pas dispo la créer à l'ouverture
(application_startup) en déclarant une variable .


--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
les sites références:
Excel :http://www.excelabo.net http://xcell05.free.fr/
http://dj.joss.free.fr/
http://frederic.sigonneau.free.fr/ http://www.excel-vba-francais.com/
Word : http://faqword.free.fr/
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
OE6 : http://www.faqoe.com/
Sql : http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~