Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Outlook pb avec les publics folder

pb avec les publics folder

3 réponses
Avatar
Marie
bonjour,

Je crée par code un « public folder » qui contient des contacts.
Ma fonction décrite ci-dessous semble fonctionner.
J’ouvre mon Outlook 2003, et je crée un nouveau contact dans ce répertoire.
Mon contact est crée dans mes contacts personnels.
Je crée alors un nouveau public folder « Test » via Outlook 2003 et un
nouveau contact. Le contact est bien crée dans « Test »
J’ai certainement oublié de configurer un paramètre dans ma fonction.
Quelqu’un a t-il une idée ?
Merci



Function CreatePublicFolder()

Dim objLDAP
Set objLDAP = GetObject("LDAP://rootdse")


Dim strDomainName
strDomainName = objLDAP.Get("dnshostname")
strDomainName = Mid(strDomainName, InStr(strDomainName, ".") + 1)

Dim strURLFldr
strURLFldr = "file://./backofficestorage/"
strURLFldr = strURLFldr & strDomainName
strURLFldr = strURLFldr & "/PUBLIC FOLDERS/Server Contacts/Entreprise/"

With CreateObject("cdo.folder")
.Description = "Mes contacts d’entreprise"
.contentclass = "urn:content-classes:contactfolder"
.Fields("http://schemas.microsoft.com/exchange/outlookfolderclass") =
"IPF.contact"
.Fields.Update
.DataSource.SaveTo strURLFldr
End With

End Function
Signaler un problème avec ce contenu

3 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
Isabelle Prawitz
Bonjour !
Ceci n'est pas du code Outlook ! Peut-être quelqu'un sur le newsgroup Exchange pourra-t-il te le corriger.
Sous Outlook, l'équivalent serait :

