JimbobGilb
Posts: 28
|
| Posted: 11/10/2017, 5:23 AM |
|
Good Day,
I am trying to add a condition to my onvalidate event but i am failing somewhere.
if store_orders_items.product_id.Value = "abc" then send email...
Where and what line should I put the argument for this.
'Send Email @36-67DACD2A
Dim sch, cdoConfig, cdoMessage
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 'cdoSendUsingPort
.Item(sch & "smtpserver") = "mail.Test.com"
.Update
End With
Set cdoMessage = Server.CreateObject("CDO.Message")
On Error Resume Next
With cdoMessage
Set .Configuration = cdoConfig
.From = "Test@Tes.com"
.To = "Test@Test.com"
.Subject = "TEST"
.HtmlBody = store_orders_items.product_id.Value
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
On Error Goto 0
'End Send Email
Many Thanks in advance for any assistance,
|
 |
 |
|
