Create hyperlink in email

M

mattsmom

The following code is set to automatically send an email when certain
criteria are met. It works great; however I'd really like to send a link to
a Word document. Is there a way to include an active link in the message of
the email?

Private Sub Form_Close()
Dim strMsg As String
strMsg = "Does this structure replace an existing structure?"
strMsg = "Was this structure built as part of an XXXX Project?"

If MsgBox("Does this structure replace an existing structure?", vbYesNo) =
vbNo Then
DoCmd.Close
Else
If MsgBox("Was this structure built as part of an XXXX Project?", vbYesNo) =
vbNo Then
DoCmd.Close
Else
DoCmd.SendObject , "", "", "xxx@xxxx", "xxx@xxxx", "", " New Structures
Added to LGBI Database", _
"New structures have been added to the LGBI database. It was indicated
these structures were constructed as part of a Replacement Project." &
vbNewLine & vbNewLine & _
"Please consult Work Program and delete existing structure from inventory" &
vbNewLine & vbNewLine & vbNewLine & vbNewLine & "My Name" & vbNewLine & _
"Project Coordinator" & vbNewLine & "Department" & vbNewLine & "Company
Name" & vbNewLine & "Address" _
& vbNewLine & "City, State, Zip" & vbNewLine & "Phone " & vbNewLine &
"xxx@xxxx", No, ""

End If
End If

End Sub


Any suggestions are truly appreciated!
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top