JimbobGilb
Posts: 28
|
Posted: 02/15/2010, 1:40 AM |
|
Good Morning,
Does any one have a solution to this? I am trying to email an editable grid using CDO.Message. I have base this order entry grid on the OrderEntry example in CCS pack but the example does not have an email function I could look at.
'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
I can send an email but this only sends the 1st row of the editable grid which has 20 rows. It maybe something simple but I am stuck at the moment.
Thanks in advance,
James
|
|
|
|