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!
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!