SELECT *.Таблица1 FROM Таблица1 WHERE Таблица1.КодЗаписи = Forms![Форма_из_которой_нажимается_кнопка_экспорта].[Код_записи]

Public Sub CreateNewMemo(Fname As String)
'создает новое письмо с вложением для нескольких адресатов
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_NameSpace = OL_App.GetNamespace("MAPI")
' получаем ссылку на папку черновики
Set OL_FolderMail = OL_NameSpace.GetDefaultFolder(olFolderDrafts)

Set OL_ItemMail = OL_App.CreateItem(olMailItem) ' создаем новое письмо
With OL_ItemMail
  .To = "" 'адрес получателя
  .CC = "" 'копия
  .BodyFormat = olFormatHTML ' задание формата письма HTML,
                              ' для простого текстового письма этот параметр задавать не надо
   .Subject = "ШТ" ' заголовок письма
   .Attachments.Add Application.CurrentProject.Path & "\Temp\" & Fname
   .OriginatorDeliveryReportRequested = True 'Уведомление о доставке
   .ReadReceiptRequested = True 'Уведомление о прочтении
   .Display (True)
   '.Save ' сохраним письмо
   '.Send ' отправим письмо
   Kill Application.CurrentProject.Path & "\Temp\" & Fname
End With
End Sub