Add line to Subject in email

[Stockwell43]

Hello,

On my form I have a button with code to send an email to me for the user to
submit a change request form. In the subject, I have Change Request Form but
I also want to add the RecordID number in the subject as well. The RecordID
field is named txtRecordID.

How would I do that so the when I recieve the email it shws Change Request
Form Record ID 2 (or whatever number it is)?

Thanks!!!

 

[fredg]

Hello,

On my form I have a button with code to send an email to me for the user to
submit a change request form. In the subject, I have Change Request Form but
I also want to add the RecordID number in the subject as well. The RecordID
field is named txtRecordID.

How would I do that so the when I recieve the email it shws Change Request
Form Record ID 2 (or whatever number it is)?

Thanks!!!

Crystal ball not working today. Can you send your actual code so we
can see it?

 

[Stockwell43]

Hi Fredg, Thank you for responding.

Here is the code; I want to move the txtRecordID from My Message field to
Subject to she next to Change Request Form. Thanks!!!

Private Sub cmdSendRequest_Click()
On Error GoTo eh
Dim SendTo As String, MySubject As String, MyMessage As String
SendTo = "(e-mail address removed)"
MySubject = "Change Request Form"
MyMessage = MyMessage & vbNullString & vbCr & vbCr & "txtRecordID" & ": " &
Me.txtRecordID
DoCmd.SendObject acSendNoObject, , , SendTo, , , MySubject, MyMessage, True

eh:
If Err.Number = 2501 Then
MsgBox "This email message has not been sent. Message has been
cancelled."
End If
End Sub

 

[fredg]

Hi Fredg, Thank you for responding.

Here is the code; I want to move the txtRecordID from My Message field to
Subject to she next to Change Request Form. Thanks!!!

Private Sub cmdSendRequest_Click()
On Error GoTo eh
Dim SendTo As String, MySubject As String, MyMessage As String
SendTo = "(e-mail address removed)"
MySubject = "Change Request Form"
MyMessage = MyMessage & vbNullString & vbCr & vbCr & "txtRecordID" & ": " &
Me.txtRecordID
DoCmd.SendObject acSendNoObject, , , SendTo, , , MySubject, MyMessage, True

eh:
If Err.Number = 2501 Then
MsgBox "This email message has not been sent. Message has been
cancelled."
End If
End Sub

Remove the reference to txtRecordID from the message and place the
txtRecordID value into the subject?

MySubject = "Change Request Form " & Me![txtRecordID]
MyMessage = MyMessage

Is this what you want?

 

[Stockwell43]

Fred,

It works like a charm, thank you so much!!!

I place txtRecordID within the "" instead of out and I did not have the
brackets. )

Hi Fredg, Thank you for responding.

Here is the code; I want to move the txtRecordID from My Message field to
Subject to she next to Change Request Form. Thanks!!!

Private Sub cmdSendRequest_Click()
On Error GoTo eh
Dim SendTo As String, MySubject As String, MyMessage As String
SendTo = "(e-mail address removed)"
MySubject = "Change Request Form"
MyMessage = MyMessage & vbNullString & vbCr & vbCr & "txtRecordID" & ": " &
Me.txtRecordID
DoCmd.SendObject acSendNoObject, , , SendTo, , , MySubject, MyMessage, True

eh:
If Err.Number = 2501 Then
MsgBox "This email message has not been sent. Message has been
cancelled."
End If
End Sub

Remove the reference to txtRecordID from the message and place the
txtRecordID value into the subject?

MySubject = "Change Request Form " & Me![txtRecordID]
MyMessage = MyMessage

Is this what you want?