[OT] Using VBscript to send an email via outlook

Robert Sneidar slylabs13 at me.com
Mon Dec 17 12:29:22 CST 2012


yup.

On Dec 17, 2012, at 10:11 AM, Mike Bonner wrote:

> sorry for the double. Even if you do have to run cscript by hand, can still
> be done in a shell call.
> 
> 
> On Mon, Dec 17, 2012 at 11:08 AM, Mike Bonner <bonnmike at gmail.com> wrote:
> 
>> Hmm. Seems like i've done exactly this very thing. Wil have to get out a
>> windows box and test.
>> 
>> 
>> On Mon, Dec 17, 2012 at 10:57 AM, Robert Sneidar <slylabs13 at me.com> wrote:
>> 
>>> Cannot do it that way. Scripts will not launch automatically. They must
>>> be invoked by using cscript myfile.vbs. HTH
>>> 
>>> Bob
>>> 
>>> 
>>> On Dec 16, 2012, at 11:25 AM, Mike Bonner wrote:
>>> 
>>>> Try dumping the vbscript to a .vbs file and execute it with
>>>> shell("myfile.vbs")
>>>> 
>>>> In many cases it will just work. (probably send it to the temp folder so
>>>> you don't have to worry about cleanup afterwards)
>>>> 
>>>> 
>>>> On Sun, Dec 16, 2012 at 12:18 PM, Terry Judd <terry.judd at unimelb.edu.au
>>>> wrote:
>>>> 
>>>>> Hi all - I want (if possible) to use a VBscript to format and send
>>> emails
>>>>> from Livecode via Outlook on Windows ( I need to do it this way so
>>> that I
>>>>> can take advantage of Outlook's DeferredDeliveryTime feature).
>>>>> 
>>>>> Now, I know little or nothing about VBscript but the following routine
>>>>> (courtesy of a Google search) runs fine as a macro within Excel. If
>>> however
>>>>> I try to run it from Livecode (do [code] as "VBscript") it returns
>>>>> 'execution error' in the result. Does anyone know enough VBscript to
>>> tell
>>>>> me what I'm missing?
>>>>> 
>>>>> Regards,
>>>>> 
>>>>> Terry...
>>>>> 
>>>>> Sub SendMail()
>>>>> Dim OutApp As Object
>>>>> Dim Outmail As Object
>>>>> Dim strBody As String
>>>>> Set OutApp = CreateObject("Outlook.Application")
>>>>> OutApp.session.logon
>>>>> Set Outmail = OutApp.CreateItem(0)
>>>>> strBody = "This is a test"
>>>>> On Error Resume Next
>>>>> With Outmail
>>>>>   .To = "tsj at unimelb.edu.au<mailto:tsj at unimelb.edu.au>"
>>>>>   .CC = ""
>>>>>   .BCC = ""
>>>>>   .Subject = "Test email"
>>>>>   .Body = strBody
>>>>>   .DeferredDeliveryTime = "16/12/2012 16:00:00" 'dd/mm/yyyy hh:mm:ss'
>>>>>   .Send
>>>>> End With
>>>>> On Error GoTo 0
>>>>> Set Outmail = Nothing
>>>>> Set OutApp = Nothing
>>>>> End Sub
>>>>> 
>>>>> 
>>>>> Dr Terry Judd
>>>>> Senior Lecturer in Medical Education
>>>>> Medical Eduction Unit
>>>>> Faculty of Medicine, Dentistry & Health Sciences
>>>>> The University of Melbourne
>>>>> 
>>>>> 
>>>>> 
>>>>> _______________________________________________
>>>>> use-livecode mailing list
>>>>> use-livecode at lists.runrev.com
>>>>> Please visit this url to subscribe, unsubscribe and manage your
>>>>> subscription preferences:
>>>>> http://lists.runrev.com/mailman/listinfo/use-livecode
>>>>> 
>>>> _______________________________________________
>>>> use-livecode mailing list
>>>> use-livecode at lists.runrev.com
>>>> Please visit this url to subscribe, unsubscribe and manage your
>>> subscription preferences:
>>>> http://lists.runrev.com/mailman/listinfo/use-livecode
>>> 
>>> 
>>> _______________________________________________
>>> use-livecode mailing list
>>> use-livecode at lists.runrev.com
>>> Please visit this url to subscribe, unsubscribe and manage your
>>> subscription preferences:
>>> http://lists.runrev.com/mailman/listinfo/use-livecode
>>> 
>> 
>> 
> _______________________________________________
> use-livecode mailing list
> use-livecode at lists.runrev.com
> Please visit this url to subscribe, unsubscribe and manage your subscription preferences:
> http://lists.runrev.com/mailman/listinfo/use-livecode




More information about the use-livecode mailing list