Question

第一次发布海报......我对VBA很新，目前处于喜欢/捏合和修改阶段，但我希望这不会很久。

我目前正在使用Access并尝试开发一个数据库，教师可以在需要上课时记录应用程序（理想情况下我会在SQL中执行此操作，但我目前无法做到）。

Access中的数据库和表单几乎就是我想的，但我希望数据库在应用程序发出时通知某个员工。选择工作人员将通过从查询驱动的组合框中选择他/她来完成。查询的原因是我只希望特定的工作人员接收此通知 - 主要是那些管理其他工作人员的通知。

一旦选定了该员工，我基本上希望制作该应用程序的人单击一个按钮，然后该按钮将向组合框中选择的人发送电子邮件。我曾尝试在VBA中放置一些东西，但是我得到了一些东西，然后什么都没有。

这就是我到目前为止，DLookup使用在组合框中选择的工作人员然后在Staff表中找到电子邮件地址：

Private Sub Command788_Click()
Dim Email_Note As Variant
Email_Note = DLookup("Email", "Staff", Forms![Cover Application Form]!Combo767)
Dim olLook As Outlook.Application
Dim olNewEmail As Outlook.CreateItem
Dim StrContactEmail As String
Set olLook = New Outlook.Application
Set olNewEmail = olLook.CreateItem(olMailItem)
strEmailSubject = "Application for Cover: Line Manager Notification"
strEmailText = "Something in here..."
StrContactEmail = "Email_Note"
olNewEmail.Display
End Sub

Answer 1

您应确保在VBA编辑器的工具选项卡中引用Outlook库。它看起来像你为身体和主题创建了字符串，但没有声明它们。而不是将它们声明为字符串变量，只需将outlook. body等设置为相应的字符串，如下所示。

一旦将email_note声明为变量，就不需要用引号封装strContactEmail。我以为那是一个电子邮件地址？

不再需要Private Sub Command788_Click() Dim Email_Note As Variant Email_Note = DLookup("Email", "Staff", Forms![Cover Application Form]!Combo767) Dim olLook As Outlook.Application Dim olNewEmail As Outlook.mailItem 'Dim StrContactEmail As String Set olLook = New Outlook.Application Set olNewEmail = olLook.CreateItem(olMailItem) olNewEmail.Subject="Application for Cover: Line Manager Notification" olNewEmail.Body = "Something in here..." olNewEmail.To = email_note olNewEmail.Send Set olNewEmail = Nothing Set olLook = Nothing End Sub，我看不到它的使用位置。

<div class="all">
    <div id="banner"><img src="images/banner1.jpg" alt="PCXD Banner"/></div>
    <div class="nav">
        ...
    </div>

    <h1 class="under"><br/><br/>Image><br/></h1>

    <table>
        ...
    </table>

        <img id="reviewI1" src="images/RL1.jpg" alt="Rocket League 1"/>
        <img id="reviewI2" src="images/RL2.jpg" alt="Rocket League 2"/>
        <a href="http://store.steampowered.com/app/252950/"><img id="steam2" src="images/steam.png" alt="Steam"/></a>
</div>

通过查询和VBA在Access中发送电子邮件

1 个答案: