Вставка текста с форматированием в тело письма

@Fatalmf · Регистрация: 23.10.2012

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

Доброго времени суток!
Есть такая задумка вставить текст с форматированием в тело письма (почтовый клиент Outlook), текст стандартный для всех писем.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Êíîïêà82_Click()
    Dim stPut As String
    'Dim stEmailcc As String
    'Dim stEmailbcc As String
    'Dim stSubject As String
    Dim stbody As String
   
    stPut = CurrentProject.path & "\123.txt"
    Open stPut For Input As #1
Line Input #1, stbody
 
    DoCmd.SendObject acSendNoObject, , , , "stEmailcc", , "stSubject", stbody, ,
    
Close 1
End Sub

но в этом коде вставляется строка.
Подскажите может есть другие решения или здесь допилить что-то можно... рассмотрю любые варианты

@GenaY · 29.07.2013, 03:01

Текст письма можно отформатировать HTML.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Function CreateNewMemo()
'создает новое письмо с вложением для нескольких адресатов
Dim OL_App As Outlook.Application
Dim OL_ItemMail As Outlook.MailItem
Dim RecipientTask As Recipient
Dim OL_Pattern As Outlook.RecurrencePattern
 
Set OL_App = CreateObject("Outlook.Application") ' получаем объект Outlook
Set OL_ItemMail = OL_App.CreateItem(olMailItem) ' создаем новое письмо
With OL_ItemMail
  .To = " [email]osmor@mail.ru[/email]" 'адрес получателя
  .CC = " [email]osmor@mail.ru[/email]" 'копия
   .BodyFormat = olFormatHTML 'формат письма
   .Subject = "Отчет по продажам за " & CStr(Date) ' заголовок письма
' текст письма. Для красоты HTML
   .HTMLBody = "<body><div align='center'> <table width='50%' border='1'>" & _
   "<caption align='top'> Продажи по салонам за " & CStr(Date) & "</caption>" & _
   "<tr><th cope='col' width='60%'>Салон <th width='40%'>Cумма" & _
   "<tr><td>Алексеевская <td align='right'>25 021 <tr><td>Маросейка<td align='right'>28 452" & _
   "<tr><td>Охотный ряд <td align='right'>22 245<tr></table></div></body>"
'вложение. Если файл не существует, то будет ошибка
   .Attachments.Add "c:/Forum_ex.INF"
   .Attachments.Add "c:/FORUM_EX.MDX"
   .OriginatorDeliveryReportRequested = True 'Уведомление о доставке
   .ReadReceiptRequested = True 'Уведомление о прочтении
   .Save ' сохраним письмо
   .Send ' отправим письмо
End With 
End Function

(Замечание, предполагается что в программе установлена ссылка на MS Outlook)

Взято отсюда: hiprog.com

@Fatalmf · 29.07.2013, 11:15 **[ТС]**

Сообщение от GenaY

Текст письма можно отформатировать HTML.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Function CreateNewMemo()
'создает новое письмо с вложением для нескольких адресатов
Dim OL_App As Outlook.Application
Dim OL_ItemMail As Outlook.MailItem
Dim RecipientTask As Recipient
Dim OL_Pattern As Outlook.RecurrencePattern
 
Set OL_App = CreateObject("Outlook.Application") ' получаем объект Outlook
Set OL_ItemMail = OL_App.CreateItem(olMailItem) ' создаем новое письмо
With OL_ItemMail
  .To = " [email]osmor@mail.ru[/email]" 'адрес получателя
  .CC = " [email]osmor@mail.ru[/email]" 'копия
   .BodyFormat = olFormatHTML 'формат письма
   .Subject = "Отчет по продажам за " & CStr(Date) ' заголовок письма
' текст письма. Для красоты HTML
   .HTMLBody = "<body><div align='center'> <table width='50%' border='1'>" & _
   "<caption align='top'> Продажи по салонам за " & CStr(Date) & "</caption>" & _
   "<tr><th cope='col' width='60%'>Салон <th width='40%'>Cумма" & _
   "<tr><td>Алексеевская <td align='right'>25 021 <tr><td>Маросейка<td align='right'>28 452" & _
   "<tr><td>Охотный ряд <td align='right'>22 245<tr></table></div></body>"
