Access 2010 email VBA

Question

누구든지 나를 도울 수 있는지 궁금합니다. 현재 다른 사람들에게 티켓을 보내는 기능이있는 2010 DB에 액세스하고 있습니다. Access에서 제공 한 템플릿을 사용했습니다.이 템플릿에는 티켓을 누구에게 할당했는지 이메일로 보낼 수있는 기능이 있습니다. 어느 쪽이 위대한가. 그러나 전자 메일 본문의 제목 필드 이상을 얻는 방법을 알아낼 수는 없습니다.

가능한 경우 티켓 본문과 몇 개의 입력란을 갖고 싶습니다. 누구든지 나를 도울 수 있습니까?

나는 OnClick 매크로를 내가 붙여 넣은 VBA로 변환했다. 내가 원하는 것을 어떻게 바꿀 수 있습니까?

옵션 비교 데이터베이스

'------------------------------------------------------------ 
' 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