通过access一次性将收件人的地址写进outlook收件人中

yanwei82123300

我们公司有一个ACCESS的NCR（不合格品报告）系统，一直在使用但是最近发现一个问题：需要将此报告发给一些相关人员(收件人)（通过OUTLOOK）但是需要一个一个的写邮件地址，请问如何才能做到将数据库中添加一个邮箱地址表，一次性的就可以写进收件人邮箱.谢谢！

yanwei82123300

半点 发表于 2015-3-9 12:44
好像以前老王高码课里有这么一课。

有例子吗？

yanwei82123300

直接写代码将收件人的地址直接加到OUTLOOK的收件人中

yanwei82123300

公司写的代码，可以将数据直接写到新邮件中

Private Sub cmdEmail_Click()
On Error GoTo Err_cmdEMail_Click
   
    Dim PartDisposition As Variant
    Select Case Me.Disposition
    Case 1
        PartDisposition = "Rework"
    Case 2
        PartDisposition = "Use As Is"
    Case 3
        PartDisposition = "Scrap"
    Case 4
        PartDisposition = "Return for Credit"
    Case 5
        PartDisposition = "Inventory Issue"
        
    End Select
   
    If Me![txtMIDNumber] <> "" Then
        DoCmd.SendObject , , , , , , "Please review NCR # " & Me.MIDNumber, _
        "NCR Number = " & Me.MIDNumber & vbCrLf & _
        "Part Number = " & Me.PartNumber & vbCrLf & _
        "Part Description = " & Me.PartDescription & vbCrLf & _
        "Casting Number = " & Me.CastingNumber & vbCrLf & _
        "Casting Description = " & Me.CastingDescription & vbCrLf & _
        "WO/PO Number = " & Me.WONumber & vbCrLf & _
        "NCR Disposition = " & PartDisposition & vbCrLf & _
        "Vendor = " & Me.VendorName & vbCrLf & _
        "Quantity = " & Me.Quantity & vbCrLf & _
        "Comments :" & vbCrLf & _
        Me.MIDInformation & vbCrLf & _
        vbCrLf & "Manufacturing Comments :" & vbCrLf & _
        Me.ManufacturingNotes & vbCrLf & _
        vbCrLf & "Production Comments :" & vbCrLf & _
        Me.ProductionNotes & vbCrLf & _
        vbCrLf & "Purchasing Comments :" & vbCrLf & _
        Me.PurchasingNotes & vbCrLf & _
        vbCrLf & "Warehouse Comments :" & vbCrLf & _
        Me.WarehouseNotes & vbCrLf & _
        vbCrLf & "Additional Comments :" & vbCrLf & _
        Me.AdditionalComments

    Else
        MsgBox "Select MID # first", vbCritical, "Error"
    End If
Exit_cmdEMail_Click:
    Exit Sub
Err_cmdEMail_Click:
    MsgBox "E-Mail is currrently not working. Try again later", vbCritical
    Resume Exit_cmdEMail_Click
End Sub
请看附件图片，点击邮件图标（图1）直接写的OUTLOOK中（图2），再添加收件人
请大家看看是否可以添加收件人

yanwei82123300

各位老师我将例子放上来，请帮助改改，谢谢

yanwei82123300

麻烦各位老师，给看看，谢谢了

yanwei82123300

站到终点站 发表于 2015-3-10 13:37
看看是不是这个效果

站到终点站 谢谢您的帮助请问，怎样做到使用COMBOX控件进行筛选？，同时添加多个收件人？谢谢

yanwei82123300

roych 发表于 2015-3-10 14:39
供参考。手头上没装Outlook，没法调试。
http://www.office-cn.net/forum.php?mod=viewthread&tid=50532&h ...

老师打开好像报错，谢谢

yanwei82123300

站到终点站 发表于 2015-3-10 16:28
要通过列表来添加多个收件人的话，你需要自己设计一个窗体，来返回选择的收件人，我这里是思路：
1、首先 ...

站到终点站 老师明白您说的，但是我的难点：在联系人拾取器中通过点击选取收件人，但是如何往一个文本框中添加多个值，我暂时不会！，请看看，谢谢

yanwei82123300

难点在：
4、在那个收件人MailTo文本框右侧放一个按钮，单击按钮弹出一个联系人拾取器窗体；4、为联系人拾取器添加代码，通过设置按钮或者双击某行记录时将当前所选择这个联系人地址返回；
5、捕获这个返回的联系人地址字符串，将其添加到MailTo文本框中，当然添加前需要追加一个分号“;”，因为分号是多个联系人地址之间的分隔符尤其5点