Is the short cut like so?
C:\myfolder\myfile.mdb ???
If so then just put it in your email like so
using the docmd.
Here is some code I had fro you to look at. This looked at an orde to see if it was to go overnight. If so the notify the supervisor.
----------------------
'Check the Ship Address line 2 for "RED"
If InStr(1, UCase(Addr.Fields("SHIP_ADDR_2"

), "RED"

Or InStr(1, UCase(Head.Fields("SHIP_INSTRUCTIONS"

), "RED"

Or InStr(1, UCase(Head.Fields("SHIP_INSTRUCTIONS"

), "FED-EX"

Or InStr(1, UCase(Addr.Fields("SHIP_ADDR_2"

), "FED-EX"

Then
RedOrder = True
Redinfo = Redinfo & Chr$(10) & Chr$(13)
Redinfo = Redinfo & Chr$(10) & Chr$(13)
Redinfo = Head.Fields("SHIP_INSTRUCTIONS"

& " " & Addr.Fields("SHIP_ADDR_2"

& Chr$(10) & Chr$(13)
Redinfo = Redinfo & Chr$(10) & Chr$(13)
Redinfo = Redinfo & "SALES_ORDER = " & Head.Fields("SALES_ORDER"

& Chr$(10) & Chr$(13)
Redinfo = Redinfo & "CUSTOMER = " & Cust.Fields("CUSTOMER_NAME"

& Chr$(10) & Chr$(13)
Redinfo = Redinfo & "PROMISED BY = " & Head.Fields("SPECIAL_INSTRUCT"

& Chr$(10) & Chr$(13)
Redinfo = Redinfo & Chr$(10) & Chr$(13)
Merch.MoveFirst
For A = 1 To Merch.RecordCount
Redinfo = Redinfo & Merch.Fields("STOCK_CODE"

& " " & Merch.Fields("STOCK_DESCRIPTION"

& Chr$(10) & Chr$(13)
Merch.MoveNext
Next
Misc.MoveLast
End If
' E-MAIL Chris Custer
If RedOrder Then
DoCmd.SendObject acSendNoObject, "", acFormatTXT, "ChrisC", , , "---------HOT ORDER-------", Redinfo, False
End If
------------------------
DougP, MCP