Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Outlook mes pièces jointes ne partent pas

mes pièces jointes ne partent pas

19 réponses
Avatar
JD
Bonjour,

Mes destinataires reçoivent bien le texte de mes e-mails mais rarement les
pièces jointes. Si je passe par Outlook Express, pas de problème, mais comme
j'ai un iPaq, je tiens à utiliser Outlook.

J'ai la version 2002 (SP3). Je n'ai pas trouvé la réponse sur
http://faq.outlook.free.fr/

Merci!
Signaler un problème avec ce contenu

9 réponses

Supprimer
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
1 2
Avatar
Philippe Cazaux-Moutou
Merci

mais j ai pas reussi a faire marcher rédemption et la macro

Le probleme est aussi sous vista

"Oliv'" a écrit dans le message
de news:

*JD que je salut a écrit *:
en condensé:
- ne pas composer les messages en RTF (seuls les utilisateurs
d'Outlook voit les pièces jointes, les utilisateurs d'autres
programmes ne les voient pas - particulièrement ceux d'Outlook
Express) - s'assurer que le message est en texte brut ou en html
- ouvrir un contact, double cliquer sur son adresse e-mail et
s'assurer que le format n'est pas RTF
- si nécessaire, désactiver Word comme traitement de texte par défaut
(outils > options > format de courrier)

Tiens-moi au courant des résultats! Mes premiers messages après ces
réglages sont passés sans problèmes.


C'est bien cela !!
en complément
http://groups.google.com/group/microsoft.public.fr.outlook/browse_frm/thread/a3899ae99f2594ca/752f6706abc0bf3c#752f6706abc0bf3c

et là la macro

http://groups.google.com/group/microsoft.public.fr.outlook/browse_frm/thread/4466d84c6721ed48/751e61043c697bcd?lnk=gst&q¬tivesync&rnum=1#751e61043c697bcd


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~





Avatar
JD
"Philippe Cazaux-Moutou" a écrit dans le
message de news:
Merci

mais j ai pas reussi a faire marcher rédemption et la macro

Moi non plus, je suis en territoire inconnu!

J'ai téléchargé REDEMPTION developer. Je le décompresse où?
Puis qu'est-ce que je fais?

Avatar
Oliv'
*JD que je salut a écrit *:
"Philippe Cazaux-Moutou" a écrit
dans le message de news:
Merci

mais j ai pas reussi a faire marcher rédemption et la macro

Moi non plus, je suis en territoire inconnu!

J'ai téléchargé REDEMPTION developer. Je le décompresse où?
Puis qu'est-ce que je fais?


tu lances l'install il va se mettre dans c:program filesredemption

dans outlook VBE tu fais outils /références et tu coches redemption.

le reste était expliqué.


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


Avatar
JD
Merci, je vais essayer ça.

"Oliv'" a écrit dans le message
de news:

*JD que je salut a écrit *:
"Philippe Cazaux-Moutou" a écrit
dans le message de news:
Merci

mais j ai pas reussi a faire marcher rédemption et la macro

Moi non plus, je suis en territoire inconnu!

J'ai téléchargé REDEMPTION developer. Je le décompresse où?
Puis qu'est-ce que je fais?


tu lances l'install il va se mettre dans c:program filesredemption

dans outlook VBE tu fais outils /références et tu coches redemption.

le reste était expliqué.


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~






Avatar
Philippe Cazaux-Moutou
Voici le code de la marco

je fais AltF11,
VB s souvre
je copie la macro dedans
je veux la lancer mais il me dit que Les marcos ne sont pas activé

je veux sauver
rien ne se passe

comment faire

---------------------------------------------------------------
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
Avatar
Oliv'
*Philippe Cazaux-Moutou que je salut a
écrit *:
Voici le code de la marco

je fais AltF11,
VB s souvre
tu inseres un module


je copie la macro dedans
ok

je veux la lancer mais il me dit que Les marcos ne sont pas activé
tu vas dans outils /macro / sécurité et tu mets à moyen.


je veux sauver
en fermant outllok il va te demander l'enregistrement du projet.


rien ne se passe

comment faire
ok ?

