houstonbill
Technical User
- Nov 6, 2006
- 92
Below you will see the coding that is used in my project to send an automated email with attachment, a subject line, and some test in the body of the email. Everything was working perfect until I had a request to add an additional field to my form (which is built from my table) and also add that field to the subject line.
The field "WorkOrderName" has been added to the table and any queries out there. It seems to be everywhere except on my VB drowndown when I type " stWorkOrderName = Format(Me.WorkOrderName)". Thus, it will not show up in my subject line. Does anyone know why this would be??
Private Sub btnEmail_Click()
On Error GoTo Err_btnEmail_Click
Dim stWhere As String '-- Criteria for DLookup
Dim varTo As Variant '-- Address for SendObject
Dim stText As String '-- E-mail text
Dim RecDate As Variant '-- Rec date for e-mail text
Dim stSubject As String '-- Subject line of e-mail
Dim stWho As String '-- Reference to tblUsers
Dim stDept As String '-- Department who assigned ticket
Dim stOrderID As String '-- Work Order Number
Dim stCorpDte As String '-- CorpRecv Date of Project
Dim stRequester As String '-- Person Requesting
Dim stProvName As String '-- Prov Office Requesting
Dim stWorkOrderName As String '-- Name Given to Work Order
'-- Combo of names to assign price change to
stWho = Me.cboGroup
stWhere = "ClientServices_tbl.GroupID = " & "'" & stWho & "'"
'-- Looks up email addresses from ClientServices_tbl
varTo = DLookup("[ClientEMAIL]", "ClientServices_tbl", stWhere)
RecDate = Me.CurrDte
stSubject = ":: New Work Order Request Submitted :: " & OrderID & Space(3) & ProvName & Space(3) & WorkOrderName
stOrderID = Format(Me.ID, "00000")
stProvName = Format(Me.ProvName)
stWorkOrderName = Format(Me.WorkOrderName)
'-- Evaluators employee who assigns ticket
stCorpDte = Me.CmpyRecvDte
stDept = Me.cboDepartment
stRequester = Me.ReqName
stText = "A new work order request has been submitted. Complete details can be located under the work order number on the database." & Chr$(13) & Chr$(13) & _
"Work Order Number: " & stOrderID & Chr$(13) & _
"Corporate received date: " & stCorpDte & Chr$(13) & _
"Requested by: " & stDept & Chr$(13) & _
"Sent by: " & stRequester & Chr$(13) & _
"This is an automated message. Please do not respond to this e-mail."
'Write the e-mail content for sending to assignee
DoCmd.SendObject , , acFormatTXT, varTo, , , stSubject, stText, -1
DoCmd.GoToRecord , , acNewRec
Exit_btnEmail_Click:
Exit Sub
Err_btnEmail_Click:
MsgBox Err.Description
Resume Exit_btnEmail_Click
End Sub
The field "WorkOrderName" has been added to the table and any queries out there. It seems to be everywhere except on my VB drowndown when I type " stWorkOrderName = Format(Me.WorkOrderName)". Thus, it will not show up in my subject line. Does anyone know why this would be??
Private Sub btnEmail_Click()
On Error GoTo Err_btnEmail_Click
Dim stWhere As String '-- Criteria for DLookup
Dim varTo As Variant '-- Address for SendObject
Dim stText As String '-- E-mail text
Dim RecDate As Variant '-- Rec date for e-mail text
Dim stSubject As String '-- Subject line of e-mail
Dim stWho As String '-- Reference to tblUsers
Dim stDept As String '-- Department who assigned ticket
Dim stOrderID As String '-- Work Order Number
Dim stCorpDte As String '-- CorpRecv Date of Project
Dim stRequester As String '-- Person Requesting
Dim stProvName As String '-- Prov Office Requesting
Dim stWorkOrderName As String '-- Name Given to Work Order
'-- Combo of names to assign price change to
stWho = Me.cboGroup
stWhere = "ClientServices_tbl.GroupID = " & "'" & stWho & "'"
'-- Looks up email addresses from ClientServices_tbl
varTo = DLookup("[ClientEMAIL]", "ClientServices_tbl", stWhere)
RecDate = Me.CurrDte
stSubject = ":: New Work Order Request Submitted :: " & OrderID & Space(3) & ProvName & Space(3) & WorkOrderName
stOrderID = Format(Me.ID, "00000")
stProvName = Format(Me.ProvName)
stWorkOrderName = Format(Me.WorkOrderName)
'-- Evaluators employee who assigns ticket
stCorpDte = Me.CmpyRecvDte
stDept = Me.cboDepartment
stRequester = Me.ReqName
stText = "A new work order request has been submitted. Complete details can be located under the work order number on the database." & Chr$(13) & Chr$(13) & _
"Work Order Number: " & stOrderID & Chr$(13) & _
"Corporate received date: " & stCorpDte & Chr$(13) & _
"Requested by: " & stDept & Chr$(13) & _
"Sent by: " & stRequester & Chr$(13) & _
"This is an automated message. Please do not respond to this e-mail."
'Write the e-mail content for sending to assignee
DoCmd.SendObject , , acFormatTXT, varTo, , , stSubject, stText, -1
DoCmd.GoToRecord , , acNewRec
Exit_btnEmail_Click:
Exit Sub
Err_btnEmail_Click:
MsgBox Err.Description
Resume Exit_btnEmail_Click
End Sub