|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.05.2011, 20:20 | #1 |
Регистрация: 02.05.2011
Сообщений: 4
|
Макрос открытия сообщения по шаблону
Подскажите, пожалуйста, как исправить данный макрос что бы outlook открывал письмо по шаблону?
Sub SendMail() Dim OutApp As Object Dim OutMail As Object Dim cell As Range Application.ScreenUpdating = False Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon On Error GoTo cleanup Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = Range("A1").Value .Subject = Range("A2").Value .Body = Range("A3") .Display End With On Error GoTo 0 Set OutMail = Nothing cleanup: Set OutApp = Nothing Application.ScreenUpdating = True End Sub |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
выгрузка в Excel по шаблону | Swatch | Microsoft Office Access | 4 | 10.11.2010 23:46 |
Проверка строки по шаблону | apx_angel | Общие вопросы Delphi | 2 | 30.08.2010 18:41 |
Макрос создания таблицы в ворде по шаблону. | opengeimer | Microsoft Office Word | 14 | 02.02.2009 11:41 |
Печать по шаблону | Klayman | Фриланс | 6 | 22.08.2008 10:10 |
Итератор к шаблону | Crucian | Общие вопросы C/C++ | 5 | 29.10.2007 16:52 |