Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Outlook тема и тело письма из файла / 3 сообщений из 3, страница 1 из 1
13.11.2009, 16:36
    #36309767
Татик
Татик
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook тема и тело письма из файла
Можно ли чтобы тема письма и текст сообщения вставлялся из файла например из блокнота?


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Sub Workbook_Open()

Dim strBody
Dim oOutlook As New Outlook.Application
Dim oMessage As Outlook.MailItem
'Создаем объект сообщения
Set oMessage = oOutlook.CreateItem(olMailItem)
' Кому
oMessage.To = "tshv@mail.ru"

'Тема сообщения
oMessage.Subject = "Привет"

'Текст сообщения.
oMessage.HTMLBody = "<html><body><p>Здравствуйте.<p>Бла-бла-бла</body></html>"


'Отправляем сообщение
oMessage.Send


End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2009, 17:46
    #36309992
m
m
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook тема и тело письма из файла
Я знаю два варианта, оба они представлены ниже и каждый может использоваться в ситуации когда тема и тело письма находятся в одном файле, и когда в разных. В общем случае, код, представленный ниже, предназначен для случая с одним текстовым файлом для темы и тела.
Предполагается, что тема письма указана в первой строке текствого файла, далее пустая строка и текст письма. Вот такой вид:
Код: plaintext
1.
2.
3.
4.
5.
Тема

Текст письма...
...
...
и т.д.

Код возвращает весь текст в текстовом файле начиная с последнего символа первой строки (темы) плюс четыре символа (таб, возврат каретки и т.д.).

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Sub Test()
Dim objFile As Object
Dim objFSO As Variant
Dim s As String
Dim sA As String

'первый вариант когда записывается всю содержимое блокнота в строку, и соответственно
'в oMessage.Subject либо в oMessage.Subject
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("D:\vb\test.txt",  1 )
sA = objFile.readall

'второй вариант, когда происходит чтение по-строкам. код ниже читает только первую строку. что 
'бы прочитать весь файл таким образом нужно делать цикл
Open "D:\vb\test.txt" For Input As # 1 
Input # 1 , s
Close # 1 

Debug.Print Mid(sA, Len(s) +  5 )

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.11.2009, 15:28
    #36326120
Татик
Татик
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook тема и тело письма из файла
m,

спасибо, получилось )))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Outlook тема и тело письма из файла / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 529ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2178802]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 196ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 246ms
total:  529ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]