Vendredi 24 Mars 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

 Alphator 9 semaines
 ande 14 semaines
 Oliv 16 semaines
 cubitus 20 semaines
 callaghi 23 semaines
 JièL 24 semaines
 angel 30 semaines
 Quartzkyte 39 semaines
 grouilau 39 semaines
 miguy973 48 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:3 879
En ligne :2
Max. en ligne:312
Max. / jour:66 529
Total hier:5 386
Total ce mois:125 096
Total visites:17 239 613
Moyenne/jour:5 645

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 12662 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
R01150 Afficher un compte Hotmail avec Outlook 2000 et suivant, R01070 Changer définitivement l'adresse de retour d'un compte, R15210 [VBA] Déplacer le contenu d'un dossier vers un pst., R99480 Attention virus dangereux, R17002 Objets d'un formulaire, R09130 Rechercher dans le carnet d'adresses, R09030 Activer / Désactiver la suggestion des adresses de messagerie (saisie auto ou saisie semi auto), R12120 Synchroniser Google Calendar avec Outlook 2010, R15330 [VBA] Ajouter un destinataire CC ou CCI a chaque envoi de mail, R08030 Pourquoi le même contact est affiché plusieurs fois dans le carnet d’adresses ?, R99160 Le mot de passe, R04040 Imprimer directement une pièce jointe, R11050 Restaurer ses paramètres de compte de messagerie, R09050 Supprimer TOUS les noms suggérés lors de la saisie d'adresses (saisie auto ou saisie semi auto), R11030 Importer tout ou partie d'un fichier .PST

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