Mardi 11 Août 2020  
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

 JièL 15 semaines
 manucau 17 semaines
 Manu-pb 18 semaines
 Oliv 23 semaines
 pirobert 64 semaines
 jcgdisle 89 semaines
 EMERGENCY 110 semaines
 beaulieu 122 semaines
 callaghi 126 semaines
 Charlie76 131 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:619
En ligne :2
Max. en ligne:312
Max. / jour:66 529
Total hier:1 783
Total ce mois:23 156
Total visites:23 891 948
Moyenne/jour:5 571

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 15977 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
R06070 Classer automatiquement les messages reçus ou envoyés, R20010 Configurer un compte POP pour Outlook 2002/2003, R99030 Faut deviner ?, R08150 Dossier personnel (racine) qui apparait en double, R15380 [VBA] Envoi via VBA : suppression de la confirmation d'envoi, R99095 Retrait d'argent ?, R99170 Nouveau logiciel, R03080 Rédiger un message sans lancer Outlook, R01190 Personnaliser la page d’accueil « Outlook Aujourd’hui », R06010 Changer l'emplacement du .PST d'Outlook, R05030 Modifier la police et la taille des caractères du corps du message, R08125 Impossible d'envoyer un message (mon FAI est Wanadoo/Orange), R10060 Sauvegarder le carnet d'adresses personnel (.PAB), R05080 Les en-têtes des mails (les destinataires, la date...) ne s'impriment pas, R15260 [VBA] Copier le corps et les en-têtes vers le presse-papier

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é
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]