S
stockwell43
Hello,
I am having some trouble with this code. It works fine but my manager wants
the project name to show in the email. The button is on the form and when she
clicks it the Lead Project person and subject appear. How do I get the
project name to pull as well?
Here is the code:
Private Sub cmdEmail_Click()
On Error GoTo EH
Dim strDeveloper As String
strDeveloper = Me.AssignedTo & ""
If strDeveloper <> vbNullString Then
DoCmd.SendObject acSendNoObject, , , strDeveloper, , , "Project
Message", ""
MsgBox "E-Mail message has been sent to " & strDeveloper & ".",
vbInformation, "E-Mail Sent"
Else
MsgBox "Please designate a LC project lead. ", vbInformation,
"Project Lead Missing"
End If
Exit Sub
EH:
If Err.Number = 2501 Then
MsgBox "This email message has not been sent. Message has been
cancelled."
End If
End Sub
Thanks!!!!
I am having some trouble with this code. It works fine but my manager wants
the project name to show in the email. The button is on the form and when she
clicks it the Lead Project person and subject appear. How do I get the
project name to pull as well?
Here is the code:
Private Sub cmdEmail_Click()
On Error GoTo EH
Dim strDeveloper As String
strDeveloper = Me.AssignedTo & ""
If strDeveloper <> vbNullString Then
DoCmd.SendObject acSendNoObject, , , strDeveloper, , , "Project
Message", ""
MsgBox "E-Mail message has been sent to " & strDeveloper & ".",
vbInformation, "E-Mail Sent"
Else
MsgBox "Please designate a LC project lead. ", vbInformation,
"Project Lead Missing"
End If
Exit Sub
EH:
If Err.Number = 2501 Then
MsgBox "This email message has not been sent. Message has been
cancelled."
End If
End Sub
Thanks!!!!