Outlook Email Activity with voting button

Hi All,

Do you have any idea how to convert below Outlook Macro to a UiPath Activity?

Public Sub CreateVotingMessage()
Dim objMsg As MailItem

Set objMsg = Application.CreateItem(olMailItem)

With objMsg
.Subject = “What’s for lunch?”
.VotingOptions = “Mexican;Italian;Fast Food;Chinese”
.Importance = olImportanceHigh
.ExpiryTime = DateAdd(“d”, 3, Now) '3 days from now
.Display
End With
Set objMsg = Nothing
End Sub

Try with

image