SQL Server Performance Forum – Threads Archive

having trouble with this ActiveX script

I am having trouble getting this script working in my ActiveX task:
Dim iConf As New CDO.Configuration
Dim Flds As ADODB.Fields
Set Flds = iConf.Fields
Flds(cdoLanguageCode) = "en-us"
Flds(CDO.cdoTimeZoneIDURN) = cdoMountain
Flds.Update
Dim iMsg As New CDO.Message
Set iMsg.Configuration = iConf What I am trying to do is set the time zone for the message. All of the messages that my server generates through CDO are an hour off. Here is what I have so far, but it generates an error on the 2nd and 3rd Set Flds. commands.
Dim iConf
Set iConf = CreateObject("CDO.Configuration")
Dim Flds
Set Flds = iConf.Fields
Set Flds.cdoLanguageCode = "en-us"
Set Flds.cdoTimeZoneIDURN = 11
‘ 11 is value for Central time
Flds.Update Dim objMail
Set objMail = CreateObject("CDO.Message")
Set objMail.Configuration = iConf objMail.From = " email address goes here"
objMail.To = "my email address goes here"
objMail.Subject="Email from Server"
objMail.TextBody = "This was sent from a DTS job on Server"
objMail.Send
Set objMail = nothing Main = DTSTaskExecResult_Success
End Function The error that I am getting is:
Object doesn’t suppport this property or method:’cdoLanguageCode’ Thanks in advance for any responses to this post.
Live to Throw
Throw to Live

---

In VB dialects, you use SET for setting object variables, not for assigning values. Set Flds.cdoLanguageCode = "en-us"
Set Flds.cdoTimeZoneIDURN = 11

---

I just made the change that you suggested and I still get the same error. DTS ActiveX uses VB script. I am not a VB expert by any means so I don’t know the exact converion of the above code to what I need. Live to Throw
Throw to Live

---

I wonder about the mail object’s Configuration property – perhaps it needs a file name instead of an object? Set objMail.Configuration = iConf.<filename>

---

]]>