Отправка на почту текста из файла в теле сообщения

01.11.2012, 16:08. **Показов** 1661. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Здравствуйте! не подскажите как сделать чтобы в тексте письма отображалась информация из D:\DATA\script\info\data.log, чтобы не использовать .AddAttachment "D:\DATA\script\info\data.log"

Visual Basic

Dim objMsg
Dim Config
Set objMsg = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
Set Config = objMsg.Configuration
' Set the sendusing field to '....'.
Config("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Config("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail"
Config("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Config("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Config("http://schemas.microsoft.com/cdo/configuration/sendusername") = ".........."
Config("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ".........."
' Update the fields.
Config.Fields.Update
With objMsg
.To = "кому"
.From = "от кого"
.Subject = тема
.TextBody = здесь текст из D:\DATA\script\info\data.log
' ..
End With
objMsg.Send

Dragokas · 01.11.2012, 16:30

В начало:

Visual Basic

Dim objTextStream, TXT
Set objTextStream = CreateObject("Scripting.FileSystemObject").GetFile("D:\DATA\script\info\data.log").OpenAsTextStream(1)
TXT = objTextStream.ReadAll()
objTextStream.Close
Set objTextStream = Nothing

В письмо:

Visual Basic

.TextBody = TXT

01.11.2012, 16:38

Спасибо, все получилось)

denimmortal
	01.11.2012, 16:38	3
	Спасибо, все получилось)