Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/15: Рейтинг темы: голосов - 15, средняя оценка - 4.53
Liatris
0 / 0 / 0
Регистрация: 24.02.2012
Сообщений: 4
1

Шаблон письма из Word в Outlook через Excel VBA

03.04.2013, 22:25. Просмотров 3083. Ответов 2
Метки нет (Все метки)

Здравствуйте! Подскажите, пожалуйста, можно ли решить следующую задачу и как?
Есть файл Excel, в нём кнопка, при нажатии на которую открывается Outlook и формируется письмо. текст письма я прописала в коде
Visual Basic
1
2
3
4
5
6
7
...
With NewMail
        .Display
        .Subject = "План корректирующих действий по ВА"
        .Body = "отправляю Вам отчет по ВА"
        .Attachments.Add (ThisWorkbook.FullName)
    End With
А возможно ли сделать так, чтобы брался текст из шаблона .doc? в шаблоне есть еще таблица, которая тоже должна добавляться в тело письма.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.04.2013, 22:25
Ответы с готовыми решениями:

Макрос отправки письма Outlook через Excel с автоприкреплением файла
Добрый день! Есть следующий вопрос: Нужно из Excel 2010 макросом создавать письмо Outlook, в...

Взаимодействие outlook и excel через VBA
Всем доброго времени! Возникла необходимость при получении письма в outlook изменять некторые...

VBA Outlook: Как открыть сообщение для редактирования через объектную модель Word?
Добрый день! Подскажите, плиз, как открыть сообщение (MailItem) для редактирования через...

Поиск в Word через Excel vba
Здравствуйте форумчане. Пишу скрипт, который должен находить совпадения между таблицей в Excel и...

2
dev.Free
Заблокирован
04.04.2013, 06:46 2
Цитата Сообщение от Liatris Посмотреть сообщение
А возможно ли сделать так, чтобы брался текст из шаблона .doc?
Есть самый просто вариант. Тупо копипаст в активное окно.
0
Liatris
0 / 0 / 0
Регистрация: 24.02.2012
Сообщений: 4
04.04.2013, 20:52  [ТС] 3
ой, да я бы с радостью и так оставила то, что есть)
Нашла на каком-то очень полезном сайте подобный код:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click() 
If ThisWorkbook.Name <> "название файла1.xls" Then 
Dim NewMail As Outlook.MailItem
    Call SendEmailUsingOutlook(NewMail)
    With NewMail
        .Display
        .Subject = "Отчет о проведении ВА"
        '.To = "адрес@кому.ru"
        .Body = GetBoiler(ActiveWorkbook.Path & "\template1.txt")
        .Attachments.Add (ThisWorkbook.FullName) 
    End With
Else
MsgBox "Вы работаете в шаблоне, сохраните файл", vbOKOnly
End If
End Sub
и функцию туда же через fso
Visual Basic
1
2
3
4
5
6
7
8
Function GetBoiler(ByVal sFile As String) As String
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
End Function
Как использовать doc и вставлять таблицу, так и не узнала. пробовала, конечно, к этому коду с doc что-то сделать. Но, по-моему с кодировками проблемы. он добавляет несколько непонятных символов.
0
04.04.2013, 20:52
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.04.2013, 20:52

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Словарь переводчика для Word, excel через VBA
Здравствуйте Уважаемые форумчане! Помогите если можно с решением или если хотя бы подскажите...

В Outlook-e не всегда срабатывает в VBA Application_ItemSend при отправке письма
Собственно, проблема: Если я создаю письмо в Оутлуке (нажимаю кнопку создать сообщение или...

Запрос через Outlook, обработка в Excel, ответ через Outlook
Уважаемые VB &amp; VBA_ програмисты! Насколько возможно реализовать следующую задачу, домашними ...

Как на VBA в Outlook при переборе узнать, есть ли у письма ЭЦП
Как на VBA в Outlook при переборе (проверяю адрес отправителя и тему) узнать есть ли у письма...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.