Lesebestätigung anfordern

Sie können in Outlook festlegen, dass für alle E-Mails, die Sie senden, eine Lesebestätigung vom Empfänger angefordert werden soll. Wenn Sie die Bestätigung nur für bestimmte Emails haben möchten, dann müßten Sie das für jeder Nachricht einzeln festlegen, was recht mühselig ist.

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 Variable 'Addresses' stehen die E-Mail Adressen. Sie können ganze E-Mail Adressen oder auch nur die Domainbezeichnungen angeben. Passen Sie beide Variablen für Ihre Bedürfnisse an, und fügen Sie der Liste beliebig viele Adressen durch ein Komma getrennt hinzu.

Beachten Sie auch: Ob der Empfänger Ihrer E-Mail tatsächlich eine Lesebestätigung sendet, entscheidet dieser selbst. Sie haben keinen Einfluss darauf.

  So fügen Sie Makros in Outlook ein

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

  ' anpassen:
  Request = True
  Addresses = Array("abc@domain.de", "@domain.com")

  Set Recipients = Mail.Recipients

  For i = 1 To Recipients.Count
    Adr = Recipients.Item(i).Address

    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