Attaching a shortcut to an email

[ryan1]

Need a little help attaching a shortcut to an email that i'm automating. I figured out how to send the email from query results, now i just need to attach a shortcut which will lead to another database.

 

[DougP]

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&quot), "RED&quot Or InStr(1, UCase(Head.Fields("SHIP_INSTRUCTIONS&quot), "RED&quot Or InStr(1, UCase(Head.Fields("SHIP_INSTRUCTIONS&quot), "FED-EX&quot Or InStr(1, UCase(Addr.Fields("SHIP_ADDR_2&quot), "FED-EX&quot Then
RedOrder = True
Redinfo = Redinfo & Chr$(10) & Chr$(13)
Redinfo = Redinfo & Chr$(10) & Chr$(13)
Redinfo = Head.Fields("SHIP_INSTRUCTIONS&quot & " " & Addr.Fields("SHIP_ADDR_2&quot & Chr$(10) & Chr$(13)
Redinfo = Redinfo & Chr$(10) & Chr$(13)
Redinfo = Redinfo & "SALES_ORDER = " & Head.Fields("SALES_ORDER&quot & Chr$(10) & Chr$(13)
Redinfo = Redinfo & "CUSTOMER = " & Cust.Fields("CUSTOMER_NAME&quot & Chr$(10) & Chr$(13)
Redinfo = Redinfo & "PROMISED BY = " & Head.Fields("SPECIAL_INSTRUCT&quot & Chr$(10) & Chr$(13)
Redinfo = Redinfo & Chr$(10) & Chr$(13)
Merch.MoveFirst
For A = 1 To Merch.RecordCount
Redinfo = Redinfo & Merch.Fields("STOCK_CODE&quot & " " & Merch.Fields("STOCK_DESCRIPTION&quot & 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