Macro to send emails from excel with Voting buttons

[Spoorthi]

Hi,

I have this macro which sends email via outlook. But now I want to add voting buttons to it. Can anyone please help me add voting buttons to this coding. I want to add three buttons..

Exceeds Expectations, Meets Expectations and Below Expectations.

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub TestMacro()
Dim Email As String, Subj As String
Dim Msg As String, URL As String
Dim r As Integer, x As Double
For r = 2 To 3 'data in rows 2-3
' Get the email address
Email = Cells(r, 2)

' Message subject
Subj = Cells(r, 4)
' Compose the message
Msg = ""
Msg = Msg & "Dear " & Cells(r, 1) & "," & vbCrLf & vbCrLf
Msg = Msg & "This is regarding a PeS query "
Msg = Msg & Cells(r, 3).Text & "." & vbCrLf & vbCrLf
Msg = Msg & "Please let us know if you are using this query or can it be archived" & "." & vbCrLf & vbCrLf
Msg = Msg & "Velmurugan" & "," & vbCrLf
Msg = Msg & "HR Ops Analyst," & vbCrLf
Msg = Msg & "Global Reporting Operations Team."

' Replace spaces with %20 (hex)
Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")

' Replace carriage returns with %0D%0A (hex)
Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A") ' Create the URL
URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg
' Execute the URL (start the email client)
ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
' Wait two seconds before sending keystrokes
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
Next r
End Sub

Eagerly waiting for a Solution...

 

[Andrew Poulsom]

To do that you would need to use Outlook VBA and the VotingOptions property. For help on Outlook VBA see:

http://www.rondebruin.nl/sendmail.htm

 

[JP2112]

To do that you would need to use Outlook VBA and the VotingOptions property. For help on Outlook VBA see:

http://www.rondebruin.nl/sendmail.htm

There is nothing on that page that addresses Voting buttons.

 

[JP2112]

Please use [code=rich][/code] tags when posting code.

MailItem.VotingOptions takes a semicolon-delimited string consisting of the options you want the recipients to choose from. Ex:

Msg.VotingOptions = "Yes;No;Maybe So"

This example is in C# but easily adapted to VBA:

How to: Add Voting Options to a Mail Item

 

[Andrew Poulsom]

There is nothing on that page that addresses Voting buttons.

Agreed, but I did mention the VotingOptions property. The link was to enable the OP to get started.