Je pense que cette question a déja été posée, mais malheureusement je
n'arrive pas à retrouver les réponses.
Sous outlook avec serveur Exchange, j'ai créé un nouveau formulaire de
contact que j'ai publié dans un dossier public.
Lorsque je crée des nouveaux contacts dans ce dossier public, le nouveau
formulaire est bien ramené.
Par contre lorsque je consulte des contacts créés à partir du formulaire
contact standard, j'aimerais que le nouveau formulaire soit ramené. Ce n'est
pas le cas.
Que dois-je faire pour que les anciens contacts soient "rattachés" au
nouveau formulaire ?
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
Stephane D
pascalsai wrote:
Bonjour à tous,
Je pense que cette question a déja été posée, mais malheureusement je n'arrive pas à retrouver les réponses.
Voui par moi y'a pas très longtemps. J'ai fait la meme chose que toi
Que dois-je faire pour que les anciens contacts soient "rattachés" au nouveau formulaire ?
Il faut que tu créés une macro, tu y mets le contenu en dessous: - a la place de "IPM.Contact.MyNewForm" tu mets le nom de la classe de ton formulaire. - Fait attention si tu as des listes de distribution elles seront aussi affectées, à ce moment là il faut rajouter un test qui vérifie si l'Item est une liste de distribution (IPM.DistList).
Faudra dire merci à Isa
@+ Stephane
Sub ChangerClasse() NewMC = "IPM.Contact.MyNewForm"
Set CurFolder = Application.ActiveExplorer.CurrentFolder Set AllItems = CurFolder.Items NumItems = CurFolder.Items.Count
' Loop through all of the items in the folder For I = 1 To NumItems Set CurItem = AllItems.Item(I) ' Test to see if the Message Class needs to be changed If CurItem.MessageClass <> NewMC Then ' Change the Message Class CurItem.MessageClass = NewMC 'Save the changed item CurItem.Save End If Next MsgBox "Done." End Sub
pascalsai wrote:
Bonjour à tous,
Je pense que cette question a déja été posée, mais malheureusement je
n'arrive pas à retrouver les réponses.
Voui par moi y'a pas très longtemps. J'ai fait la meme chose que toi
Que dois-je faire pour que les anciens contacts soient "rattachés" au
nouveau formulaire ?
Il faut que tu créés une macro, tu y mets le contenu en dessous:
- a la place de "IPM.Contact.MyNewForm" tu mets le nom de la classe de
ton formulaire.
- Fait attention si tu as des listes de distribution elles seront aussi
affectées, à ce moment là il faut rajouter un test qui vérifie si l'Item
est une liste de distribution (IPM.DistList).
Faudra dire merci à Isa
@+ Stephane
Sub ChangerClasse()
NewMC = "IPM.Contact.MyNewForm"
Set CurFolder = Application.ActiveExplorer.CurrentFolder
Set AllItems = CurFolder.Items
NumItems = CurFolder.Items.Count
' Loop through all of the items in the folder
For I = 1 To NumItems
Set CurItem = AllItems.Item(I)
' Test to see if the Message Class needs to be changed
If CurItem.MessageClass <> NewMC Then
' Change the Message Class
CurItem.MessageClass = NewMC
'Save the changed item
CurItem.Save
End If
Next
MsgBox "Done."
End Sub
Je pense que cette question a déja été posée, mais malheureusement je n'arrive pas à retrouver les réponses.
Voui par moi y'a pas très longtemps. J'ai fait la meme chose que toi
Que dois-je faire pour que les anciens contacts soient "rattachés" au nouveau formulaire ?
Il faut que tu créés une macro, tu y mets le contenu en dessous: - a la place de "IPM.Contact.MyNewForm" tu mets le nom de la classe de ton formulaire. - Fait attention si tu as des listes de distribution elles seront aussi affectées, à ce moment là il faut rajouter un test qui vérifie si l'Item est une liste de distribution (IPM.DistList).
Faudra dire merci à Isa
@+ Stephane
Sub ChangerClasse() NewMC = "IPM.Contact.MyNewForm"
Set CurFolder = Application.ActiveExplorer.CurrentFolder Set AllItems = CurFolder.Items NumItems = CurFolder.Items.Count
' Loop through all of the items in the folder For I = 1 To NumItems Set CurItem = AllItems.Item(I) ' Test to see if the Message Class needs to be changed If CurItem.MessageClass <> NewMC Then ' Change the Message Class CurItem.MessageClass = NewMC 'Save the changed item CurItem.Save End If Next MsgBox "Done." End Sub
pascalsai
Merci beaucoup,
J'essaie et te tiens au courant
pascal
"Stephane D" a écrit dans le message de news:d4su0e$ffb$
pascalsai wrote:
Bonjour à tous,
Je pense que cette question a déja été posée, mais malheureusement je n'arrive pas à retrouver les réponses.
Voui par moi y'a pas très longtemps. J'ai fait la meme chose que toi
Que dois-je faire pour que les anciens contacts soient "rattachés" au nouveau formulaire ?
Il faut que tu créés une macro, tu y mets le contenu en dessous: - a la place de "IPM.Contact.MyNewForm" tu mets le nom de la classe de ton formulaire. - Fait attention si tu as des listes de distribution elles seront aussi affectées, à ce moment là il faut rajouter un test qui vérifie si l'Item est une liste de distribution (IPM.DistList).
Faudra dire merci à Isa
@+ Stephane
Sub ChangerClasse() NewMC = "IPM.Contact.MyNewForm"
Set CurFolder = Application.ActiveExplorer.CurrentFolder Set AllItems = CurFolder.Items NumItems = CurFolder.Items.Count
' Loop through all of the items in the folder For I = 1 To NumItems Set CurItem = AllItems.Item(I) ' Test to see if the Message Class needs to be changed If CurItem.MessageClass <> NewMC Then ' Change the Message Class CurItem.MessageClass = NewMC 'Save the changed item CurItem.Save End If Next MsgBox "Done." End Sub
Merci beaucoup,
J'essaie et te tiens au courant
pascal
"Stephane D" <sur_le@forum.fr> a écrit dans le message de
news:d4su0e$ffb$1@s1.news.oleane.net...
pascalsai wrote:
Bonjour à tous,
Je pense que cette question a déja été posée, mais malheureusement je
n'arrive pas à retrouver les réponses.
Voui par moi y'a pas très longtemps. J'ai fait la meme chose que toi
Que dois-je faire pour que les anciens contacts soient "rattachés" au
nouveau formulaire ?
Il faut que tu créés une macro, tu y mets le contenu en dessous:
- a la place de "IPM.Contact.MyNewForm" tu mets le nom de la classe de
ton formulaire.
- Fait attention si tu as des listes de distribution elles seront aussi
affectées, à ce moment là il faut rajouter un test qui vérifie si l'Item
est une liste de distribution (IPM.DistList).
Faudra dire merci à Isa
@+ Stephane
Sub ChangerClasse()
NewMC = "IPM.Contact.MyNewForm"
Set CurFolder = Application.ActiveExplorer.CurrentFolder
Set AllItems = CurFolder.Items
NumItems = CurFolder.Items.Count
' Loop through all of the items in the folder
For I = 1 To NumItems
Set CurItem = AllItems.Item(I)
' Test to see if the Message Class needs to be changed
If CurItem.MessageClass <> NewMC Then
' Change the Message Class
CurItem.MessageClass = NewMC
'Save the changed item
CurItem.Save
End If
Next
MsgBox "Done."
End Sub
"Stephane D" a écrit dans le message de news:d4su0e$ffb$
pascalsai wrote:
Bonjour à tous,
Je pense que cette question a déja été posée, mais malheureusement je n'arrive pas à retrouver les réponses.
Voui par moi y'a pas très longtemps. J'ai fait la meme chose que toi
Que dois-je faire pour que les anciens contacts soient "rattachés" au nouveau formulaire ?
Il faut que tu créés une macro, tu y mets le contenu en dessous: - a la place de "IPM.Contact.MyNewForm" tu mets le nom de la classe de ton formulaire. - Fait attention si tu as des listes de distribution elles seront aussi affectées, à ce moment là il faut rajouter un test qui vérifie si l'Item est une liste de distribution (IPM.DistList).
Faudra dire merci à Isa
@+ Stephane
Sub ChangerClasse() NewMC = "IPM.Contact.MyNewForm"
Set CurFolder = Application.ActiveExplorer.CurrentFolder Set AllItems = CurFolder.Items NumItems = CurFolder.Items.Count
' Loop through all of the items in the folder For I = 1 To NumItems Set CurItem = AllItems.Item(I) ' Test to see if the Message Class needs to be changed If CurItem.MessageClass <> NewMC Then ' Change the Message Class CurItem.MessageClass = NewMC 'Save the changed item CurItem.Save End If Next MsgBox "Done." End Sub
pascalsai
Super. Ca a marché !!!
merci pascal
"Stephane D" a écrit dans le message de news:d4su0e$ffb$
pascalsai wrote:
Bonjour à tous,
Je pense que cette question a déja été posée, mais malheureusement je n'arrive pas à retrouver les réponses.
Voui par moi y'a pas très longtemps. J'ai fait la meme chose que toi
Que dois-je faire pour que les anciens contacts soient "rattachés" au nouveau formulaire ?
Il faut que tu créés une macro, tu y mets le contenu en dessous: - a la place de "IPM.Contact.MyNewForm" tu mets le nom de la classe de ton formulaire. - Fait attention si tu as des listes de distribution elles seront aussi affectées, à ce moment là il faut rajouter un test qui vérifie si l'Item est une liste de distribution (IPM.DistList).
Faudra dire merci à Isa
@+ Stephane
Sub ChangerClasse() NewMC = "IPM.Contact.MyNewForm"
Set CurFolder = Application.ActiveExplorer.CurrentFolder Set AllItems = CurFolder.Items NumItems = CurFolder.Items.Count
' Loop through all of the items in the folder For I = 1 To NumItems Set CurItem = AllItems.Item(I) ' Test to see if the Message Class needs to be changed If CurItem.MessageClass <> NewMC Then ' Change the Message Class CurItem.MessageClass = NewMC 'Save the changed item CurItem.Save End If Next MsgBox "Done." End Sub
Super. Ca a marché !!!
merci
pascal
"Stephane D" <sur_le@forum.fr> a écrit dans le message de
news:d4su0e$ffb$1@s1.news.oleane.net...
pascalsai wrote:
Bonjour à tous,
Je pense que cette question a déja été posée, mais malheureusement je
n'arrive pas à retrouver les réponses.
Voui par moi y'a pas très longtemps. J'ai fait la meme chose que toi
Que dois-je faire pour que les anciens contacts soient "rattachés" au
nouveau formulaire ?
Il faut que tu créés une macro, tu y mets le contenu en dessous:
- a la place de "IPM.Contact.MyNewForm" tu mets le nom de la classe de
ton formulaire.
- Fait attention si tu as des listes de distribution elles seront aussi
affectées, à ce moment là il faut rajouter un test qui vérifie si l'Item
est une liste de distribution (IPM.DistList).
Faudra dire merci à Isa
@+ Stephane
Sub ChangerClasse()
NewMC = "IPM.Contact.MyNewForm"
Set CurFolder = Application.ActiveExplorer.CurrentFolder
Set AllItems = CurFolder.Items
NumItems = CurFolder.Items.Count
' Loop through all of the items in the folder
For I = 1 To NumItems
Set CurItem = AllItems.Item(I)
' Test to see if the Message Class needs to be changed
If CurItem.MessageClass <> NewMC Then
' Change the Message Class
CurItem.MessageClass = NewMC
'Save the changed item
CurItem.Save
End If
Next
MsgBox "Done."
End Sub
"Stephane D" a écrit dans le message de news:d4su0e$ffb$
pascalsai wrote:
Bonjour à tous,
Je pense que cette question a déja été posée, mais malheureusement je n'arrive pas à retrouver les réponses.
Voui par moi y'a pas très longtemps. J'ai fait la meme chose que toi
Que dois-je faire pour que les anciens contacts soient "rattachés" au nouveau formulaire ?
Il faut que tu créés une macro, tu y mets le contenu en dessous: - a la place de "IPM.Contact.MyNewForm" tu mets le nom de la classe de ton formulaire. - Fait attention si tu as des listes de distribution elles seront aussi affectées, à ce moment là il faut rajouter un test qui vérifie si l'Item est une liste de distribution (IPM.DistList).
Faudra dire merci à Isa
@+ Stephane
Sub ChangerClasse() NewMC = "IPM.Contact.MyNewForm"
Set CurFolder = Application.ActiveExplorer.CurrentFolder Set AllItems = CurFolder.Items NumItems = CurFolder.Items.Count
' Loop through all of the items in the folder For I = 1 To NumItems Set CurItem = AllItems.Item(I) ' Test to see if the Message Class needs to be changed If CurItem.MessageClass <> NewMC Then ' Change the Message Class CurItem.MessageClass = NewMC 'Save the changed item CurItem.Save End If Next MsgBox "Done." End Sub
