Abstimmschaltflächen Outlook 2007

[tuana01]

Hallo...
ich benötige die Abstimmschaltflächen und eine Lesebestätigung (Outlook2007) und das für jede Mail die raus geht.
Die Mails werden aus Word generiert (Serienbrief)

Die Lesebestätigung habe ich hin bekommen

Public WithEvents myOutboxItems As Items

Sub Application_Startup()
Set myOutboxItems = Application.GetNamespace("MAPI").GetDefaultFolder _
(olFolderOutbox).Items
End Sub

Private Sub myOutboxItems_ItemAdd(ByVal Item As Object)
Item.ReadReceiptRequested = True 'Lesebestätigung
Item.Send 'E-Mail wird sofort gesendet
End Sub


aber leider bekomme ich die Abstimmschaltflächen nicht hin.
Wer kann mir helfen??

Vielen Dank im Voraus
Thomas