VBOffice

Lesebestätigung anfordern

Sie können Lesebestätigungen in Abhängigkeit vom Empfänger der Email anfordern.

Zuletzt geändert: 13.05.2020 | Aufrufe: 41.208  | #72
◀ Vorheriges Beispiel Nächstes Beispiel ▶
ReplyAll ReplyAll
Mit diesem Addin für Outlook erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten.

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.


tip  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
Category-Manager Category-Manager
Mit dem Category-Manager können Sie Outlook Kategorien gruppieren, synchronisieren und filtern, neuen Emails automatisch die Kategorie des Absenders zuweisen und vieles mehr. Das Addin ist auch für IMAP geeignet.
email  Senden Sie eine Nachricht