[Iska]

а как просто отправить текст »

В той же самой теме, сообщение #17; если вложение не нужно, можно убрать строки кода с ним связанные:

Код:

Option Explicit

Const cdoSendUsingPort = 2
Const cdoBasic = 1

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


With WScript.CreateObject("CDO.Message")
	.From     = "***@gmail.com"
	.To       = "***@yandex.ru"
	.Subject  = "Заголовок"
	
	.TextBody = "Мама мыла раму"
	.TextBodyPart.Charset = "windows-1251"
	
	With .Configuration.Fields
		.Item(strConstPartOfSchema & "smtpserver")       = "smtp.gmail.com"
		.Item(strConstPartOfSchema & "sendusing")        = cdoSendUsingPort
		.Item(strConstPartOfSchema & "smtpserverport")   = 465
		.Item(strConstPartOfSchema & "smtpauthenticate") = cdoBasic
		.Item(strConstPartOfSchema & "sendusername")     = "***@gmail.com"
		.Item(strConstPartOfSchema & "sendpassword")     = "***"
		.Item(strConstPartOfSchema & "smtpusessl")       = True
		
		.Update
	End With
	
	.Send
End With

WScript.Quit 0