Bonjour
suis sous vista 5600 rc1 et j utilise le nouveau systeme de synchro pour
PDA
j ai un PDA HP 6915
chaque fois que je mets a jour mes contacts, toutes les adresse de mes
contacts sur mon pc passe en mode
Envoyer a l'aide du format RTF de outlook
au lieu de rester en mode
Laisser outlook décider du meilleur format d 'envoi
Comment empecher ca, car c est galere a chaque syncro d avoir a passer
tous
les contacts 1 par 1 pour changer le mode
merci
Bonjour
suis sous vista 5600 rc1 et j utilise le nouveau systeme de synchro pour
PDA
j ai un PDA HP 6915
chaque fois que je mets a jour mes contacts, toutes les adresse de mes
contacts sur mon pc passe en mode
Envoyer a l'aide du format RTF de outlook
au lieu de rester en mode
Laisser outlook décider du meilleur format d 'envoi
Comment empecher ca, car c est galere a chaque syncro d avoir a passer
tous
les contacts 1 par 1 pour changer le mode
merci
Bonjour
suis sous vista 5600 rc1 et j utilise le nouveau systeme de synchro pour
PDA
j ai un PDA HP 6915
chaque fois que je mets a jour mes contacts, toutes les adresse de mes
contacts sur mon pc passe en mode
Envoyer a l'aide du format RTF de outlook
au lieu de rester en mode
Laisser outlook décider du meilleur format d 'envoi
Comment empecher ca, car c est galere a chaque syncro d avoir a passer
tous
les contacts 1 par 1 pour changer le mode
merci
N y a t il pas de soulution ??
"Philippe Cazaux-Moutou" a écrit
dans le message de news: %238uNBEa$Bonjour
suis sous vista 5600 rc1 et j utilise le nouveau systeme de synchro
pour PDA
j ai un PDA HP 6915
chaque fois que je mets a jour mes contacts, toutes les adresse de
mes contacts sur mon pc passe en mode
Envoyer a l'aide du format RTF de outlook
au lieu de rester en mode
Laisser outlook décider du meilleur format d 'envoi
Comment empecher ca, car c est galere a chaque syncro d avoir a
passer tous
les contacts 1 par 1 pour changer le mode
merci
N y a t il pas de soulution ??
"Philippe Cazaux-Moutou" <ancestrologiePAS@SPAMwanadoo.fr> a écrit
dans le message de news: %238uNBEa$GHA.4292@TK2MSFTNGP02.phx.gbl...
Bonjour
suis sous vista 5600 rc1 et j utilise le nouveau systeme de synchro
pour PDA
j ai un PDA HP 6915
chaque fois que je mets a jour mes contacts, toutes les adresse de
mes contacts sur mon pc passe en mode
Envoyer a l'aide du format RTF de outlook
au lieu de rester en mode
Laisser outlook décider du meilleur format d 'envoi
Comment empecher ca, car c est galere a chaque syncro d avoir a
passer tous
les contacts 1 par 1 pour changer le mode
merci
N y a t il pas de soulution ??
"Philippe Cazaux-Moutou" a écrit
dans le message de news: %238uNBEa$Bonjour
suis sous vista 5600 rc1 et j utilise le nouveau systeme de synchro
pour PDA
j ai un PDA HP 6915
chaque fois que je mets a jour mes contacts, toutes les adresse de
mes contacts sur mon pc passe en mode
Envoyer a l'aide du format RTF de outlook
au lieu de rester en mode
Laisser outlook décider du meilleur format d 'envoi
Comment empecher ca, car c est galere a chaque syncro d avoir a
passer tous
les contacts 1 par 1 pour changer le mode
merci
*Philippe Cazaux-Moutou que je salut a
écrit *:N y a t il pas de soulution ??
"Philippe Cazaux-Moutou" a écrit
dans le message de news: %238uNBEa$Bonjour
suis sous vista 5600 rc1 et j utilise le nouveau systeme de synchro
pour PDA
j ai un PDA HP 6915
chaque fois que je mets a jour mes contacts, toutes les adresse de
mes contacts sur mon pc passe en mode
Envoyer a l'aide du format RTF de outlook
au lieu de rester en mode
Laisser outlook décider du meilleur format d 'envoi
Comment empecher ca, car c est galere a chaque syncro d avoir a
passer tous
les contacts 1 par 1 pour changer le mode
merci
tu peux lancer .(à chaque fois ) cette macro qui va remettre le bon
parametre
il te faut REDEMPTION http://www.dimastr.com/redemption
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' <DieseOutlookSitzung>
Private Const SEND_AUTO_FORMAT = 1
Private Const SEND_RTF_FORMAT = 0
' Erst ab Outlook XP verfügbar:
Private Const SEND_PLAINTEXT_FORMAT = 7
Private Sub ChangeSendingFormat()
'pour changer le format RTF dans les adresses Email.
'Create Michael Bauer
http://www.vboffice.net/sample.html?mnu=2&smp2&cmd=showitem
'Update Oliv' 2/10/2006
On Error GoTo cleanUp
Dim Session As Redemption.RDOSession
Dim Utils As Redemption.MAPIUtils
Dim obj As Redemption.rdoMail
Dim Items As Redemption.RDOItems
Dim AdrID As Variant
Dim PropID As Long
Const GUID As String = "{00062004-0000-0000-C000-000000000046}"
' An bestehende Session einloggen
Set Session = CreateObject("Redemption.RDOSession")
'decommenter les 2 lignes suivantes et remplacer pour utilisation avec un
compte exchange différent du profil
'user = InputBox("Nom de l'utilisateur", "compte exchange", "TOTO")
'Session.LogonExchangeMailbox user, "serveur"
'Commenter la ligne suivante si les 2 dessus sont décommentées
Session.Logon
' Standard-Kontakteordner
Set Items = Session.GetDefaultFolder(olFolderContacts).Items
If Items.Count Then
Set Utils = CreateObject("Redemption.MapiUtils")
' Einmalig irgendein Objekt abrufen, um die
' PropertyID ermitteln zu können
' ID für Email1EntryID
For i = 1 To 3 '-32603 To -32635 Step -16
Select Case i
Case 1
Const ID1 = &H8085
ID = ID1
Case 2 ' Email2EntryID = &H8095
Const ID2 = &H8095
ID = ID2
Case 3 ' Email3EntryID = &H80A5
Const ID3 = &H80A5
ID = ID3
End Select
Set obj = Items(1)
PropID = Utils.GetIDsFromNames(obj, GUID, ID)
PropID = PropID Or &H102
' Sendeformat einer EMail-Adresse für alle
' Kontakte ändern
For Each obj In Items
If TypeOf obj Is Redemption.RDOContactItem Then
AdrID = Utils.HrGetOneProp(obj, PropID)
If Not IsEmpty(AdrID) Then
If AdrID(22) <> SEND_AUTO_FORMAT Then
'commenter pour ne pas avoir le msgbox
MsgBox obj & vbCr & AdrID(22)
AdrID(22) = SEND_AUTO_FORMAT
Utils.HrSetOneProp obj, PropID, AdrID, True
End If
End If
End If
Next
Next i
End If
cleanUp:
If Not Session Is Nothing Then
Session.Logoff
End If
MsgBox "fin"
End Sub
' </DieseOutlookSitzung>
*Philippe Cazaux-Moutou <ancestrologiePAS@SPAMwanadoo.fr> que je salut a
écrit *:
N y a t il pas de soulution ??
"Philippe Cazaux-Moutou" <ancestrologiePAS@SPAMwanadoo.fr> a écrit
dans le message de news: %238uNBEa$GHA.4292@TK2MSFTNGP02.phx.gbl...
Bonjour
suis sous vista 5600 rc1 et j utilise le nouveau systeme de synchro
pour PDA
j ai un PDA HP 6915
chaque fois que je mets a jour mes contacts, toutes les adresse de
mes contacts sur mon pc passe en mode
Envoyer a l'aide du format RTF de outlook
au lieu de rester en mode
Laisser outlook décider du meilleur format d 'envoi
Comment empecher ca, car c est galere a chaque syncro d avoir a
passer tous
les contacts 1 par 1 pour changer le mode
merci
tu peux lancer .(à chaque fois ) cette macro qui va remettre le bon
parametre
il te faut REDEMPTION http://www.dimastr.com/redemption
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' <DieseOutlookSitzung>
Private Const SEND_AUTO_FORMAT = 1
Private Const SEND_RTF_FORMAT = 0
' Erst ab Outlook XP verfügbar:
Private Const SEND_PLAINTEXT_FORMAT = 7
Private Sub ChangeSendingFormat()
'pour changer le format RTF dans les adresses Email.
'Create Michael Bauer
http://www.vboffice.net/sample.html?mnu=2&smp2&cmd=showitem
'Update Oliv' 2/10/2006
On Error GoTo cleanUp
Dim Session As Redemption.RDOSession
Dim Utils As Redemption.MAPIUtils
Dim obj As Redemption.rdoMail
Dim Items As Redemption.RDOItems
Dim AdrID As Variant
Dim PropID As Long
Const GUID As String = "{00062004-0000-0000-C000-000000000046}"
' An bestehende Session einloggen
Set Session = CreateObject("Redemption.RDOSession")
'decommenter les 2 lignes suivantes et remplacer pour utilisation avec un
compte exchange différent du profil
'user = InputBox("Nom de l'utilisateur", "compte exchange", "TOTO")
'Session.LogonExchangeMailbox user, "serveur"
'Commenter la ligne suivante si les 2 dessus sont décommentées
Session.Logon
' Standard-Kontakteordner
Set Items = Session.GetDefaultFolder(olFolderContacts).Items
If Items.Count Then
Set Utils = CreateObject("Redemption.MapiUtils")
' Einmalig irgendein Objekt abrufen, um die
' PropertyID ermitteln zu können
' ID für Email1EntryID
For i = 1 To 3 '-32603 To -32635 Step -16
Select Case i
Case 1
Const ID1 = &H8085
ID = ID1
Case 2 ' Email2EntryID = &H8095
Const ID2 = &H8095
ID = ID2
Case 3 ' Email3EntryID = &H80A5
Const ID3 = &H80A5
ID = ID3
End Select
Set obj = Items(1)
PropID = Utils.GetIDsFromNames(obj, GUID, ID)
PropID = PropID Or &H102
' Sendeformat einer EMail-Adresse für alle
' Kontakte ändern
For Each obj In Items
If TypeOf obj Is Redemption.RDOContactItem Then
AdrID = Utils.HrGetOneProp(obj, PropID)
If Not IsEmpty(AdrID) Then
If AdrID(22) <> SEND_AUTO_FORMAT Then
'commenter pour ne pas avoir le msgbox
MsgBox obj & vbCr & AdrID(22)
AdrID(22) = SEND_AUTO_FORMAT
Utils.HrSetOneProp obj, PropID, AdrID, True
End If
End If
End If
Next
Next i
End If
cleanUp:
If Not Session Is Nothing Then
Session.Logoff
End If
MsgBox "fin"
End Sub
' </DieseOutlookSitzung>
*Philippe Cazaux-Moutou que je salut a
écrit *:N y a t il pas de soulution ??
"Philippe Cazaux-Moutou" a écrit
dans le message de news: %238uNBEa$Bonjour
suis sous vista 5600 rc1 et j utilise le nouveau systeme de synchro
pour PDA
j ai un PDA HP 6915
chaque fois que je mets a jour mes contacts, toutes les adresse de
mes contacts sur mon pc passe en mode
Envoyer a l'aide du format RTF de outlook
au lieu de rester en mode
Laisser outlook décider du meilleur format d 'envoi
Comment empecher ca, car c est galere a chaque syncro d avoir a
passer tous
les contacts 1 par 1 pour changer le mode
merci
tu peux lancer .(à chaque fois ) cette macro qui va remettre le bon
parametre
il te faut REDEMPTION http://www.dimastr.com/redemption
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' <DieseOutlookSitzung>
Private Const SEND_AUTO_FORMAT = 1
Private Const SEND_RTF_FORMAT = 0
' Erst ab Outlook XP verfügbar:
Private Const SEND_PLAINTEXT_FORMAT = 7
Private Sub ChangeSendingFormat()
'pour changer le format RTF dans les adresses Email.
'Create Michael Bauer
http://www.vboffice.net/sample.html?mnu=2&smp2&cmd=showitem
'Update Oliv' 2/10/2006
On Error GoTo cleanUp
Dim Session As Redemption.RDOSession
Dim Utils As Redemption.MAPIUtils
Dim obj As Redemption.rdoMail
Dim Items As Redemption.RDOItems
Dim AdrID As Variant
Dim PropID As Long
Const GUID As String = "{00062004-0000-0000-C000-000000000046}"
' An bestehende Session einloggen
Set Session = CreateObject("Redemption.RDOSession")
'decommenter les 2 lignes suivantes et remplacer pour utilisation avec un
compte exchange différent du profil
'user = InputBox("Nom de l'utilisateur", "compte exchange", "TOTO")
'Session.LogonExchangeMailbox user, "serveur"
'Commenter la ligne suivante si les 2 dessus sont décommentées
Session.Logon
' Standard-Kontakteordner
Set Items = Session.GetDefaultFolder(olFolderContacts).Items
If Items.Count Then
Set Utils = CreateObject("Redemption.MapiUtils")
' Einmalig irgendein Objekt abrufen, um die
' PropertyID ermitteln zu können
' ID für Email1EntryID
For i = 1 To 3 '-32603 To -32635 Step -16
Select Case i
Case 1
Const ID1 = &H8085
ID = ID1
Case 2 ' Email2EntryID = &H8095
Const ID2 = &H8095
ID = ID2
Case 3 ' Email3EntryID = &H80A5
Const ID3 = &H80A5
ID = ID3
End Select
Set obj = Items(1)
PropID = Utils.GetIDsFromNames(obj, GUID, ID)
PropID = PropID Or &H102
' Sendeformat einer EMail-Adresse für alle
' Kontakte ändern
For Each obj In Items
If TypeOf obj Is Redemption.RDOContactItem Then
AdrID = Utils.HrGetOneProp(obj, PropID)
If Not IsEmpty(AdrID) Then
If AdrID(22) <> SEND_AUTO_FORMAT Then
'commenter pour ne pas avoir le msgbox
MsgBox obj & vbCr & AdrID(22)
AdrID(22) = SEND_AUTO_FORMAT
Utils.HrSetOneProp obj, PropID, AdrID, True
End If
End If
End If
Next
Next i
End If
cleanUp:
If Not Session Is Nothing Then
Session.Logoff
End If
MsgBox "fin"
End Sub
' </DieseOutlookSitzung>
Merci
mais ayant un peu de mal avec l anglais, peux tu m expliquer ce que
ca fait ??
Surtout qu'il y a une partie en Allemand !!
"Oliv'" a écrit dans le
message de news: u46LHRz$
*Philippe Cazaux-Moutou que je
salut a écrit *:N y a t il pas de soulution ??
"Philippe Cazaux-Moutou" a écrit
dans le message de news: %238uNBEa$Bonjour
suis sous vista 5600 rc1 et j utilise le nouveau systeme de
synchro pour PDA
j ai un PDA HP 6915
chaque fois que je mets a jour mes contacts, toutes les adresse de
mes contacts sur mon pc passe en mode
Envoyer a l'aide du format RTF de outlook
au lieu de rester en mode
Laisser outlook décider du meilleur format d 'envoi
Comment empecher ca, car c est galere a chaque syncro d avoir a
passer tous
les contacts 1 par 1 pour changer le mode
merci
tu peux lancer .(à chaque fois ) cette macro qui va remettre le bon
parametre
il te faut REDEMPTION http://www.dimastr.com/redemption
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives :
http://groups.google.com/group/microsoft.public.fr.outlook Dernière
chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' <DieseOutlookSitzung>
Private Const SEND_AUTO_FORMAT = 1
Private Const SEND_RTF_FORMAT = 0
' Erst ab Outlook XP verfügbar:
Private Const SEND_PLAINTEXT_FORMAT = 7
Private Sub ChangeSendingFormat()
'pour changer le format RTF dans les adresses Email.
'Create Michael Bauer
http://www.vboffice.net/sample.html?mnu=2&smp2&cmd=showitem
'Update Oliv' 2/10/2006
On Error GoTo cleanUp
Dim Session As Redemption.RDOSession
Dim Utils As Redemption.MAPIUtils
Dim obj As Redemption.rdoMail
Dim Items As Redemption.RDOItems
Dim AdrID As Variant
Dim PropID As Long
Const GUID As String = "{00062004-0000-0000-C000-000000000046}"
' An bestehende Session einloggen
Set Session = CreateObject("Redemption.RDOSession")
'decommenter les 2 lignes suivantes et remplacer pour utilisation
avec un compte exchange différent du profil
'user = InputBox("Nom de l'utilisateur", "compte exchange", "TOTO")
'Session.LogonExchangeMailbox user, "serveur"
'Commenter la ligne suivante si les 2 dessus sont décommentées
Session.Logon
' Standard-Kontakteordner
Set Items = Session.GetDefaultFolder(olFolderContacts).Items
If Items.Count Then
Set Utils = CreateObject("Redemption.MapiUtils")
' Einmalig irgendein Objekt abrufen, um die
' PropertyID ermitteln zu können
' ID für Email1EntryID
For i = 1 To 3 '-32603 To -32635 Step -16
Select Case i
Case 1
Const ID1 = &H8085
ID = ID1
Case 2 ' Email2EntryID = &H8095
Const ID2 = &H8095
ID = ID2
Case 3 ' Email3EntryID = &H80A5
Const ID3 = &H80A5
ID = ID3
End Select
Set obj = Items(1)
PropID = Utils.GetIDsFromNames(obj, GUID, ID)
PropID = PropID Or &H102
' Sendeformat einer EMail-Adresse für alle
' Kontakte ändern
For Each obj In Items
If TypeOf obj Is Redemption.RDOContactItem Then
AdrID = Utils.HrGetOneProp(obj, PropID)
If Not IsEmpty(AdrID) Then
If AdrID(22) <> SEND_AUTO_FORMAT Then
'commenter pour ne pas avoir le msgbox
MsgBox obj & vbCr & AdrID(22)
AdrID(22) = SEND_AUTO_FORMAT
Utils.HrSetOneProp obj, PropID, AdrID, True
End If
End If
End If
Next
Next i
End If
cleanUp:
If Not Session Is Nothing Then
Session.Logoff
End If
MsgBox "fin"
End Sub
' </DieseOutlookSitzung>
Merci
mais ayant un peu de mal avec l anglais, peux tu m expliquer ce que
ca fait ??
Surtout qu'il y a une partie en Allemand !!
"Oliv'" <SUPPRIMERCECIcatteau@ricour-assurances.fr> a écrit dans le
message de news: u46LHRz$GHA.1220@TK2MSFTNGP04.phx.gbl...
*Philippe Cazaux-Moutou <ancestrologiePAS@SPAMwanadoo.fr> que je
salut a écrit *:
N y a t il pas de soulution ??
"Philippe Cazaux-Moutou" <ancestrologiePAS@SPAMwanadoo.fr> a écrit
dans le message de news: %238uNBEa$GHA.4292@TK2MSFTNGP02.phx.gbl...
Bonjour
suis sous vista 5600 rc1 et j utilise le nouveau systeme de
synchro pour PDA
j ai un PDA HP 6915
chaque fois que je mets a jour mes contacts, toutes les adresse de
mes contacts sur mon pc passe en mode
Envoyer a l'aide du format RTF de outlook
au lieu de rester en mode
Laisser outlook décider du meilleur format d 'envoi
Comment empecher ca, car c est galere a chaque syncro d avoir a
passer tous
les contacts 1 par 1 pour changer le mode
merci
tu peux lancer .(à chaque fois ) cette macro qui va remettre le bon
parametre
il te faut REDEMPTION http://www.dimastr.com/redemption
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives :
http://groups.google.com/group/microsoft.public.fr.outlook Dernière
chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' <DieseOutlookSitzung>
Private Const SEND_AUTO_FORMAT = 1
Private Const SEND_RTF_FORMAT = 0
' Erst ab Outlook XP verfügbar:
Private Const SEND_PLAINTEXT_FORMAT = 7
Private Sub ChangeSendingFormat()
'pour changer le format RTF dans les adresses Email.
'Create Michael Bauer
http://www.vboffice.net/sample.html?mnu=2&smp2&cmd=showitem
'Update Oliv' 2/10/2006
On Error GoTo cleanUp
Dim Session As Redemption.RDOSession
Dim Utils As Redemption.MAPIUtils
Dim obj As Redemption.rdoMail
Dim Items As Redemption.RDOItems
Dim AdrID As Variant
Dim PropID As Long
Const GUID As String = "{00062004-0000-0000-C000-000000000046}"
' An bestehende Session einloggen
Set Session = CreateObject("Redemption.RDOSession")
'decommenter les 2 lignes suivantes et remplacer pour utilisation
avec un compte exchange différent du profil
'user = InputBox("Nom de l'utilisateur", "compte exchange", "TOTO")
'Session.LogonExchangeMailbox user, "serveur"
'Commenter la ligne suivante si les 2 dessus sont décommentées
Session.Logon
' Standard-Kontakteordner
Set Items = Session.GetDefaultFolder(olFolderContacts).Items
If Items.Count Then
Set Utils = CreateObject("Redemption.MapiUtils")
' Einmalig irgendein Objekt abrufen, um die
' PropertyID ermitteln zu können
' ID für Email1EntryID
For i = 1 To 3 '-32603 To -32635 Step -16
Select Case i
Case 1
Const ID1 = &H8085
ID = ID1
Case 2 ' Email2EntryID = &H8095
Const ID2 = &H8095
ID = ID2
Case 3 ' Email3EntryID = &H80A5
Const ID3 = &H80A5
ID = ID3
End Select
Set obj = Items(1)
PropID = Utils.GetIDsFromNames(obj, GUID, ID)
PropID = PropID Or &H102
' Sendeformat einer EMail-Adresse für alle
' Kontakte ändern
For Each obj In Items
If TypeOf obj Is Redemption.RDOContactItem Then
AdrID = Utils.HrGetOneProp(obj, PropID)
If Not IsEmpty(AdrID) Then
If AdrID(22) <> SEND_AUTO_FORMAT Then
'commenter pour ne pas avoir le msgbox
MsgBox obj & vbCr & AdrID(22)
AdrID(22) = SEND_AUTO_FORMAT
Utils.HrSetOneProp obj, PropID, AdrID, True
End If
End If
End If
Next
Next i
End If
cleanUp:
If Not Session Is Nothing Then
Session.Logoff
End If
MsgBox "fin"
End Sub
' </DieseOutlookSitzung>
Merci
mais ayant un peu de mal avec l anglais, peux tu m expliquer ce que
ca fait ??
Surtout qu'il y a une partie en Allemand !!
"Oliv'" a écrit dans le
message de news: u46LHRz$
*Philippe Cazaux-Moutou que je
salut a écrit *:N y a t il pas de soulution ??
"Philippe Cazaux-Moutou" a écrit
dans le message de news: %238uNBEa$Bonjour
suis sous vista 5600 rc1 et j utilise le nouveau systeme de
synchro pour PDA
j ai un PDA HP 6915
chaque fois que je mets a jour mes contacts, toutes les adresse de
mes contacts sur mon pc passe en mode
Envoyer a l'aide du format RTF de outlook
au lieu de rester en mode
Laisser outlook décider du meilleur format d 'envoi
Comment empecher ca, car c est galere a chaque syncro d avoir a
passer tous
les contacts 1 par 1 pour changer le mode
merci
tu peux lancer .(à chaque fois ) cette macro qui va remettre le bon
parametre
il te faut REDEMPTION http://www.dimastr.com/redemption
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les archives :
http://groups.google.com/group/microsoft.public.fr.outlook Dernière
chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' <DieseOutlookSitzung>
Private Const SEND_AUTO_FORMAT = 1
Private Const SEND_RTF_FORMAT = 0
' Erst ab Outlook XP verfügbar:
Private Const SEND_PLAINTEXT_FORMAT = 7
Private Sub ChangeSendingFormat()
'pour changer le format RTF dans les adresses Email.
'Create Michael Bauer
http://www.vboffice.net/sample.html?mnu=2&smp2&cmd=showitem
'Update Oliv' 2/10/2006
On Error GoTo cleanUp
Dim Session As Redemption.RDOSession
Dim Utils As Redemption.MAPIUtils
Dim obj As Redemption.rdoMail
Dim Items As Redemption.RDOItems
Dim AdrID As Variant
Dim PropID As Long
Const GUID As String = "{00062004-0000-0000-C000-000000000046}"
' An bestehende Session einloggen
Set Session = CreateObject("Redemption.RDOSession")
'decommenter les 2 lignes suivantes et remplacer pour utilisation
avec un compte exchange différent du profil
'user = InputBox("Nom de l'utilisateur", "compte exchange", "TOTO")
'Session.LogonExchangeMailbox user, "serveur"
'Commenter la ligne suivante si les 2 dessus sont décommentées
Session.Logon
' Standard-Kontakteordner
Set Items = Session.GetDefaultFolder(olFolderContacts).Items
If Items.Count Then
Set Utils = CreateObject("Redemption.MapiUtils")
' Einmalig irgendein Objekt abrufen, um die
' PropertyID ermitteln zu können
' ID für Email1EntryID
For i = 1 To 3 '-32603 To -32635 Step -16
Select Case i
Case 1
Const ID1 = &H8085
ID = ID1
Case 2 ' Email2EntryID = &H8095
Const ID2 = &H8095
ID = ID2
Case 3 ' Email3EntryID = &H80A5
Const ID3 = &H80A5
ID = ID3
End Select
Set obj = Items(1)
PropID = Utils.GetIDsFromNames(obj, GUID, ID)
PropID = PropID Or &H102
' Sendeformat einer EMail-Adresse für alle
' Kontakte ändern
For Each obj In Items
If TypeOf obj Is Redemption.RDOContactItem Then
AdrID = Utils.HrGetOneProp(obj, PropID)
If Not IsEmpty(AdrID) Then
If AdrID(22) <> SEND_AUTO_FORMAT Then
'commenter pour ne pas avoir le msgbox
MsgBox obj & vbCr & AdrID(22)
AdrID(22) = SEND_AUTO_FORMAT
Utils.HrSetOneProp obj, PropID, AdrID, True
End If
End If
End If
Next
Next i
End If
cleanUp:
If Not Session Is Nothing Then
Session.Logoff
End If
MsgBox "fin"
End Sub
' </DieseOutlookSitzung>