Le bout de code ci dessous devrait me permettre de changer les
"objects" des messages contenus dans un r=E9pertoire "test"
Lorsque le prog. est lanc=E9, seul le premier mail est trait=E9 comme il
doit l'=EAtre (son object est modifi=E9).
Je "passe" bien par les autres mails (je vois leur objet) mais
impossible de le modifier.
Je dois faire la m=EAme chose pour les adresses mail (les remplacer par
une autre adresse)
Pur=E9e, j'y comprends rien!!!!
Donc j'ai besoin de vous.
Merci.
Sub ChangeObject()
Dim MonEsp As NameSpace
Dim monDoss As MAPIFolder
Dim myRecipient
Dim i As Integer
Dim monMessage
' positionnement sur le bon dossier
Set MonEsp =3D GetNamespace("MAPI")
Set monDoss =3D MonEsp.Folders(1) 'pour HOME-D
Set monDoss =3D monDoss.Folders("test") 'pour dossier test
'2. Parcourt tous les messages du dossier
For i =3D 1 To monDoss.Items.Count
monMessage =3D "toujours pas encore"
monDoss.Items(i) =3D monMessage =20
merci du retour, ça peu toujours servir à d'autres.
-- JièL / Jean-Louis GOUBERT La FAQ Outlook est la : http://faq.outlook.free.fr/
Le 10/12/2005 21:08 vous avez écrit ceci :
Etant donné que l'on est manifestement toujours mieux servi par soi meme, ci joint la réponse que je me fais et qui fonctionne !
Sub ChangeExpediteurEtObjet() MsgBox "Cette macro change les objets et adresses des mails sélectionnés"
Dim oSelection Dim mailtoName ' adresse du receveur Dim mailsubject ' objet du mail Set oActiveExplorer = Application.ActiveExplorer
Set oSelection = oActiveExplorer.Selection
For i = 1 To oSelection.Count Set olItem = oSelection.Item(i)
mailtoName = olItem.To ' var pour reprendre l'adresse existante si besoin mailsubject = olItem.Subject ' var pour reprendre l'objet existant si besoin
olItem.To = " " olItem.Subject = "objet du mail" olItem.Save
Next mailtoName = "" mailsubject = "" End Sub
Oliv'
Etant donné que l'on est manifestement toujours mieux servi par soi meme, ci joint la réponse que je me fais et qui fonctionne !
Le fait de ne pas avoir de réponse ne veut pas dire que personne ne s'est penché sur ton problème...
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub ChangeExpediteurEtObjet() MsgBox "Cette macro change les objets et adresses des mails sélectionnés"
Dim oSelection Dim mailtoName ' adresse du receveur Dim mailsubject ' objet du mail Set oActiveExplorer = Application.ActiveExplorer
Set oSelection = oActiveExplorer.Selection
For i = 1 To oSelection.Count Set olItem = oSelection.Item(i)
mailtoName = olItem.To ' var pour reprendre l'adresse existante si besoin mailsubject = olItem.Subject ' var pour reprendre l'objet existant si besoin
olItem.To = " " olItem.Subject = "objet du mail" olItem.Save
Next mailtoName = "" mailsubject = "" End Sub
Etant donné que l'on est manifestement toujours mieux servi par soi
meme, ci joint la réponse que je me fais et qui fonctionne !
Le fait de ne pas avoir de réponse ne veut pas dire que personne ne s'est
penché sur ton problème...
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
Sql :http://sqlpro.developpez.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub ChangeExpediteurEtObjet()
MsgBox "Cette macro change les objets et adresses des mails
sélectionnés"
Dim oSelection
Dim mailtoName ' adresse du receveur
Dim mailsubject ' objet du mail
Set oActiveExplorer = Application.ActiveExplorer
Set oSelection = oActiveExplorer.Selection
For i = 1 To oSelection.Count
Set olItem = oSelection.Item(i)
mailtoName = olItem.To ' var pour reprendre l'adresse
existante si besoin
mailsubject = olItem.Subject ' var pour reprendre l'objet
existant si besoin
olItem.To = "adresse@domaine.ext "
olItem.Subject = "objet du mail"
olItem.Save
Etant donné que l'on est manifestement toujours mieux servi par soi meme, ci joint la réponse que je me fais et qui fonctionne !
Le fait de ne pas avoir de réponse ne veut pas dire que personne ne s'est penché sur ton problème...
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ Sql :http://sqlpro.developpez.com/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub ChangeExpediteurEtObjet() MsgBox "Cette macro change les objets et adresses des mails sélectionnés"
Dim oSelection Dim mailtoName ' adresse du receveur Dim mailsubject ' objet du mail Set oActiveExplorer = Application.ActiveExplorer
Set oSelection = oActiveExplorer.Selection
For i = 1 To oSelection.Count Set olItem = oSelection.Item(i)
mailtoName = olItem.To ' var pour reprendre l'adresse existante si besoin mailsubject = olItem.Subject ' var pour reprendre l'objet existant si besoin
olItem.To = " " olItem.Subject = "objet du mail" olItem.Save
