Access 2010 email VBA

Question

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

Я хотел бы иметь текст с текстом и еще несколько полей из билета, если это возможно? Может кто-нибудь мне помочь?

Я преобразовал макрос OnClick в VBA, который я вставил ниже. Как мне изменить это, чтобы делать то, что я хочу?

Option Compare Database тех

'------------------------------------------------------------ 
' Macro1 
' 
'------------------------------------------------------------ 
Function Macro1() 
    On Error GoTo Macro1_Err 

    With CodeContextObject 
     On Error Resume Next 
     DoCmd.SendObject , "", "", DLookup("[E-mail Address]", "Contacts", "[ID]=" & Nz(.[Assigned To], 0)), "", "", "Duplicate for your attention", IIf(.Form.Description.TextFormat = 1, PlainText(.Title), .Title), True, "" 
     If (.MacroError.Number <> 0) Then 
      Beep 
      MsgBox .MacroError.Description, vbOKOnly, "" 
     End If 
    End With 


Macro1_Exit: 
    Exit Function 

Macro1_Err: 
    MsgBox Error$ 
    Resume Macro1_Exit 

End Function 

Answer 1

Я нашел в Интернете и использовать его для моего ticketsystem: значение varbody содержит текст_сообщение

Private Sub Command430_Click() 

On Error GoTo ErrorHandler 

Dim varName As Variant 
Dim varCC As Variant 
Dim varSubject As Variant 
Dim varBody As Variant 

varName = DLookup("[E-mail Address]" 
'separate each email by a ',' 

varSubject = "Project " & [Forms]![Yourform]![Projectnr] & " contains a new ticket" 
'Email subject 

varBody = "Please pick up the following ticketnumer: " & [Forms]![Yourform]![Ticketnr] 

'Body of the email 
DoCmd.SendObject , , , varName, varCC, , varSubject, varBody, True, False 
'Send email command. The True after "varBody" allows user to edit email before sending. 
'The False at the end will not send it as a Template File 

ErrorHandler: 
    Select Case Err.Number 
    Case 2501 
    MsgBox ("No email send") 
    End Select 

End Sub