| | Awarded by
Microsoft since 2005: |  |
| | VBOffice Info | | Besucher | 1409316 | | Aufrufe | 5189983 |
| |
|
| |
| Autor: Michael Bauer | Homepage | | Datum: 19.11.2008 | Zugriffe: 14221 | | | | Beschreibung
Sie können in Outlook festlegen, dass für alle E-Mails, die Sie senden, eine Lesebestätigung vom Empfänger angefordert werden soll. Die Einstellung läßt sich auch für jede E-Mail einzeln vornehmen.
Dieses Beispiel erweitert Outlook um die Fähigkeit, Lesebestätigungen automatisch in Abhängigkeit vom Empfänger anzufordern bzw. nicht anzufordern. Damit kann Outlook automatisch Ausnahmen von der eigentlichen Einstellung machen.
Über die Variable 'Request' wird gesteuert, ob für die angegebenen Adressen eine Lesebestätigung angefordert (True) oder nicht angefordert (False) werden soll.
In der Variablen 'Addresses' stehen die E-Mail Adressen. Sie können ganze E-Mail Adressen oder auch nur die Domainbezeichnungen angeben. Bitte passen Sie beide Variablen für Ihre Bedürfnisse an, und fügen Sie der Liste beliebig viele Adressen durch ein Komma getrennt hinzu.
Bitte beachten Sie auch: Ob der Empfänger Ihrer E-Mail tatsächlich eine Lesebestätigung sendet, entscheidet dieser selbst. Sie haben keinen Einfluss darauf. |
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If TypeOf Item Is Outlook.MailItem Then
SetReadReceipt Item
End If
End Sub
Private Sub SetReadReceipt(Mail As Outlook.MailItem)
Dim i&, y&
Dim Adr$
Dim Recipients As Outlook.Recipients
Dim Addresses As Variant
Dim Request As Boolean
Request = True
Addresses = Array("abc@domain.de", "@domain.com")
Set Recipients = Mail.Recipients
For i = 1 To Recipients.Count
Adr = Recipients.Item(i)
For y = 0 To UBound(Addresses)
If InStr(1, Adr, Addresses(y), vbTextCompare) Then
Mail.ReadReceiptRequested = Request
Exit Sub
End If
Next y
Next i
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] |
| | |
|
