[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. и запускаю его и выдает эту ошибку!!!

Если Вам не сложно, проверьте пожалуйста у себя этот код!!!
Вот мои данные от почты:
отправитель: логин: dostupmne@bk.ru пароль: 12345qwW
получатель: dostupdai@bk.ru

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