| | Awarded by
Microsoft since 2005: |  |
| | VBOffice Info | | Besucher | 1392058 | | Aufrufe | 5099695 |
| |
|
| |
| Autor: Michael Bauer | Homepage | | Datum: 11.09.2006 | Zugriffe: 22688 | | | | Beschreibung
Kontakte in Outlook können bis zu drei
E-Mail Adressen haben, und für jede können Sie festlegen, in
welchem Format E-Mails an diese gesendet werden sollen. Seit Outlook 2000
gibt es die Einstellungen a) Outlook wählt das optimale Format, b) als
RTF senden; und seit Outlook XP gibt es eine dritte Option c) als Nur-Text
senden. Die Information, in welchem Format gesendet werden soll, steckt
in der EntryID der jeweiligen E-Mail Adresse. Über das Outlook
Objektmodell können Sie diese EntryID nur lesen, zum Ändern
müssen Sie als VB(A)-Entwickler auf CDO 1.21 oder die Redemption
zurückgreifen. Das folgende Beispiel demonstriert anhand der
Redemption, wie das Sendeformat für die erste E-Mail Adresse
(Email1EntryID) geändert werden kann. Dazu muss die E-Mail Adresse
vorhanden sein. (Die IDs für die anderen beiden möglichen Adressen
sind bereits eingefügt, so dass Sie das Beispiel leicht selbst erweitern
können.) |
Private Const SEND_AUTO_FORMAT = 1
Private Const SEND_RTF_FORMAT = 0
Private Const SEND_PLAINTEXT_FORMAT = 7
Public Sub ChangeSendingFormat()
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}"
Const ID = &H8085
Set Session = CreateObject("Redemption.RDOSession")
Session.LogOn
Set Items = Session.GetDefaultFolder(olFolderContacts).Items
If Items.Count Then
Set Utils = CreateObject("Redemption.MapiUtils")
Set obj = Items(1)
PropID = Utils.GetIDsFromNames(obj, GUID, ID)
PropID = PropID Or &H102
For Each obj In Items
If TypeOf obj Is Redemption.RDOContactItem Then
AdrID = Utils.HrGetOneProp(obj, PropID)
If Not IsEmpty(AdrID) Then
AdrID(22) = SEND_AUTO_FORMAT
Utils.HrSetOneProp obj, PropID, AdrID, True
End If
End If
Next
End If
cleanUp:
If Not Session Is Nothing Then
Session.Logoff
End If
End Sub
|
| | |
| | |  | ReplyAll warnt Sie, bevor Sie unbeabsichtigt allen Empfängern
einer E-Mail antworten oder wenn Sie ein vertraulicher BCC-Empfänger der E-Mail ... [weiter] |
| | |  | Blitzschneller Zugriff auf die Hauptkategorienliste, gemeinsame Kategorien im Netzwerk, eine Erinnerungsfunktion ... [weiter] |
| | |  | SAM legt automatisch Absender, Signatur und Speicherort für gesendete Mails fest, z.B. anhand der ... [weiter] |
| | |  | OLKeeper verhindert zuverlässig, dass Mitarbeiter Outlook schließen und dadurch Termine oder E-Mails ... [weiter] |
| | |
|
