访问 2010 电子邮件 VBA答案

【问题标题】：Access 2010 email VBA访问 2010 电子邮件 VBA
【发布时间】：2015-01-09 03:25:20
【问题描述】：

我想知道是否有人可以帮助我。我目前正在访问 2010 数据库，该数据库具有向其他人发送门票的功能。我使用了 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

【问题讨论】：

您拥有的代码用于将数据库对象发送到邮件地址 - 这就是您想要做的吗？如果是这样，对于您要证明“标题”的参数，只需包含更多信息。 IE。 ", MyTitle & vbcrlf & "今天是...." & vbcrlf & "最后一行"

标签： ms-access vba

【解决方案1】：

我在互联网上找到了这个并将其用于我的票务系统：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

【讨论】：