[Iska]

Например, так:

читать дальше »

Код:

AutoItSetOption("MustDeclareVars", 1)

Local Const $cdoSendUsingPort = 2
Local Const $cdoBasic         = 1

Local Const $sPartSchema    = "http://schemas.microsoft.com/cdo/configuration/"


Local $oMessage       = ObjCreate("CDO.Message")
Local $oConfiguration = ObjCreate("CDO.Configuration")

Local $sFile = "C:\Temp\Some.txt"


With $oConfiguration.Fields
	.Item($sPartSchema & "sendusing")        = $cdoSendUsingPort
	.Item($sPartSchema & "smtpauthenticate") = $cdoBasic
	.Item($sPartSchema & "smtpserver")       = "smtp.mail.com"
	.Item($sPartSchema & "smtpserverport")   = 25
	.Item($sPartSchema & "sendusername")     = "login"
	.Item($sPartSchema & "sendpassword")     = "password"

	.Update
EndWith

With $oMessage
	.To            = "to@mail.com"
	.From          = "from@mail.com"
	.Subject       = "Тема письма"

	.Configuration = $oConfiguration

	.TextBody      = "Первая строка" & @CRLF & _
		"Очередная строка" & @CRLF & _
		"Последняя строка"

	If FileExists($sFile) = 1 Then
		.AddAttachment($sFile)
	EndIf

	.Send
EndWith

$oConfiguration = 0
$oMessage = 0

Exit(0)

Возможно, понадобится библиотека Collaboration Data Objects.

2. Логично ли переписать этот код так, чтобы она просто записывала время запуска, затем отправляла письмо с указанием точного времени запуска. »

Вопрос не понятен.