Just helped someone get this sorted and thought i woulds share. The trick was to allow Less Secure apps in your account. Here is the link
Turn it on and then just use the normal CDO code.
Dim oEmail, sEmailFrom, sEmailTo, sEmailSubject, sEmailBody,sBCC ' Send email sEmailTo = "admin@SmarterDimensions.com" sEmailFrom = "FromAddress@SmarterDimensions.com" sEmailSubject = "Email Subject" sEmailBody = "Email Body this is bold" sBCC = "SmarterDimensions@live.com.au" Set oEmail = CreateObject("CDO.Message") With oEmail With .Configuration.Fields .Item["http://schemas.microsoft.com/cdo/configuration/smtpusessl"] = True .Item["http://schemas.microsoft.com/cdo/configuration/smtpserver"] = "smtp.gmail.com" .Item["http://schemas.microsoft.com/cdo/configuration/sendusing"] = 2 .Item["http://schemas.microsoft.com/cdo/configuration/sendusername"] = "email@example.com" .Item["http://schemas.microsoft.com/cdo/configuration/sendpassword"] = "xxxxxxxxxxx" .Item["http://schemas.microsoft.com/cdo/configuration/smtpserverport"] = 465 .Item["http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"] = 60 .Item["http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"] = 1 .Update() End With End With oEmail.From = sEmailFrom oEmail.To = sEmailTo oEmail.BCC = sBCC oEmail.Subject = sEmailSubject oEmail.HTMLBody = sEmailBody oEmail.Send() set oEmail = Null
This code shows you how to update a sample record from an MRS script.
Dim oConnection ' Start code to check if the field has data in it. Set oConnection = CreateObject("ADODB.Connection") ' Standard Connection String You need to change this oConnection.ConnectionString = "Provider=SQLOLEDB.1;Password=MyPassword;Persist Security Info=-1;User ID=MyUser;Initial Catalog=Participants;Data Source=MyServer" oConnection.Open() If ( oConnection.State = 1 ) Then oConnection.Execute("UPDATE TABLE1 SET Queue = 'Fresh' WHERE Queue = 'Completed'") End If oConnection.Close() Set oConnection = Null
This shows us how we can run an MRS from within an MRS file.
Dim oScriptEngine, sScript, oProgram, sResult ' Define the test script sScript = "Dim x, y, result" + mr.CrLf + _ "x = ""Hello """ + mr.CrLf + _ "y = ""World""" + mr.CrLf + _ "result = x + y" ' Create the script engine and parse Set oScriptEngine = CreateObject("mrScript.ScriptEngine") Set oProgram = oScriptEngine.Parsers.Parse(sScript, oScriptEngine, 0) ' Execute the script oScriptEngine.Execute(oProgram, 0) ' Get the result variable value sResult = oProgram.Variables["result"]
I have been on holiday for the last few weeks and during that time I managed to get some articles written. Whilst on holiday I was asked by 2×4 if I wanted to have a play with their backup tool and of course I excepted. This article is about that app and it shows you what it can do and how you can do it in the first release. To be honest , and I get nothing for saying this , I think this will turn into a “Must Have App” for all those users out there , and I know a few , that struggle with or do not even do backups. With a couple of clicks you have backed up a project or restored it. No Complicate procedures , just a few clicks and you are done. Anyway , here is what I did and the screen shots that go with it.
Did you know that you can write dos batch files to execute your mrs and dms scripts , Ace asked us the other day how he could sucessfully parameterise these scripts to make them generic and easy to use for multiple projects. In this post we will show you how this can be done.
As you know , Xceed have just released Version one of their excel export. In this article we will show you how it works and how fast it is compared to the IBM SPSS Excel Export.
In this article we are going to show you how you might change a quantum output file into something that can be loaded up into Excel. You might want to do this if you just want to look at the data file.
It’s been a while since our last article on printing to word, but we thought that we should continue as we have completed some more work on this. In this article you will see how to take the code that has already been written and use it inside of a DMS script to produce a word document for every record.