[Iska]

Это называется «смешались в кучу кони, люди». Исправлять не стал.

Не проверялось:

Код:

Option Explicit

Dim EmailFrom
Dim EmailPassword
Dim strSmtpServer
Dim EmailTo
Dim objEmail

EmailFrom     = "От кого"
EmailPassword = InputBox("Пароль")
strSmtpServer = InputBox("smtp server")
EmailTo       = InputBox("Кому")

Set objEmail = CreateObject("CDO.Message")

With objEmail
	.From     = EmailFrom
	.To       = EmailTo
	.Subject  = InputBox("Тема")
	.Textbody = InputBox("Сообщение")
	
	With .Configuration.Fields
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")        = 2
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
		.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")     = EmailFrom
		.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")     = EmailPassword
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")       = strSmtpServer
		.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")   = 25
		
		.Update
	End With
	
	.Send
End With

Set objEmail = Nothing

WScript.Quit