stardust1979
New member
- Local time
- Today, 13:16
- Joined
- Aug 4, 2014
- Messages
- 3
Hi,
I have a form which on selecting a command button sends out an email to a manager to say a specification is ready to be reviewed (this contains a link to a sharepoint site where the spec resides). The "approval" details are stored in by DB also so I would like to have included in that email a link back to the access db and the particular record so the person receiving the email can easily approve, if that makes sense.
Is that possible? Does anyone know how?
Here is my code for generating the email (at the point "To approve please click here" is where I would like my link to go):
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "<font size=""3"" face=""Calibri"">" & _
"Dear xxxx,<br><br>" & _
"There is a new Development Specification ready for your approval :<br><B>" & _
txtWorkRequestID & " - " & txtDescription & "</B> <br>" & _
"Click on this link to open the file : " & _
"<a href='" & txtSpecLink & "'>" & _
""">Link to the file</A>" & _
"To approve please click here : " & _
"<br><br>Kind Regards," & _
"<br><br>xxxx</font>"
vRecipientList = DLookup("Email", "tblStaff", "[MALTTeam]= 'MAN'")
vSubject = "New xxxx Development Specification ready for your approval"
On Error Resume Next
With OutMail
.to = vRecipientList
.CC = ""
.BCC = ""
.Subject = vSubject
.HTMLBody = strbody
.Display 'or use .Send
End With
Thanks in advance
I have a form which on selecting a command button sends out an email to a manager to say a specification is ready to be reviewed (this contains a link to a sharepoint site where the spec resides). The "approval" details are stored in by DB also so I would like to have included in that email a link back to the access db and the particular record so the person receiving the email can easily approve, if that makes sense.
Is that possible? Does anyone know how?
Here is my code for generating the email (at the point "To approve please click here" is where I would like my link to go):
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "<font size=""3"" face=""Calibri"">" & _
"Dear xxxx,<br><br>" & _
"There is a new Development Specification ready for your approval :<br><B>" & _
txtWorkRequestID & " - " & txtDescription & "</B> <br>" & _
"Click on this link to open the file : " & _
"<a href='" & txtSpecLink & "'>" & _
""">Link to the file</A>" & _
"To approve please click here : " & _
"<br><br>Kind Regards," & _
"<br><br>xxxx</font>"
vRecipientList = DLookup("Email", "tblStaff", "[MALTTeam]= 'MAN'")
vSubject = "New xxxx Development Specification ready for your approval"
On Error Resume Next
With OutMail
.to = vRecipientList
.CC = ""
.BCC = ""
.Subject = vSubject
.HTMLBody = strbody
.Display 'or use .Send
End With
Thanks in advance