Exchange 2000 Send SMS with VB Script

[Sedanda]

Hi Forum,
I am trying to send an sms with MS Exchange server 2000 with our SMS Gateway using VB scripting
here is my Script

'FILE DESCRIPTION: Exchange Server Event Script

Option Explicit
' Global Variables
Set objSendMail = New vbSendMail.clsSendMail

' Event Handlers
' DESCRIPTION: This event is fired when a new message is added to the folder
Public Sub Folder_OnMessageCreated
' email versenden

With objSendMail
.SMTPHost = "jeff.group.local"
.From = "jeff@jeff.com"
.Recipient = "01712345678@sms.local"
.AsHTML = True
.Subject = "New Mail arrived"
.Message = sHTML
.Send
End Sub

Can anyone tell me what I am doing wrong
thanks
Jeff

 

[markdmac]

this line:
Set objSendMail = New vbSendMail.clsSendMail

Isn't vbscript. Looks to be Visual Basic. In VBScript everything is type Variant.

On a side note, you really should upgrade to a more recent version of Exchange. Exchange 2000 has been out of support for some time now.

I hope that helps.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.