[Iska]

Или, для многострочного письма, так:

Код:

Option Explicit

Const ForReading       = 1

Const cdoSendUsingPort = 2
Const cdoBasic         = 1

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

Dim i
Dim strLine
Dim strValue


i = 0
strValue = ""

Do
	i = i + 1
	strLine = InputBox("Введите [" & CStr(i) & "] строку тела письма " & _
		"(введите пустую строку для окончания)", "Формирование тела письма", "Введите [" & CStr(i) & "] строку здесь…")
	
	If Len(strLine) <> 0 Then
		strValue = strValue & vbCrLf & strLine
	Else
		strValue = Mid(strValue, 3)
		
		Exit Do
	End If
Loop

If Len(strValue) <> 0 Then
	If MsgBox("Вы сформировали следующее тело письма:" & vbCrLf & vbCrLf & _
		strValue & vbCrLf & vbCrLf & _
		"Отправить письмо?", vbOKCancel, "Отправка письма") = vbOK Then
		
		With WScript.CreateObject("CDO.Message")
			With .Configuration.Fields
				.Item(strPartSchema & "sendusing")        = cdoSendUsingPort
				.Item(strPartSchema & "smtpauthenticate") = cdoBasic
				.Item(strPartSchema & "smtpserver")       = "smtp.mail.ru"
				.Item(strPartSchema & "smtpserverport")   = 25
				.Item(strPartSchema & "sendusername")     = "test@mail.ru"
				.Item(strPartSchema & "sendpassword")     = "testtest1"
				
				.Update
			End With
			
			.To            = "mains1@mail.ru"
			.From          = "test@mail.ru"
			.Subject       = "test mail"
			.TextBody      = strValue
			
			.Send
		End With
	End If
Else
	' Nothing to do
End If

WScript.Quit 0

Если этого недостаточно/неудобно, существует иной способ — создание тела письма посредством формы на *.hta.