hi,

i have set a form up in excel and created a command button to email the
completed form back. there is an option for a new email message in outlook
to have a voting component, such as approve or reject. how do i add this
command to the below macro?


Private Sub CommandButton1_Click()

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
..To = ""
..CC = ""
..BCC = ""
..Subject = "Order"
..Body = ""
..Attachments.Add ActiveWorkbook.FullName
..display
End With
Set OutMail = Nothing
Set OutApp = Nothing

End Sub

Just before your '.Display' line insert the following:-

.VotingOptions = "Approve;Reject"

Should do the trick.

--
Alan Moseley IT Consultancy
http://www.amitc.co.uk

If I have solved your problem, please click Yes below. Thanks.


"BBB" wrote:

> hi,
>
> i have set a form up in excel and created a command button to email the
> completed form back. there is an option for a new email message in outlook
> to have a voting component, such as approve or reject. how do i add this
> command to the below macro?
>
>
> Private Sub CommandButton1_Click()
>
> Dim OutApp As Object
> Dim OutMail As Object
> Set OutApp = CreateObject("Outlook.Application")
> Set OutMail = OutApp.CreateItem(0)
> With OutMail
> .To = ""
> .CC = ""
> .BCC = ""
> .Subject = "Order"
> .Body = ""
> .Attachments.Add ActiveWorkbook.FullName
> .display
> End With
> Set OutMail = Nothing
> Set OutApp = Nothing
>
> End Sub
>