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
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