OutLook97 Sending message From VBScript: Why failed ?

[larryjr]

******************************************************
Dim ol,ns,newMessage,nl,myUser
Set ol = CreateObject("Outlook.Application&quot
Set ns = ol.GetNamespace("MAPI&quot
On Error Resume Next
ns.Logon "Microsoft Outlook Internet Settings"
if Err then
Err.Clear
Set ol = Nothing
Set ns = Nothing
Set ol = CreateObject("Outlook.Application&quot
Set ns = ol.GetNamespace("MAPI&quot
myUser = ns.CurrentUser.Name
End if
On Error GoTo 0
nl = Chr(10)
myBody = "Multi-Layer Ship Log for " & rundate
Set newMessage = ol.CreateItem(olMailItem)
With newMessage
.Subject ="TEST Transmittal" & rundate & " Exception report also"
.Body = myBody
.Recipients.Add("XXXX@XXXX.com&quot.Type = olTo
.Send
End With
ns.Logoff
Set ol = Nothing
*********************************************************
This VBScript failed using with WSH requesting a transport
provider by outlook97 though suceeded with VBA in Excel97.
I need a solution for this.

 

[larryjr]

Could anyone help me for this ?

 

[loganginger]

I replaced:
With newMessage
.Subject ="TEST Transmittal" & rundate & " Exception report also"
.Body = myBody
.Recipients.Add("XXXX@XXXX.com&quot.Type = olTo
.Send
End With

with:

With newMessage
.Subject ="TEST Transmittal" & rundate & " Exception report also"
.Body = myBody
.To = "xxx@xxx.com"
.Send
End With

and it seemed to work. Not sure if it's what you're after.