Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать


Давайте сначала разберёмся с работоспособностью:
Цитата mrxMonster:
Я попробовал этот код, последнюю строчку он показыват, но что косаемо проверки его даты тут непонятно. Ни ошибок ни результата. »
Я создал файл «E:\Песочница\0092\123.txt», записал в него предложенный текст, добавил строчку:
Код: Выделить весь код
28.11.2011 13:09:22 GVA-XP002 Warning RAID:2
обозначающую сегодняшнюю дату, заменил болванки в:
Код: Выделить весь код
With .Configuration.Fields
	.Item(strPartSchema & "sendusing")        = cdoSendUsingPort
	.Item(strPartSchema & "smtpauthenticate") = cdoBasic
	.Item(strPartSchema & "smtpserver")       = "smtp.mail.ru"
	.Item(strPartSchema & "smtpserverport")   = 25
	.Item(strPartSchema & "sendusername")     = "login"
	.Item(strPartSchema & "sendpassword")     = "password"
	
	.Update
End With

.To            = "to@mail.com"
.From          = "from@mail.com"
.Subject       = "Subject"
.TextBody      = strLine

.Send
на реальные данные и запустил скрипт. Письмо было отправлено на заданный адрес. А что у Вас?
Это сообщение посчитали полезным следующие участники:

Отправлено: 23:19, 28-11-2011 | #6