Sending a mail by clicking on hyperlink

Help
1

Hello everyone,

Email will be received with two hyperlinks, one to approve and other to reject the request. Once the approver clicks on either of the links, an email should be sent stating the approval/rejection of the request to the requestor. Can anyone help me with this. Attached is the screenshot for reference.

emailLink
emailLink791×199 6.17 KB

Thanks in Advance,
Vamsi

2

Hi Vamsi,
Can you please be clear on , where the click takes us to.

1 Like
3

Hi @sharathraju489,

Thanks for the reply.

It won’t take/redirect us anywhere. I want to send an email back.

Once we click on the link, an Email should be sent back to the requester. We will pass the requester mail ID in a variable. So, I just want to know how to send an email on click.

As of now I’m using this - <a href="mailto:someone@example.com?>Send Mail.

Is there any other better way to do the same? If there please suggest me.

Thanks in advance,
Vamsi.

4

Hi Vamsi

Did you found a solution?

5

Hi @annle,

What I found is this - mailto:robot@organisation.com?subject=Approve, where a new email will be popped up and user need to manually fill the details and click send.

Couldn’t find any other way. If you find it in further information, please post it here, it would be helpful.

Regards,
Vamsi

6

Hi Vamsi,

I also tried the mailto - but what I need is to have the original subject together with the approved/rejected. So we can see what has been approved.

in our process we are sending a mail with an attachment ( excel ) , we need an approval for the attached. I made a macro in excel with an approve and reject button - when you click on one of these, a mail with the attached fil will be sent to our Robot. It’s works fine.

7

Hey @annle could you please share your macro code ?

8

Hi,

Below the macro code - I have made two buttons ( two macros) in excel - one for approved and one for rejected.

Sub approved()
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
    .to = "Roberto@XXXX.dk"
    .CC = ""
    .BCC = ""
    .Subject = "Test:Approved "
    .Body = "Godkendelse af timer"
    .Attachments.Add ActiveWorkbook.FullName
    'You can add other files also like this
    '.Attachments.Add ("C:\test.txt")
    .Send   'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

End Sub

1 Like
9

This is awesome, i need to do something similar to this, how do i link this to the hyperlink on the email?