VBS/WSH/JS - [решено] НУЖЕН Скрипт на VBS ДЛЯ отправки документа на почту

[NEOINFORMATIONIS]

Здравствуйте, уважаемые формумчане, и профессионалы высокого класса люди.

Помогите пожалуйста создать скрипт на vbs чтобы без сторонних утилит и программ отправлял на почту @mail.ru,bk.ru,list.ru и тд. текстовый (документ.txt.)

перепробовал кучу вариантов ничего не работает!!!

Я новичок в этом деле, нужен готовый рабочий скрипт чтобы я вставил туда свои данные и все!!!

[Iska]

NEOINFORMATIONIS, на какой ОС будет работать скрипт?

[Iska]

NEOINFORMATIONIS, успешно отправил сообщение, воспользовавшись указанными Вами данными:



Скрытый текст

[spoiler]Код:

[/spoiler]

Код: Выделить всё

Option Explicit
Const cdoSendUsingPort = 2
Const cdoBasic = 1
Const strConstPartOfSchema = "http://schemas.microsoft.com/cdo/configuration/"
Dim strSourceFile
strSourceFile = "C:\Мои проекты\0135\Sample.txt"
With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strSourceFile) Then
		With WScript.CreateObject("CDO.Message")
			.From     = "dostupmne@bk.ru"
			.To       = "dostupdai@bk.ru"
			.Subject  = "File [" & strSourceFile & "]"
			.TextBody = "Мама мыла раму"
			.TextBodyPart.Charset = "windows-1251"
			.AddAttachment strSourceFile
			With .Configuration.Fields
				.Item(strConstPartOfSchema & "smtpserver")       = "smtp.mail.ru"
				.Item(strConstPartOfSchema & "sendusing")        = cdoSendUsingPort
				.Item(strConstPartOfSchema & "smtpserverport")   = 465
				.Item(strConstPartOfSchema & "smtpauthenticate") = cdoBasic
				.Item(strConstPartOfSchema & "sendusername")     = "dostupmne@bk.ru"
				.Item(strConstPartOfSchema & "sendpassword")     = "12345qwW"
				.Item(strConstPartOfSchema & "smtpusessl")       = True
				.Update
			End With
			.Send
		End With
	Else
		WScript.Echo "Source file [" & strSourceFile & "] not found."
		WScript.Quit 1
	End If
End With
WScript.Quit 0

Проверяйте.

[NEOINFORMATIONIS]

http://ifconfig.me/ip

этот адрес указывает мой настоящий ip адрес!



ISKA?, этот адрес:

http://ifconfig.me/ip

указывает мой настоящий текущий ip.

[NEOINFORMATIONIS]

DJ Mogarych , долго будешь доставать??!

[NEOINFORMATIONIS]

могу на джава сделать эту функцию вот код: var vers={

"5.0":2000,

"5.1":"XP",

"5.2":"Server 2003",

"6.0":"Vista",

"6.1":7,

"6.2":8,

"6.3":"8.1",

"10.0":10

};

navigator.userAgent.replace(/windows nt (\d+\.\d+)/gi,function(str,ver){

document.body.innerHTML+="OS: Windows "+vers[ver]+"";

return str

})



Но нет ему на vbs нужно показать.



ISKA, что думаете по этому поводу?!

[Iska]

windows 7



Скрипт будет работать на операционной системе windows

[NEOINFORMATIONIS]

Господа, очень прошу вас помочь мне с этим скриптом, нужен рабочий скрипт!!!



вот нашел такой скрипт: Но он не работает, кто-нибудь может помочь с настройкой данного скрипта или есть альтернативный вариант??!



Set objMessage = CreateObject("CDO.Message")

emailFrom = "test@mail.ru"

objMessage.Subject = "Проверка"

objMessage.From = emailFrom

objMessage.To = "test@mail.ru"

objMessage.TextBody = "Загаловок"

objMessage.AddAttachment "Путь до файла"

objMessage.Configuration.Fields.Item("

http://schemas.microsoft.com/cdo/config ... /sendusing

") = 2

objMessage.Configuration.Fields.Item("

http://schemas.microsoft.com/cdo/config ... smtpserver

") = "smtp.mail.ru"

objMessage.Configuration.Fields.Item("

http://schemas.microsoft.com/cdo/config ... serverport

") = 2525

objMessage.Configuration.Fields.Item("

http://schemas.microsoft.com/cdo/config ... thenticate

") = 1

objMessage.Configuration.Fields.Item("

http://schemas.microsoft.com/cdo/config ... ndusername

") = emailFrom

objMessage.Configuration.Fields.Item("

http://schemas.microsoft.com/cdo/config ... ndpassword

") = "Пароль от почты"

objMessage.Configuration.Fields.Update

objMessage.Send

[NEOINFORMATIONIS]

Цитата NEOINFORMATIONIS:



Не работает данный код выдает ошибку...

Строка: 1 Символ : 1 Ошибка : несоответсвие типа: !pation" код: 800А00D

VBS/WSH/JS - [решено] НУЖЕН Скрипт на VBS ДЛЯ отправки документа на почту

Подробно расскажите, что Вы делаете с приведённым кодом. Покажите скриншот с ошибкой.

[NEOINFORMATIONIS]

Сейчас скину вам код со своими данными



Вот, пожалуйста, вот так я заполняю данные, и ничего не работает.





Код:

Код: Выделить всё

Option Explicit
Const cdoSendUsingPort = 2
Const cdoBasic = 1
Const strConstPartOfSchema = "http://schemas.microsoft.com/cdo/configuration/"
Dim strSourceFile
strSourceFile = "C:\Users\Admin\Documents\honestech TVR\документ.txt"
With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strSourceFile) Then
		With WScript.CreateObject("CDO.Message")
			.From     = "dostupmne@bk.ru"
			.To       = "dostupdai@bk.ru"
			.Subject  = "File [" & strSourceFile & "]"
			.TextBody = "Мама мыла раму"
			.TextBodyPart.Charset = "windows-1251"
			.AddAttachment strSourceFile
			With .Configuration.Fields
				.Item(strConstPartOfSchema & "smtpserver")       = "smtp.mail.ru"
				.Item(strConstPartOfSchema & "sendusing")        = cdoSendUsingPort
				.Item(strConstPartOfSchema & "smtpserverport")   = 465
				.Item(strConstPartOfSchema & "smtpauthenticate") = cdoBasic
				.Item(strConstPartOfSchema & "sendusername")     = "dostupmne@bk.ru"
				.Item(strConstPartOfSchema & "sendpassword")     = "***12345qwW***"
				.Item(strConstPartOfSchema & "smtpusessl")       = True
				.Update
			End With
			.Send
		End With
	Else
		WScript.Echo "Source file [" & strSourceFile & "] not found."
		WScript.Quit 1
	End If
End With
WScript.Quit 0

111.jpg

111.jpg

http://forum.oszone.net/attachment.p...1&d=1573984197

Я скинул скриншот ошибки, попробуйте с моими данными которые я вам скинул.... ничего не работает, может я что та не так делаю??



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

потом все это сохраняю с расширением vbs. и запускаю его и выдает эту ошибку!!!



Если Вам не сложно, проверьте пожалуйста у себя этот код!!!

Вот мои данные от почты:

отправитель: логин: [url=mailto:dostupmne@bk.ru]dostupmne@bk.ru[/url] пароль: 12345qwW

получатель: [url=mailto:dostupdai@bk.ru]dostupdai@bk.ru[/url]



ISKA, надеюсь на Вас!!!