WSH VBScript Help

I have two problems (both are probably really easy fixes) :

1) I am having trouble getting either the CDONTS.NewMail or
CDO.Message objects to work properly.
2) I need to know what the new line escape character is for
VBScript

I am Running Windows XP Pro with IIS's SMTP service installed.

 

1. What error message are you getting.

2. New line = \n

 

No Error

The problem is that there is no error reported. but no Mail message sent either (that I can tell) I will double check IIS but I am pretty sure it is working correctly.

 

check your SMTP mail folder see if it has backed up bad mail. The mail folder is in the Inetpub directory.

 

BadMail

It has 57 messages, so I guess it must be a problem with IIS. Just to be sure, I am attaching a copy of the mail function I wrote.

 

open up one of the e-mails and see what data was created and what is missing.. this will help you determine what the problem is.

 

I deleted all of the files from the badmail directory (as they were old test messages) and reran the script twice. No bad file was created nor was any message sent.

 

are you using " ON ERROR RESUME NEXT" at all before you hit the function?

does the script time out?

is the smtp service running and is the smtp server on?

 

I am not Using On Error Resume next, nor does the script time out. I dont think it is a problem with the function as I just looked at the queue folder and saw 2 messages waiting to go out. The services are all running. Also, I must be using the newline character incorrectly, because when I put it inside quotations, it obviously won't work, but I get an error when I attempt to format it as below:

Dim strIHateVBScript
'this one gives an error
strIHateVBScript = "I am getting annoyed" & \n "at this point"
'and so does this one
strIHateVBScript = strIHateVBScript & \n & "error"

 

try VBCRLF for line feed instead.

if there is mail pending then it should be sending.. I didn't see anything wrong with your function either which is why I'm shooting for other reasons. Check your event manager and see if there is anything out of ordinary.

Are you using your email address in the from and to lines so you can test properly?

 

Forgive my ignorance, but what is VBCRLF?

Also, you are right it has to be a problem with IIS, which I am sure I can fix, I just haven't had time to troubleshoot properly. I appreciate you looking at my function as I am new to VBScript and as always I am diving in over my head but then again that is the best way to learn

 

I normally do VBA and ASP so my standard VBscript knowlege is only going off my experience with the former.

VBCRLF is Visual Basic Carriage Return Line Feed.

instead of using \n .. just use & VBCRLF &

 

just to let you know, with VBScript and WSH 5.6, you have to use

VBCrLf (case sensitive). Thanks for all the help. Also, I found out that it is a problem with Windows XP's SMTP server. I ran the same script on a windows 2003 box with smtp configured and it worked perfectly. Now I just have to figure out why..

 

you know why? because CDONTS doesn't exist on windows XP.. DOH!! I totally forgot.. you need to copy the CDONTS.SYS file from win2k to xp..

 

I am using CDO.Message though and it is creating the mail, but it is having trouble routing it. (I see the mail in the badmail directory) It has to be something with DNS. Both Win2k3 boxes i ran the script on are configured as DNS servers as well. I am trying now to create a domain in the WinXP SMTP service that is configued to use a remote DNS server

 

silly me.. I forogt that the emails were being created.. please disregard my brain fart..

 

Any Idea on how to send a CDO message using a remote SMTP Server?

 

'Sending a text email using a remote server

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Example CDO Message"
objMessage.Sender = "me@my.com"
objMessage.To = "test@paulsadowski.com"
objMessage.TextBody = "This is some sample message text."

'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.myserver.com"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send

 

I get a compilation error at the following line (says invalid character
.Configuration.Fields.Item_("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

 

the underscore

 

One Last Question. I am Using CDO.Message to send email using a remote SMTP server (thanks for that code by the way) and I am having trouble getting files to attach. any suggestions?

Sub sendMail(fileName1, filename2, filename3)

Dim arrInfo
Dim Message
arrInfo = readInList(facilityLoaction)

strMessBody = arrInfo(4)

Set Message = CreateObject("CDO.Message")
With Message
.To = arrInfo(2)
.Subject = arrInfo(3)
.TextBody = strMessBody
.From = arrInfo(1)
.AddAttachment filename1
.AddAttachment filename2
.AddAttachment filename3
End With
Message.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
Message.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = arrInfo(5)
'Server port (typically 25)
Message.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Message.Configuration.Fields.Update
Message.Send
Set Message = Nothing

End Sub