Outlook 2003 changer de dossier

Messages postés
11
Date d'inscription
mardi 31 décembre 2002
Statut
Membre
Dernière intervention
30 décembre 2008
-
Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
-
Je fais le bout de code suivant
Sub testDL()
Dim oApp As Outlook.Application
Dim oNS As Outlook.NameSpace
Dim oMFolder As MAPIFolder
Dim oDL As Outlook.DistListItem 'objet liste
Dim oRecipients As Outlook.MailItem 'Recipients-Objekt
Dim oRecip As Outlook.Recipients 'Recipient-Objekt
Dim nom_ajout As String


Set oApp = CreateObject("Outlook.Application")
Set oNS = oApp.GetNamespace("MAPI")
Set oMFolder = oNS.GetDefaultFolder(olFolderContacts)
Set myNewFolder = oMFolder.Folders.Add("TESTDOSSIER")
Set oDL = oApp.CreateItem(olDistributionListItem)
oDL.DLName = "TEST DENIS"
nom_ajout = "Denis ([mailto:denis@moi.fr denis@moi.fr])"
nom_ajout2 = "Pierre([mailto:pierre@moi.fr pierre@moi.fr])"
Set oRecipients = oApp.CreateItem(olMailItem)
Set oRecip = oRecipients.Recipients
oRecip.Add nom_ajout
oRecip.Add nom_ajout2
oDL.AddMembers oRecip
oDL.Save
End Sub
1) Celà fonctionne mais la liste de diffusion ne se fait pas dans le dossier TESTDOSSIER que j'ai créé. Je ne trouve pas pourquoi ?
2) si TESTDOSSIER existe alors j'ai une erreur (logique il ne peut pas le recréer) mais alors comment effacer TESTDOSSIER ?
Je débute et c'est pas la joie.
Merci d'avancedu coup de main

2 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
Je ne peus pas trop t'aider mais je sais que pour le poin 2) tu peux essayer ceci pour supprimer le dossier TESTDOSSIER:
oMFolder.Folders.Remove("TESTDOSSIER")

Mais s'il n'existe pas alors il va te mettre une erreur donc essaie:

On Error Resume Next  
oMFolder.Folders.Remove("TESTDOSSIER") 
oMFolder.Folders.Add("TESTDOSSIER") 
On Error Goto 0 
 

<small> Coloration syntaxique automatique [AFCK]</small>
       

@+, Julien
Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
11
Bonjour,

Essaye avec :

Sub testDL()
Dim oApp As Outlook.Application
Dim oNS As Outlook.NameSpace
Dim oMFolder As MAPIFolder
Dim myNewFolder As MAPIFolder
Dim oDL As Outlook.DistListItem 'objet liste
Dim oRecipients As Outlook.MailItem 'Recipients-Objekt
Dim oRecip As Outlook.Recipients 'Recipient-Objekt
Dim nom_ajout As String


Set oApp = CreateObject("Outlook.Application")
Set oNS = oApp.GetNamespace("MAPI")
Set oMFolder = oNS.GetDefaultFolder(olFolderContacts)
Set myNewFolder = oMFolder.Folders.Add("TESTDOSSIER")
Set oDL = myNewFolder.Items.Add(olDistributionListItem)
oDL.DLName = "TEST DENIS"
nom_ajout = "Denis ([mailto:denis@moi.fr denis@moi.fr])"
nom_ajout2 = "Pierre([mailto:pierre@moi.fr pierre@moi.fr])"
Set oRecipients = oApp.CreateItem(olMailItem)
Set oRecip = oRecipients.Recipients
oRecip.Add nom_ajout
oRecip.Add nom_ajout2
oDL.AddMembers oRecip
oDL.Save
End Sub

wape