Dimanche 22 Avril 2018  
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 : 7
Membres en ligne : 0

 beaulieu 2 semaines
 callaghi 5 semaines
 EMERGENCY 9 semaines
 Charlie76 11 semaines
 joscopp 22 semaines
 JièL 22 semaines
 julbast 22 semaines
 pirobert 23 semaines
 zorro71 47 semaines
 Alphator 65 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:4 312
En ligne :7
Max. en ligne:312
Max. / jour:66 529
Total hier:5 016
Total ce mois:110 237
Total visites:19 643 946
Moyenne/jour:5 699

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 13646 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
R08060 Recréer un profil, R15100 [VBA] Imprimer les destinataires CCI, R17050 Un formulaire contient 2 formulaires : composition/lecture, R12080 Publier son planning sur Internet / Intranet ou un réseau personnel, R09125 Exporter les contacts d'Outlook vers Outlook Express, R02010 Connexion / Déconnexion automatique à Internet, R06005 Emplacements des différents fichiers d'Outlook, R15240 [VBA] Viewer de pièces jointes., R09040 Supprimer un des noms erronés de la suggestion d'adresses (saisie auto ou saisie semi auto), R03050 Définir le papier à lettres par défaut, R15400 [VBA] Changer les parametres POP des COMPTES, R09125 Exporter les contacts d'Outlook vers Outlook Express, R10030 Exporter tout ou partie du fichier .PST, R00140 Utiliser Outlook comme navigateur Web, R04010 Insérer une image dans un message

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