PDA

View Full Version : Solved: Option buttons in outlook from VBA



lifeson
09-01-2008, 08:30 AM
I use the following to generate an email from a list of addresses
With ws
'loop through list
For i = 2 To r
'get e mail address
eMail = ws.Cells(i, "V").Value
tVenue = ws.Cells(i, "T").Value
With MItem
.To = eMail
.Subject = "test"
'.Attachments.Add (fPath & "\" & fname)
.Body = msg
.Importance = 2 'high
.Display
'NOTE: To actually send the emails, use .Send instead of .Display
'.send
End With 'mail item
Next i
End With 'ws

Is there a way I can create "Voting buttons" on the email item
i.e. "Accept; reject" using vba? :think:

Bob Phillips
09-01-2008, 09:43 AM
.VotingOptions = "Accept;Reject"

lifeson
09-01-2008, 09:52 AM
.VotingOptions = "Accept;Reject"


Xld
Can't get that to work
I have tried it at the start and end and middle and it does not create the buttons

Bob Phillips
09-01-2008, 09:58 AM
You won't see them when you send it, but send the message to yourself, you will see them when it arrives.

lifeson
09-01-2008, 10:14 AM
Doh!
As usual thanks xld!

Bob Phillips
09-01-2008, 10:16 AM
Talk about dumb though. Why doesn't it shown them when they are added, is it secret?

lifeson
09-01-2008, 10:21 AM
It could confuse a stupid person

:bug: :bug:

and it obviously did:rotlaugh:

Bob Phillips
09-01-2008, 10:29 AM
Then I am clearly stupid too, because it confused me when I tried it :bug: