Use specific Exchange account to send message from in vbsctipt

Hi all,

Please help me with my scripting problem. Here is the situation:

I have to send a message from specific email address from VBScript. I've got Exchange server 2003 and MS Outlook 2007 as an appplication if this matters. 

My code is listed below. It works perfect but I sending out message only from my profile. How to use ns.Logon correctly to use another account or should I use something else instead of it? 

Dim ToAddress
Dim MessageSubject
Dim MessageBody
Dim MessageAttachment

Dim ol, ns, newMail

ToAddress = "someone@domain.com" 
MessageSubject = "subject text"
MessageBody = "body"
MessageAttachment = "path_to_attachment"

Set ol = WScript.CreateObject("Outlook.Application")
Set ns = ol.getNamespace("MAPI")
ns.logon "", "", true, false
Set newMail = ol.CreateItem(olMailItem)
newMail.Subject = MessageSubject
newMail.HTMLBody = MessageBody & vbCrLf

Set myRecipient = ns.CreateRecipient(ToAddress)
myRecipient.Resolve
If Not myRecipient.Resolved Then
MsgBox "unknown recipient"
Else
newMail.Recipients.Add(myRecipient)
newMail.Attachments.Add(MessageAttachment).Display name = "name"
newMail.Recipients.Add(CCAddress)
newMail.Send
End If

Set ol = Nothing

When in doubt, read the documentation. If you want to use a different profile, you need to specify the profile and its password.