---------------------------------------------------------------
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


Avatar
Philippe Cazaux-Moutou
Bon, y a du progres

j ai vu la macro fonctionné, il a passé tous mes contact en revu
mais IL LES A TOUS MIS en RTF
alors que justement je ne veux pas qu il soit en RTF

que dois je changer dans la macro ?
d autre part quand je vais dans outlook outoilsmacro, ma macro n y est pa
suis de nouveau obligé de faire AltF11

ne peux t on l avoir dans un menu ?
ou en faire un executable ?

merci

"Oliv'" a écrit dans le message
de news:

*Philippe Cazaux-Moutou que je salut a
écrit *:
Voici le code de la marco

je fais AltF11,
VB s souvre
tu inseres un module


je copie la macro dedans
ok

je veux la lancer mais il me dit que Les marcos ne sont pas activé
tu vas dans outils /macro / sécurité et tu mets à moyen.


je veux sauver
en fermant outllok il va te demander l'enregistrement du projet.


rien ne se passe

comment faire
ok ?

---------------------------------------------------------------
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






Avatar
Oliv'
*Philippe Cazaux-Moutou que je salut a
écrit *:
Bon, y a du progres

j ai vu la macro fonctionné, il a passé tous mes contact en revu
mais IL LES A TOUS MIS en RTF
alors que justement je ne veux pas qu il soit en RTF


as tu bien tout en haut ?
PRIVATE CONST SEND_AUTO_FORMAT=1

que dois je changer dans la macro ?
d autre part quand je vais dans outlook outoilsmacro, ma macro n y
est pa suis de nouveau obligé de faire AltF11
supprime private devant

Sub ChangeSendingFormat

ne peux t on l avoir dans un menu ?


tu peux affecter un bouton à cette macro

ou en faire un executable ?
il faudrait la transfomer à partir de VB6 ou autre

ou alors en vbscript

merci
you're welcome

Oliv'
"Oliv'" a écrit dans le
message de news:

*Philippe Cazaux-Moutou que je
salut a écrit *:
Voici le code de la marco

je fais AltF11,
VB s souvre
tu inseres un module


je copie la macro dedans
ok

je veux la lancer mais il me dit que Les marcos ne sont pas activé
tu vas dans outils /macro / sécurité et tu mets à moyen.


je veux sauver
en fermant outllok il va te demander l'enregistrement du projet.


rien ne se passe

comment faire
ok ?

---------------------------------------------------------------
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






Avatar
Philippe Cazaux-Moutou
Merci bcp

tout marche

Mais j ailerai comprendre quand meme, pourquoi chaque synchro me deregle mes
contacts ??
un bug ??

pourquoi depuis le temps il n y a pas de correctif ??

merci encore


"Oliv'" a écrit dans le message
de news:

*Philippe Cazaux-Moutou que je salut a
écrit *:
Bon, y a du progres

j ai vu la macro fonctionné, il a passé tous mes contact en revu
mais IL LES A TOUS MIS en RTF
alors que justement je ne veux pas qu il soit en RTF


as tu bien tout en haut ?
PRIVATE CONST SEND_AUTO_FORMAT=1

que dois je changer dans la macro ?
d autre part quand je vais dans outlook outoilsmacro, ma macro n y
est pa suis de nouveau obligé de faire AltF11
supprime private devant

Sub ChangeSendingFormat

ne peux t on l avoir dans un menu ?


tu peux affecter un bouton à cette macro

ou en faire un executable ?
il faudrait la transfomer à partir de VB6 ou autre

ou alors en vbscript

merci
you're welcome

Oliv'
"Oliv'" a écrit dans le
message de news:

*Philippe Cazaux-Moutou que je
salut a écrit *:
Voici le code de la marco

je fais AltF11,
VB s souvre
tu inseres un module


je copie la macro dedans
ok

je veux la lancer mais il me dit que Les marcos ne sont pas activé
tu vas dans outils /macro / sécurité et tu mets à moyen.


je veux sauver
en fermant outllok il va te demander l'enregistrement du projet.


rien ne se passe

comment faire
ok ?

---------------------------------------------------------------
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










1 2