[Iska]

для отправки txt файла »

Его имя?

[APiM]

Не самого txt, а его содержимого!

[Iska]

APiM, имя, имя у файла какое?

[APiM]

mail.txt

[Iska]

Пробуйте:

Код:

Option Explicit

Const cdoSendUsingPort = 2
Const cdoBasic = 1

Const strConstPartOfSchema = "http://schemas.microsoft.com/cdo/configuration/"


Dim strSourceFile
Dim strContent


strSourceFile = "c:\Mail\mail.txt"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strSourceFile) Then
		With .OpenTextFile(strSourceFile)
			strContent = .ReadAll()
			.Close
		End With
		
		With WScript.CreateObject("CDO.Message")
			.From     = "account@mail.ru"
			.To       = "account@yandex.ru"
			.Subject  = "Content of file [" & strSourceFile & "]"
			
			.TextBody = strContent
			.TextBodyPart.Charset = "windows-1251"
			
			With .Configuration.Fields
				.Item(strConstPartOfSchema & "smtpserver")       = "smtp.mail.ru"
				.Item(strConstPartOfSchema & "sendusing")        = cdoSendUsingPort
				.Item(strConstPartOfSchema & "smtpserverport")   = 25
				.Item(strConstPartOfSchema & "smtpauthenticate") = cdoBasic
				.Item(strConstPartOfSchema & "sendusername")     = "account@mail.ru"
				.Item(strConstPartOfSchema & "sendpassword")     = "password"
				
				.Update
			End With
			
			.Send
		End With
	Else
		WScript.Echo "Source file [" & strSourceFile & "] not found."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

P.S. Вложением — надёжнее: заведомо нет проблем с кодировкой.

[APiM]

Спасибо, а можно ещё сделать чтобы не надо было пароль вводить?

[Iska]

А это:

Код:

.Item(strConstPartOfSchema & "sendpassword")     = "password"

что тогда?!

[APiM]

Можно как то сделать чтобы не нужно было вводить пароль от почты, просто скрипт будет использоваться не только мной, поэтому кто нибудь сможет посмотреть пароль

[Iska]

Можно как то сделать чтобы не нужно было вводить пароль от почты »

Нет, нельзя. Любые варианты «как-то» позволят получить этот пароль «не только Вам».

А что мешает завести для «не только Вы» свою учётную запись электронной почты, и пользовать её?