'вложение. Если файл не существует, то будет ошибка
   .Attachments.Add "c:/Forum_ex.INF"
   .Attachments.Add "c:/FORUM_EX.MDX"
   .OriginatorDeliveryReportRequested = True 'Уведомление о доставке
   .ReadReceiptRequested = True 'Уведомление о прочтении
   .Save ' сохраним письмо
   .Send ' отправим письмо
End With 
End Function

(Замечание, предполагается что в программе установлена ссылка на MS Outlook)

Взято отсюда: hiprog.com

Спасибо!
Я нарыл этот вариант на выходных, надо конечно с html кодом помучатся но как говорится все будет по красоте.
Авот более ленивый вариант форматирование сахраняется на уровне текстового документа со всеми абзацами шрифтами и т.д.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Кнопка82_Click()
    Dim stPut As String
    Dim stbody As String
    On Error Resume Next
    stPut = CurrentProject.path & "\MailText.txt" 'чтоб не было привязки к местонахождению
    Open stPut For Input As #1
 
    stbody = Input(1515, #1) 'Важно! первое число должно быть равное количеству символов в файле +- 3 символа
    DoCmd.SetWarnings False
    DoCmd.SendObject acSendNoObject, , , [e-mail], , , Тема, stbody
    DoCmd.SetWarnings True
 
Close #1
End Sub

Думаю на этом тема закрыта!

@Sagitta1969 · 17.04.2019, 13:56

Fatalmf, добрый день, подскажите начинающему валенку по коду в последнем сообщении:
я так понимаю - #1 это имя файла?
могу вставить нужное имя?
где он должен лежать?
"Open stPut For Input As #1" это вызов?

@Eugene-LS · 17.04.2019, 14:03

Сообщение от Sagitta1969

могу вставить нужное имя?

Вам нужно чтение текстового файла?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function TextReadFromFile(sTXTPath$) As String
'Чтение текстового файла в переменную
Dim fso As Object
Dim ts As Object
'--------------------------------------------------------------------------
On Error GoTo TextReadFromFile_Err
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile(sTXTPath, 1, True): TextReadFromFile = ts.ReadAll: ts.Close
    Set ts = Nothing: Set fso = Nothing
 
TextReadFromFile_Bye:
    Exit Function
 
TextReadFromFile_Err:
    MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "в процедуре: TextReadFromFile", vbCritical, "Error in module modTextOutput"
    Resume TextReadFromFile_Bye
End Function

Функция вернёт тело файла по указанному в аргументе пути ...

mobile · 17.04.2019, 14:03

Сообщение от Sagitta1969

#1 это имя файла?

Нет. Это параметр инструкции Open: номер файла. Ближайший свободный номер файла можно узнать функцией FreeFile.

Имя скачиваемого файла это первый параметр Open. В Вашем примере "Open stPut For Input As #1" путь к файлу вместе с именем файла находится в пользовательской переменной stPut

@Eugene-LS · 17.04.2019, 14:14

Сообщение от Eugene-LS

Функция вернёт тело файла по указанному в аргументе пути ...

Страна должна знать своих героев!
По материалам:
http://excelvba.ru/code/SaveTextToFile
http://excelvba.ru/code/encode
...
Хорошая привычка: записывать откуда код стырил

@Sagitta1969 · 17.04.2019, 14:59

спасибо огромное,
покурил гугл..
почитал... ничего не понял но сделал...
правда с начала хотел выдергивать текст из ворда...
но и из текста тоже норм..
еще раз сеньк

@Eugene-LS · 17.04.2019, 17:08

Сообщение от Sagitta1969

правда с начала хотел выдергивать текст из ворда...

Можно и из Word, но это совсем другая история, и код будет подлиннее.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Sagitta1969 1 / 1 / 0 Регистрация: 28.02.2018 Сообщений: 35
	17.04.2019, 13:56
	Fatalmf, добрый день, подскажите начинающему валенку по коду в последнем сообщении: я так понимаю - #1 это имя файла? могу вставить нужное имя? где он должен лежать? "Open stPut For Input As #1" это вызов? 0

@Sagitta1969 1 / 1 / 0 Регистрация: 28.02.2018 Сообщений: 35
	17.04.2019, 14:59
	спасибо огромное, покурил гугл.. почитал... ничего не понял но сделал... правда с начала хотел выдергивать текст из ворда... но и из текста тоже норм.. еще раз сеньк 0