J'ai ecrit en VB un programme qui depuis un fichier csv importe des contacts
dans un folder de Outlook, mais je ne peux changer la propriete
Email1DisplayName
car elle est en lecture seule
voici mon programme
Sub lirefichiercsv()
Dim objApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objContacts As MAPIFolder
Dim objContact As Outlook.ContactItem
Dim objISRs As MAPIFolder
Dim objISR As Outlook.TaskItem
Dim fso As Variant
Dim objStream As Variant
Dim strFileName As String
Dim strLine As String
Dim arr() As String
Set myOlApp = CreateObject("Outlook.Application")
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.Folders("Dossiers personnels")
Set myContactFolder = myFolder.Folders("Contacts")
Set lecontact = myContactFolder.Folders("folder")
Set myNewContact = lecontact.Items.Add(olContactItem)
strFileName = "c:\dada.csv"
If strFileName <> "" Then
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(strFileName) Then
Set objStream = fso.OpenTextFile(strFileName)
strLine = objStream.ReadLine
Do Until objStream.AtEndOfStream
strLine = objStream.ReadLine
arr = Split(strLine, ",")
Set myNewContact = lecontact.Items.Add(olContactItem)
If (Len(arr(8)) = 0) Then
myNewContact.BusinessAddressStreet = Replace(arr(7), """",
"")
End If
If ((Len(arr(8)) <> 0) And (Len(arr(9)) = 0)) Then
myNewContact.BusinessAddressStreet = Replace(arr(7), """",
"") & Chr(LF) & Replace(arr(8), """", "")
End If
If (Len(arr(9)) <> 0) Then
myNewContact.BusinessAddressStreet = Replace(arr(7), """",
"") & Chr(LF) & Replace(arr(8), """", "") & Chr(LF) & Replace(arr(9), """",
"")
End If
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
Oliv'
*christophe que je salut a écrit *:
Bonjour
J'ai ecrit en VB un programme qui depuis un fichier csv importe des contacts dans un folder de Outlook, mais je ne peux changer la propriete Email1DisplayName
car elle est en lecture seule voici mon programme
la valeur de cette propriété est celle de Fullname, donc changer Fullname
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*christophe <christophe@discussions.microsoft.com> que je salut a écrit *:
Bonjour
J'ai ecrit en VB un programme qui depuis un fichier csv importe des
contacts dans un folder de Outlook, mais je ne peux changer la
propriete Email1DisplayName
car elle est en lecture seule
voici mon programme
la valeur de cette propriété est celle de Fullname, donc changer Fullname
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
J'ai ecrit en VB un programme qui depuis un fichier csv importe des contacts dans un folder de Outlook, mais je ne peux changer la propriete Email1DisplayName
car elle est en lecture seule voici mon programme
la valeur de cette propriété est celle de Fullname, donc changer Fullname
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
christophe
Oui mais pour la propriete FullName je veux qu'elle reste egale au Nom de la personne
et celle de Email1DisplayName je veux quelle soit egale a cela nom de la societe (adresse email)
*christophe que je salut a écrit *:
Bonjour
J'ai ecrit en VB un programme qui depuis un fichier csv importe des contacts dans un folder de Outlook, mais je ne peux changer la propriete Email1DisplayName
car elle est en lecture seule voici mon programme
la valeur de cette propriété est celle de Fullname, donc changer Fullname
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Oui mais pour la propriete FullName je veux qu'elle reste egale au Nom de la
personne
et celle de Email1DisplayName
je veux quelle soit egale a cela nom de la societe (adresse email)
*christophe <christophe@discussions.microsoft.com> que je salut a écrit *:
Bonjour
J'ai ecrit en VB un programme qui depuis un fichier csv importe des
contacts dans un folder de Outlook, mais je ne peux changer la
propriete Email1DisplayName
car elle est en lecture seule
voici mon programme
la valeur de cette propriété est celle de Fullname, donc changer Fullname
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Oui mais pour la propriete FullName je veux qu'elle reste egale au Nom de la personne
et celle de Email1DisplayName je veux quelle soit egale a cela nom de la societe (adresse email)
*christophe que je salut a écrit *:
Bonjour
J'ai ecrit en VB un programme qui depuis un fichier csv importe des contacts dans un folder de Outlook, mais je ne peux changer la propriete Email1DisplayName
car elle est en lecture seule voici mon programme
la valeur de cette propriété est celle de Fullname, donc changer Fullname
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Oliv'
*christophe que je salut a écrit *:
Oui mais pour la propriete FullName je veux qu'elle reste egale au Nom de la personne
et celle de Email1DisplayName je veux quelle soit egale a cela nom de la societe (adresse email)
J'ai ecrit en VB un programme qui depuis un fichier csv importe des contacts dans un folder de Outlook, mais je ne peux changer la propriete Email1DisplayName
car elle est en lecture seule voici mon programme
la valeur de cette propriété est celle de Fullname, donc changer Fullname
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*christophe <christophe@discussions.microsoft.com> que je salut a écrit *:
Oui mais pour la propriete FullName je veux qu'elle reste egale au
Nom de la personne
et celle de Email1DisplayName
je veux quelle soit egale a cela nom de la societe (adresse email)
*christophe <christophe@discussions.microsoft.com> que je salut a
écrit *:
Bonjour
J'ai ecrit en VB un programme qui depuis un fichier csv importe des
contacts dans un folder de Outlook, mais je ne peux changer la
propriete Email1DisplayName
car elle est en lecture seule
voici mon programme
la valeur de cette propriété est celle de Fullname, donc changer
Fullname
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
J'ai ecrit en VB un programme qui depuis un fichier csv importe des contacts dans un folder de Outlook, mais je ne peux changer la propriete Email1DisplayName
car elle est en lecture seule voici mon programme
la valeur de cette propriété est celle de Fullname, donc changer Fullname
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
christophe
Moi cela peut me donne une erreur, comme quoi la propriete est en lecture seule
*christophe que je salut a écrit *:
Oui mais pour la propriete FullName je veux qu'elle reste egale au Nom de la personne
et celle de Email1DisplayName je veux quelle soit egale a cela nom de la societe (adresse email)
J'ai ecrit en VB un programme qui depuis un fichier csv importe des contacts dans un folder de Outlook, mais je ne peux changer la propriete Email1DisplayName
car elle est en lecture seule voici mon programme
la valeur de cette propriété est celle de Fullname, donc changer Fullname
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Moi cela peut me donne une erreur, comme quoi la propriete est en lecture seule
*christophe <christophe@discussions.microsoft.com> que je salut a écrit *:
Oui mais pour la propriete FullName je veux qu'elle reste egale au
Nom de la personne
et celle de Email1DisplayName
je veux quelle soit egale a cela nom de la societe (adresse email)
*christophe <christophe@discussions.microsoft.com> que je salut a
écrit *:
Bonjour
J'ai ecrit en VB un programme qui depuis un fichier csv importe des
contacts dans un folder de Outlook, mais je ne peux changer la
propriete Email1DisplayName
car elle est en lecture seule
voici mon programme
la valeur de cette propriété est celle de Fullname, donc changer
Fullname
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
J'ai ecrit en VB un programme qui depuis un fichier csv importe des contacts dans un folder de Outlook, mais je ne peux changer la propriete Email1DisplayName
car elle est en lecture seule voici mon programme
la valeur de cette propriété est celle de Fullname, donc changer Fullname
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Oliv'
*christophe que je salut a écrit *:
Moi cela peut me donne une erreur, comme quoi la propriete est en lecture seule
En création du contact ou en modification ? à mon avis il faut d'abord le créer puis ensuite le modifier
*christophe que je salut a écrit *:
Oui mais pour la propriete FullName je veux qu'elle reste egale au Nom de la personne
et celle de Email1DisplayName je veux quelle soit egale a cela nom de la societe (adresse email)
J'ai ecrit en VB un programme qui depuis un fichier csv importe des contacts dans un folder de Outlook, mais je ne peux changer la propriete Email1DisplayName
car elle est en lecture seule voici mon programme
la valeur de cette propriété est celle de Fullname, donc changer Fullname
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*christophe <christophe@discussions.microsoft.com> que je salut a écrit *:
Moi cela peut me donne une erreur, comme quoi la propriete est en
lecture seule
En création du contact ou en modification ?
à mon avis il faut d'abord le créer puis ensuite le modifier
*christophe <christophe@discussions.microsoft.com> que je salut a
écrit *:
Oui mais pour la propriete FullName je veux qu'elle reste egale au
Nom de la personne
et celle de Email1DisplayName
je veux quelle soit egale a cela nom de la societe (adresse email)
*christophe <christophe@discussions.microsoft.com> que je salut a
écrit *:
Bonjour
J'ai ecrit en VB un programme qui depuis un fichier csv importe
des contacts dans un folder de Outlook, mais je ne peux changer la
propriete Email1DisplayName
car elle est en lecture seule
voici mon programme
la valeur de cette propriété est celle de Fullname, donc changer
Fullname
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
J'ai ecrit en VB un programme qui depuis un fichier csv importe des contacts dans un folder de Outlook, mais je ne peux changer la propriete Email1DisplayName
car elle est en lecture seule voici mon programme
la valeur de cette propriété est celle de Fullname, donc changer Fullname
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
christophe
J'ai essaye en modification cela ne fonctionne pas n'en plus voici le code de ma procedure de modification
Sub modification() 'This will only work on contacts in the CURRENT folder
Set CurFolder = Application.ActiveExplorer.CurrentFolder
If CurFolder.DefaultItemType = 2 Then MsgBox "This process may take some time. You will be notified" & _ " when complete.", , "Contact Tools Message" Set myItems = CurFolder.Items
For i = 1 To myItems.Count Set myItem = myItems.Item(i)
If Left(myItem.HomeFaxNumber, 2) <> "+1" And _ myItem.HomeFaxNumber <> "" Then myItem.HomeFaxNumber = "+1" & myItem.HomeFaxNumber ActiveInspector.CurrentItem.Email1DisplayName = "toto" End If
If Left(myItem.BusinessFaxNumber, 2) <> "+1" And _ myItem.BusinessFaxNumber <> "" Then myItem.BusinessFaxNumber = "+1" & myItem.BusinessFaxNumber ActiveInspector.CurrentItem.Email1DisplayName = "toto"
End If
If Left(myItem.OtherFaxNumber, 2) <> "+1" And _ myItem.OtherFaxNumber <> "" Then myItem.OtherFaxNumber = "+1" & myItem.OtherFaxNumber ActiveInspector.CurrentItem.Email1DisplayName = "toto" End If
myItem.Save
Next MsgBox "Done!", 64, "Contact Tools Message"
Else MsgBox "The current folder is not a Contact folder " End If
End Sub
*christophe que je salut a écrit *:
Moi cela peut me donne une erreur, comme quoi la propriete est en lecture seule
En création du contact ou en modification ? à mon avis il faut d'abord le créer puis ensuite le modifier
*christophe que je salut a écrit *:
Oui mais pour la propriete FullName je veux qu'elle reste egale au Nom de la personne
et celle de Email1DisplayName je veux quelle soit egale a cela nom de la societe (adresse email)
J'ai ecrit en VB un programme qui depuis un fichier csv importe des contacts dans un folder de Outlook, mais je ne peux changer la propriete Email1DisplayName
car elle est en lecture seule voici mon programme
la valeur de cette propriété est celle de Fullname, donc changer Fullname
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
J'ai essaye en modification cela ne fonctionne pas n'en plus voici le code de
ma procedure de modification
Sub modification()
'This will only work on contacts in the CURRENT folder
Set CurFolder = Application.ActiveExplorer.CurrentFolder
If CurFolder.DefaultItemType = 2 Then
MsgBox "This process may take some time. You will be notified" & _
" when complete.", , "Contact Tools Message"
Set myItems = CurFolder.Items
For i = 1 To myItems.Count
Set myItem = myItems.Item(i)
If Left(myItem.HomeFaxNumber, 2) <> "+1" And _
myItem.HomeFaxNumber <> "" Then
myItem.HomeFaxNumber = "+1" & myItem.HomeFaxNumber
ActiveInspector.CurrentItem.Email1DisplayName = "toto"
End If
If Left(myItem.BusinessFaxNumber, 2) <> "+1" And _
myItem.BusinessFaxNumber <> "" Then
myItem.BusinessFaxNumber = "+1" & myItem.BusinessFaxNumber
ActiveInspector.CurrentItem.Email1DisplayName = "toto"
End If
If Left(myItem.OtherFaxNumber, 2) <> "+1" And _
myItem.OtherFaxNumber <> "" Then
myItem.OtherFaxNumber = "+1" & myItem.OtherFaxNumber
ActiveInspector.CurrentItem.Email1DisplayName = "toto"
End If
myItem.Save
Next
MsgBox "Done!", 64, "Contact Tools Message"
Else
MsgBox "The current folder is not a Contact folder "
End If
End Sub
*christophe <christophe@discussions.microsoft.com> que je salut a écrit *:
Moi cela peut me donne une erreur, comme quoi la propriete est en
lecture seule
En création du contact ou en modification ?
à mon avis il faut d'abord le créer puis ensuite le modifier
*christophe <christophe@discussions.microsoft.com> que je salut a
écrit *:
Oui mais pour la propriete FullName je veux qu'elle reste egale au
Nom de la personne
et celle de Email1DisplayName
je veux quelle soit egale a cela nom de la societe (adresse email)
*christophe <christophe@discussions.microsoft.com> que je salut a
écrit *:
Bonjour
J'ai ecrit en VB un programme qui depuis un fichier csv importe
des contacts dans un folder de Outlook, mais je ne peux changer la
propriete Email1DisplayName
car elle est en lecture seule
voici mon programme
la valeur de cette propriété est celle de Fullname, donc changer
Fullname
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
J'ai essaye en modification cela ne fonctionne pas n'en plus voici le code de ma procedure de modification
Sub modification() 'This will only work on contacts in the CURRENT folder
Set CurFolder = Application.ActiveExplorer.CurrentFolder
If CurFolder.DefaultItemType = 2 Then MsgBox "This process may take some time. You will be notified" & _ " when complete.", , "Contact Tools Message" Set myItems = CurFolder.Items
For i = 1 To myItems.Count Set myItem = myItems.Item(i)
If Left(myItem.HomeFaxNumber, 2) <> "+1" And _ myItem.HomeFaxNumber <> "" Then myItem.HomeFaxNumber = "+1" & myItem.HomeFaxNumber ActiveInspector.CurrentItem.Email1DisplayName = "toto" End If
If Left(myItem.BusinessFaxNumber, 2) <> "+1" And _ myItem.BusinessFaxNumber <> "" Then myItem.BusinessFaxNumber = "+1" & myItem.BusinessFaxNumber ActiveInspector.CurrentItem.Email1DisplayName = "toto"
End If
If Left(myItem.OtherFaxNumber, 2) <> "+1" And _ myItem.OtherFaxNumber <> "" Then myItem.OtherFaxNumber = "+1" & myItem.OtherFaxNumber ActiveInspector.CurrentItem.Email1DisplayName = "toto" End If
myItem.Save
Next MsgBox "Done!", 64, "Contact Tools Message"
Else MsgBox "The current folder is not a Contact folder " End If
End Sub
*christophe que je salut a écrit *:
Moi cela peut me donne une erreur, comme quoi la propriete est en lecture seule
En création du contact ou en modification ? à mon avis il faut d'abord le créer puis ensuite le modifier
*christophe que je salut a écrit *:
Oui mais pour la propriete FullName je veux qu'elle reste egale au Nom de la personne
et celle de Email1DisplayName je veux quelle soit egale a cela nom de la societe (adresse email)
J'ai ecrit en VB un programme qui depuis un fichier csv importe des contacts dans un folder de Outlook, mais je ne peux changer la propriete Email1DisplayName
car elle est en lecture seule voici mon programme
la valeur de cette propriété est celle de Fullname, donc changer Fullname
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Oliv'
*christophe que je salut a écrit *:
J'ai essaye en modification cela ne fonctionne pas n'en plus voici le code de ma procedure de modification il y a une erreur dans ton code tu modifies ActiveInspector.CurrentItem
(....Email1DisplayName = "toto") alors que tu enregistres myitem.
attention tous les item d'un répertoire contact ne sont pas des contactitem, ex listes de distrib
essaye avec ccelle ci :
Sub modification() Dim myitem As ContactItem 'This will only work on contacts in the CURRENT folder
Set CurFolder = Application.ActiveExplorer.CurrentFolder
If CurFolder.DefaultItemType = 2 Then MsgBox "This process may take some time. You will be notified" & _ " when complete.", , "Contact Tools Message" Set myItems = CurFolder.Items
For i = 1 To myItems.Count On Error Resume Next Set myitem = myItems.Item(i) ' myItems.Item(i).Display
If myitem.CompanyName = "Testoto" Then myitem.Display myitem.HomeFaxNumber = "+1" & myitem.HomeFaxNumber myitem.Email1DisplayName = "toto" myitem.Save End If
' If Left(myitem.HomeFaxNumber, 2) <> "+1" And _ ' myitem.HomeFaxNumber <> "" Then ' myitem.HomeFaxNumber = "+1" & myitem.HomeFaxNumber ' ActiveInspector.CurrentItem.Email1DisplayName = "toto" ' End If ' ' If Left(myitem.BusinessFaxNumber, 2) <> "+1" And _ ' myitem.BusinessFaxNumber <> "" Then ' myitem.BusinessFaxNumber = "+1" & myitem.BusinessFaxNumber ' ActiveInspector.CurrentItem.Email1DisplayName = "toto" ' ' End If ' ' If Left(myitem.OtherFaxNumber, 2) <> "+1" And _ ' myitem.OtherFaxNumber <> "" Then ' myitem.OtherFaxNumber = "+1" & myitem.OtherFaxNumber ' ActiveInspector.CurrentItem.Email1DisplayName = "toto" ' End If
suite: Next MsgBox "Done!", 64, "Contact Tools Message"
Else MsgBox "The current folder is not a Contact folder " End If
End Sub
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*christophe <christophe@discussions.microsoft.com> que je salut a écrit *:
J'ai essaye en modification cela ne fonctionne pas n'en plus voici le
code de ma procedure de modification
il y a une erreur dans ton code tu modifies ActiveInspector.CurrentItem
(....Email1DisplayName = "toto")
alors que tu enregistres myitem.
attention tous les item d'un répertoire contact ne sont pas des contactitem,
ex listes de distrib
essaye avec ccelle ci :
Sub modification()
Dim myitem As ContactItem
'This will only work on contacts in the CURRENT folder
Set CurFolder = Application.ActiveExplorer.CurrentFolder
If CurFolder.DefaultItemType = 2 Then
MsgBox "This process may take some time. You will be notified" & _
" when complete.", , "Contact Tools Message"
Set myItems = CurFolder.Items
For i = 1 To myItems.Count
On Error Resume Next
Set myitem = myItems.Item(i)
' myItems.Item(i).Display
If myitem.CompanyName = "Testoto" Then
myitem.Display
myitem.HomeFaxNumber = "+1" & myitem.HomeFaxNumber
myitem.Email1DisplayName = "toto"
myitem.Save
End If
' If Left(myitem.HomeFaxNumber, 2) <> "+1" And _
' myitem.HomeFaxNumber <> "" Then
' myitem.HomeFaxNumber = "+1" & myitem.HomeFaxNumber
' ActiveInspector.CurrentItem.Email1DisplayName = "toto"
' End If
'
' If Left(myitem.BusinessFaxNumber, 2) <> "+1" And _
' myitem.BusinessFaxNumber <> "" Then
' myitem.BusinessFaxNumber = "+1" & myitem.BusinessFaxNumber
' ActiveInspector.CurrentItem.Email1DisplayName = "toto"
'
' End If
'
' If Left(myitem.OtherFaxNumber, 2) <> "+1" And _
' myitem.OtherFaxNumber <> "" Then
' myitem.OtherFaxNumber = "+1" & myitem.OtherFaxNumber
' ActiveInspector.CurrentItem.Email1DisplayName = "toto"
' End If
suite:
Next
MsgBox "Done!", 64, "Contact Tools Message"
Else
MsgBox "The current folder is not a Contact folder "
End If
End Sub
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
J'ai essaye en modification cela ne fonctionne pas n'en plus voici le code de ma procedure de modification il y a une erreur dans ton code tu modifies ActiveInspector.CurrentItem
(....Email1DisplayName = "toto") alors que tu enregistres myitem.
attention tous les item d'un répertoire contact ne sont pas des contactitem, ex listes de distrib
essaye avec ccelle ci :
Sub modification() Dim myitem As ContactItem 'This will only work on contacts in the CURRENT folder
Set CurFolder = Application.ActiveExplorer.CurrentFolder
If CurFolder.DefaultItemType = 2 Then MsgBox "This process may take some time. You will be notified" & _ " when complete.", , "Contact Tools Message" Set myItems = CurFolder.Items
For i = 1 To myItems.Count On Error Resume Next Set myitem = myItems.Item(i) ' myItems.Item(i).Display
If myitem.CompanyName = "Testoto" Then myitem.Display myitem.HomeFaxNumber = "+1" & myitem.HomeFaxNumber myitem.Email1DisplayName = "toto" myitem.Save End If
' If Left(myitem.HomeFaxNumber, 2) <> "+1" And _ ' myitem.HomeFaxNumber <> "" Then ' myitem.HomeFaxNumber = "+1" & myitem.HomeFaxNumber ' ActiveInspector.CurrentItem.Email1DisplayName = "toto" ' End If ' ' If Left(myitem.BusinessFaxNumber, 2) <> "+1" And _ ' myitem.BusinessFaxNumber <> "" Then ' myitem.BusinessFaxNumber = "+1" & myitem.BusinessFaxNumber ' ActiveInspector.CurrentItem.Email1DisplayName = "toto" ' ' End If ' ' If Left(myitem.OtherFaxNumber, 2) <> "+1" And _ ' myitem.OtherFaxNumber <> "" Then ' myitem.OtherFaxNumber = "+1" & myitem.OtherFaxNumber ' ActiveInspector.CurrentItem.Email1DisplayName = "toto" ' End If
suite: Next MsgBox "Done!", 64, "Contact Tools Message"
Else MsgBox "The current folder is not a Contact folder " End If
End Sub
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 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/ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
