Question

我想知道是否有人可以帮助我。我目前正在创建一个访问2010 DB，它具有向其他人发送票证的功能。我使用了Access提供的模板，该模板具有通过电子邮件发送分配给谁的票证的功能。哪个好。但我无法弄清楚如何获得的不仅仅是电子邮件正文中的TITLE字段。

如果可能的话，我想在机票中加入一些文字和一些字段？任何人都可以帮助我吗？

我已将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

我在互联网上发现了这个并将它用于我的票证系统：varbody值包含messagetext

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

访问2010电子邮件VBA

1 个答案: