PDA

Vollständige Version anzeigen : Abstimmschaltflächen per Makro aktivieren


tuana01
08.06.2010, 15:22
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

Nachtmeister
07.07.2010, 11:57
Hallo,

bei Outlook 2003 geht das z.B. mit:

Item.VotingOptions = "Ja;Nein"

gruss

Nachtmeister