Microsoft Access Form Button Control для открытия нового электронного письма со значениями поля для получателя, темы и тела - PullRequest
Новая
       22

Microsoft Access Form Button Control для открытия нового электронного письма со значениями поля для получателя, темы и тела

0 голосов
/ 11 марта 2019

Я начинающий программист, все еще учусь и уже давно борюсь с этой проблемой на работе.Любой опытный совет будет высоко оценен!

Я пытаюсь кодировать событие onclick для элемента управления кнопки в форме доступа, чтобы оно открывало новое электронное письмо с полями получателя и темы, заполненными конкретными полями изтекущая запись и текст сообщения, в котором текст шаблона электронной почты взят из поля таблицы расширенного текста в базе данных.Это последний аспект, с которым у меня проблемы.Если это помогает, поле таблицы для основного текста содержит форматированный текст и имеет длину несколько абзацев - это не короткий текст.

Я пытаюсь использовать конструкцию гиперссылки mailto: возможно, это не лучшийметод?До сих пор я пробовал два метода, ни один из которых не возвращает ошибок, и в обоих случаях открывается новое электронное письмо с правильными данными о получателе и строке темы, но без основного текста, который я пытаюсь вызвать из таблицы:

Метод 1: DLookup 

 Private Sub Authorintroemail_Click()
 Application.FollowHyperlink "mailto:" & [Author email] & "?" &_
"subject=" & [Project ID] & _
"&body=" & DLookup("[Body]", "[Email Templates]", "[Body] = 'Author Introduction'")
    End Sub

При этом поля получателя и темы заполнены правильно, но тело письма просто пусто.

Метод2: оператор SQL SELECT 

Private Sub Authorintroemail_Click()
Dim strSQL As String
strSQL = "SELECT [Body]" & _
        "FROM [Email Templates]" & _
        "WHERE [Template name]='Author Introduction';"
Application.FollowHyperlink "mailto:" & [Author email] & "?" & _
"subject=" & [Project ID] & _
"&body=" & strSQL
End Sub

При этом тело письма просто содержит текст кода, как показано ниже:

SELECT [Шаблоны электронной почты].[Тело] ОТ [Шаблоны электронной почты] ГДЕ [Шаблоны электронной почты]. [Имя шаблона] = 'Введение автора';

Я все об этом ошибаюсь?Если у кого-то есть идеи или решения, я очень хочу их услышать!

...