dim MonDoss as MapiFolder
set MonDoss= Application.GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders("Server
Contacts").Folders("Entreprise")..Folders.Add("Mes contacts d'entreprise", olFolderContacts)
'Puis, pour ajouter un contact dans le dossier :
dim MonContact as ContactItem
set MonContact=MonDoss.Items.Add

A+
Isa

"Marie" a écrit dans le message de
news:
bonjour,

Je crée par code un « public folder » qui contient des contacts.
Ma fonction décrite ci-dessous semble fonctionner.
J'ouvre mon Outlook 2003, et je crée un nouveau contact dans ce répertoire.
Mon contact est crée dans mes contacts personnels.
Je crée alors un nouveau public folder « Test » via Outlook 2003 et un
nouveau contact. Le contact est bien crée dans « Test »
J'ai certainement oublié de configurer un paramètre dans ma fonction.
Quelqu'un a t-il une idée ?
Merci



Function CreatePublicFolder()

Dim objLDAP
Set objLDAP = GetObject("LDAP://rootdse")


Dim strDomainName
strDomainName = objLDAP.Get("dnshostname")
strDomainName = Mid(strDomainName, InStr(strDomainName, ".") + 1)

Dim strURLFldr
strURLFldr = "file://./backofficestorage/"
strURLFldr = strURLFldr & strDomainName
strURLFldr = strURLFldr & "/PUBLIC FOLDERS/Server Contacts/Entreprise/"

With CreateObject("cdo.folder")
.Description = "Mes contacts d'entreprise"
.contentclass = "urn:content-classes:contactfolder"
.Fields("http://schemas.microsoft.com/exchange/outlookfolderclass") > "IPF.contact"
.Fields.Update
.DataSource.SaveTo strURLFldr
End With

End Function




Avatar
Isabelle Prawitz
Oups !
Tapé 2 "." entre Folders("Entreprise") et Folders !!!
Y'en a qu'un, bien sûr !
A+
Isa

"Isabelle Prawitz" a écrit dans le message de news:
Bonjour !
Ceci n'est pas du code Outlook ! Peut-être quelqu'un sur le newsgroup Exchange pourra-t-il te le corriger.
Sous Outlook, l'équivalent serait :

dim MonDoss as MapiFolder
set MonDoss= Application.GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders("Server
Contacts").Folders("Entreprise")..Folders.Add("Mes contacts d'entreprise", olFolderContacts)
'Puis, pour ajouter un contact dans le dossier :
dim MonContact as ContactItem
set MonContact=MonDoss.Items.Add

A+
Isa

"Marie" a écrit dans le message de
news:
bonjour,

Je crée par code un « public folder » qui contient des contacts.
Ma fonction décrite ci-dessous semble fonctionner.
J'ouvre mon Outlook 2003, et je crée un nouveau contact dans ce répertoire.
Mon contact est crée dans mes contacts personnels.
Je crée alors un nouveau public folder « Test » via Outlook 2003 et un
nouveau contact. Le contact est bien crée dans « Test »
J'ai certainement oublié de configurer un paramètre dans ma fonction.
Quelqu'un a t-il une idée ?
Merci



Function CreatePublicFolder()

Dim objLDAP
Set objLDAP = GetObject("LDAP://rootdse")


Dim strDomainName
strDomainName = objLDAP.Get("dnshostname")
strDomainName = Mid(strDomainName, InStr(strDomainName, ".") + 1)

Dim strURLFldr
strURLFldr = "file://./backofficestorage/"
strURLFldr = strURLFldr & strDomainName
strURLFldr = strURLFldr & "/PUBLIC FOLDERS/Server Contacts/Entreprise/"

With CreateObject("cdo.folder")
.Description = "Mes contacts d'entreprise"
.contentclass = "urn:content-classes:contactfolder"
.Fields("http://schemas.microsoft.com/exchange/outlookfolderclass") > > "IPF.contact"
.Fields.Update
.DataSource.SaveTo strURLFldr
End With

End Function








Avatar
Marie
Merci de m'avoir répondu. Je vais essayer!


Oups !
Tapé 2 "." entre Folders("Entreprise") et Folders !!!
Y'en a qu'un, bien sûr !
A+
Isa

"Isabelle Prawitz" a écrit dans le message de news:
Bonjour !
Ceci n'est pas du code Outlook ! Peut-être quelqu'un sur le newsgroup Exchange pourra-t-il te le corriger.
Sous Outlook, l'équivalent serait :

dim MonDoss as MapiFolder
set MonDoss= Application.GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders("Server
Contacts").Folders("Entreprise")..Folders.Add("Mes contacts d'entreprise", olFolderContacts)
'Puis, pour ajouter un contact dans le dossier :
dim MonContact as ContactItem
set MonContact=MonDoss.Items.Add

A+
Isa

"Marie" a écrit dans le message de
news:
bonjour,

Je crée par code un « public folder » qui contient des contacts.
Ma fonction décrite ci-dessous semble fonctionner.
J'ouvre mon Outlook 2003, et je crée un nouveau contact dans ce répertoire.
Mon contact est crée dans mes contacts personnels.
Je crée alors un nouveau public folder « Test » via Outlook 2003 et un
nouveau contact. Le contact est bien crée dans « Test »
J'ai certainement oublié de configurer un paramètre dans ma fonction.
Quelqu'un a t-il une idée ?
Merci



Function CreatePublicFolder()

Dim objLDAP
Set objLDAP = GetObject("LDAP://rootdse")


Dim strDomainName
strDomainName = objLDAP.Get("dnshostname")
strDomainName = Mid(strDomainName, InStr(strDomainName, ".") + 1)

Dim strURLFldr
strURLFldr = "file://./backofficestorage/"
strURLFldr = strURLFldr & strDomainName
strURLFldr = strURLFldr & "/PUBLIC FOLDERS/Server Contacts/Entreprise/"

With CreateObject("cdo.folder")
.Description = "Mes contacts d'entreprise"
.contentclass = "urn:content-classes:contactfolder"
.Fields("http://schemas.microsoft.com/exchange/outlookfolderclass") > > > "IPF.contact"
.Fields.Update
.DataSource.SaveTo strURLFldr
End With

End Function