Mercredi 26 Avril 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 : 2
Membres en ligne : 0

 callaghi 4 semaines
 Alphator 13 semaines
 ande 19 semaines
 Oliv 21 semaines
 cubitus 24 semaines
 JièL 29 semaines
 angel 35 semaines
 Quartzkyte 43 semaines
 grouilau 44 semaines
 miguy973 53 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:4 143
En ligne :2
Max. en ligne:312
Max. / jour:66 529
Total hier:3 631
Total ce mois:91 268
Total visites:17 398 404
Moyenne/jour:5 636

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 12727 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
R12090 Ajouter les jours fériés Français jusqu'en 2012 pour Outlook 2002/2003, R17010 Impossible d'exporter les données de champs personnalisés, R09220 Ajouter rapidement une adresse aux contacts, R03070 Créer son papier à lettres personnel, R10020 Sauvegarder les paramètres et fichiers .PST d'Outlook 2002 (Windows XP seulement), R10050 Sauvegarder ses paramètres de compte messagerie, R08220 Liens hypertexte inactifs, R15020 [VBA] Incorporer votre code HTML dans votre mail, R02060 Vérifier l'accès au serveur SMTP, R11010 Restaurer TOUT Office 2003, R15330 [VBA] Ajouter un destinataire CC ou CCI a chaque envoi de mail, R09190 Trier les destinataires dans le carnet d'adresses (version 2002/2003), R15050 [VBA] Modifier l'affichage sur tous les dossiers et sous-dossiers, R01040 Laisser une copie de message sur le serveur, R17002 Objets d'un formulaire

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 [/\]