LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Отправка таблиц...
 Отправка таблицы или запроса в "Тексте" e-mail
 
 14.12.2011 22:06:53
epsilon_group
27 сообщения


Отправка таблицы или запроса в "Тексте" e-mail
Добрый день!

командой :

DoCmd.SendObject acQuery, "QUERY", "MS-DOSText(*.txt)", "email@email.com", "", "", "Тема письма", " Текст письма", True, ""

запрос "QUERY" выводится и отправляется на email@email.com в виде прикрепленного файла в формате *.txt

Подскажите, пожалуйста, как в "Текст письма" можно вставить саму таблицу и запрос "QUERY", вместо прикрепленного к письму текстового файла?


С уважением,
Василий
 14.12.2011 22:55:23
Admin1
731 сообщения
1-ый


Re: Отправка таблицы или запроса в "Тексте" e-mail
 Измененный Admin1  на 14.12.2011 22:56:09)

Попробуйте другой формат данных, который может сохранять таблицы: "rich-text (*.rtf)", "HTML (*.html)"

acFormatHTML HTML (*.html)
acFormatRTF Rich Text Format (*.rtf)

 15.12.2011 10:54:40
epsilon_group
27 сообщения


Re: Отправка таблицы или запроса в "Тексте" e-mail
Добрый день! Смена формата вывода таблички принципиально ничего не изменит. Табличка будет в виде файла прикрепленного к письму. А мне нужно вставить табличку в сам ТЕКСТ письма. Вопрос: как это можно сделать ?
 15.12.2011 21:04:03
Admin1
731 сообщения
1-ый


Re: Отправка таблицы или запроса в "Тексте" e-mail
 Измененный Admin1  на 15.12.2011 21:07:11)

Выгрузите данные в html файл, а его можно отправить через Outlook, т.к. эта программа позволяет отcылать письма в html формате. Вот пример

1. Пример.
Sub CreateHTMLMail()
    Dim olApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Set olApp = Outlook.Application
    Set objMail = olApp.CreateItem(olMailItem)

    With objMail
       ' Установить формат HTML
       .BodyFormat = olFormatHTML
       .HTMLBody = "<HTML><BODY>Enter the message text here. </BODY></HTML>"
       .Display
    End With
End Sub

2. Пример http://www.leadersoft.ru/Rus/help/code/Default.aspx?go=product&ProductID=11860

 16.12.2011 0:34:35
epsilon_group
27 сообщения


Re: Отправка таблицы или запроса в "Тексте" e-mail
 Admin1написал

Выгрузите данные в html файл, а его можно отправить через Outlook, т.к. эта программа позволяет отcылать письма в html формате. Вот пример

1. Пример.
Sub CreateHTMLMail()
    Dim olApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Set olApp = Outlook.Application
    Set objMail = olApp.CreateItem(olMailItem)

    With objMail
       ' Установить формат HTML
       .BodyFormat = olFormatHTML
       .HTMLBody = "Enter the message text here. "
       .Display
    End With
End Sub

2. Пример http://www.leadersoft.ru/Rus/help/code/Default.aspx?go=product&ProductID=11860



Спасибо Вам за ответ. Этот код будет работать только с Outlook? Будет ли он работать с другим e-mail клиентом? Например - TheBat ?

Командой DoCmd.SendObject у меня запускается TheBat и прикрепляется файл.

Dim olApp As Outlook.Application - идет ссылка на Outlook. Как быть если это не Outlook а например, TheBat ?

С уважением,
Василий

  Программирование  Microsoft Access. Файлы mdb и accdb  Отправка таблиц...
ПоискПоиск  Список форумовСписок форумов  
right