Jeudi 25 Mai 2017  
Navigation
FAQ Outlook
» Foire Aux Questions «
Recherche
Téléchargements
Forums Outlook
Plan du site
Liens
Login

Les inscriptions sont fermées

Pseudo

Mot de passe

Se souvenir de moi



Mot de passe oublié ? Mot de passe oublié ?
Connexions
Bienvenue à [FAMACLUB]
le 1,414ème membre
Visiteurs en ligne : 4
Membres en ligne : 0

 callaghi 8 semaines
 Alphator 17 semaines
 ande 23 semaines
 Oliv 25 semaines
 cubitus 28 semaines
 JièL 33 semaines
 angel 39 semaines
 Quartzkyte 47 semaines
 grouilau 48 semaines
 miguy973 57 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:3 272
En ligne :4
Max. en ligne:312
Max. / jour:66 529
Total hier:4 218
Total ce mois:95 485
Total visites:17 528 587
Moyenne/jour:5 625

Dernières 24h

























Publicité ; elle permet de financer le site
Navigation parmi les catégories/articles
« Catégorie     Q15000 Macros - VBA (41)  Catégorie »
[<<]  « Article  Article »  [>>]
R15410 [VBA] Remplacer dans les Contacts l'envoi au format RTF
Remplace au niveau des adresses Email de vos contacts l'option d'envoi au format RTF par "Laisser Outlook décider du meilleur format d'envoi". Utile lorsque vous avec un PDA qui se synchronise.
Lorsque l'adresse Email de votre contact est paramétrée pour envoyer un mail au format RTF celui-ci s'il n'utilise pas OUTLOOK risque de ne pas voir vos pièces jointes.

Cette Macro nécessite REDEMPTION.
http://www.dimastr.com/redemption/download.htm
choisir Download Developer version c'est une version qui ne peut PAS être intégrée dans un logiciel commercial.




Private Const SEND_RTF_FORMAT = 0

Private Const SEND_PLAINTEXT_FORMAT = 7

Private Const SEND_AUTO_FORMAT = 1
Private Sub ChangeSendingFormat()

'pour changer le format RTF dans les adresses Email.

'Create Michael Bauer

'http://www.vboffice.net/sample.html?mnu=2&smp=32&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


'Exemple pour un dossiers public

'Set Items = Session.Stores.Item("Dossiers publics").IPMRootFolder.Folders("Favoris").Folders("Contacts GSR").Items


' Dossier par default

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





Publié par Oliv le vendredi 16 février 2007 17:34 0 Commentaires 12778 Lecture(s) Imprimer
Commentaires
les commentaires sont fermés.
Copyright et partage
Ce site est sous licence Creative Commons.
Vous pouvez utiliser toutes les informations présentent ici, mais il vous est interdit de les reproduire sans citer la source.

Creative Commons License
OUI au partage
NON au « copillage »

Ajouter aux favoris / partager : 
URL :
BBcode :
HTML :
Cliquez ci dessus sur le lien que vous voulez copier et [Ctrl] + [C] ou cliquez sur le bouton [ C ]
Articles similaires
Articles Catégories
R06032 Utiliser l'archivage automatique avec les dates de réception Q06000 Les fichiers d'Outlook
R15045 [VBA] Ouvrir l'arborescence des pst contenant une boîte de réception Q15000 Macros - VBA
R15930 [VBA] Création de menu dans outlook Q15000 Macros - VBA
R17070 VSTO et les formulaires d'Outlook 2007 Q17000 Formulaires
R15380 [VBA] Envoi via VBA : suppression de la confirmation d'envoi Q15000 Macros - VBA
Nuage de tags
R01040 Laisser une copie de message sur le serveur, R01240 Modifier la durée d'affichage de « l'alerte » sur le bureau ou afficher une boîte de dialogue à valider., R08120 Erreur 554 Relay Access Denied, R03130 Voir la source du message dans l'entête, R15370 [VBA] Envoyer ou renvoyer un ou plusieurs mails, R16020 Importer des contacts d'un fichier Excel, R15210 [VBA] Déplacer le contenu d'un dossier vers un pst., R10080 Sauvegardez ses « Catégories » personnalisées et ses « Emplacements » ou lieux de rendez-vous, R14040 Personnaliser la barre d'outils d'Outlook, R10030 Exporter tout ou partie du fichier .PST, R14060 Gérer vos Notes, R01170 Remplacer la page d’accueil de « Outlook Aujourd’hui » (version 2002/2003), R15270 [VBA] Exécuter un script sur une règle, R08240 Pourquoi la désinstallation/Réinstallation ne fait rien ?!, R06090 Appliquer une règle aux messages existants

aucun Crack, CrackZ, no-CD, DownloadZ, TelechargementZ, Serial, Numéro de série, N0 de série, Serialz ni Keygen pour Outlook sur ce site.

Blague aléatoire
Publicité
Météo Marseille
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]