用Access发邮件时的问题,帮忙看下

cloudsky

我写了一个发邮件的函数,奇怪的是:如果只发少数几封邮件,很正常可以收得到,但是如果连续发20封的话,只会发出一两封,然后会弹出一个窗口提示内存不够,以后就再也发不出去了,必段重新启动ACCESS才可以发,但也只能发出一两封
源代码如下:
'------------------------------------------------------------
' SendMail
'------------------------------------------------------------
Function SendMail(id As Integer, UserName As String, EmailAddr As String)
On Error GoTo SendMail_Err
    'Dim id As Integer
    Dim cont As String 'condition for open report
    Dim subject As String
    cont = "[id]=" & id
    subject = UserName & ",Please find attached your pay slip for " & Month(Now())
    DoCmd.SetWarnings False
    DoCmd.OpenReport "Report_2003", acPreview, "", cont
    DoCmd.SendObject acReport, "Report_2003", "SnapshotFormat(*.snp)", EmailAddr, "", "", subject, "", False, ""
    DoCmd.Close acReport, "Report_2003"


SendMail_Exit:
    Exit Function

SendMail_Err:
    MsgBox Err.Description
    Resume SendMail_Exit

End Function


send 按钮单击事件代码
Private Sub Send_Click()
On Error GoTo Err_Send_Click
    Dim db1 As DAO.Database
    Dim User As DAO.Recordset
   
    Set db1 = Application.CurrentDb
    Set User = db1.OpenRecordset("Transfer", dbOpenTable)
   
    Dim FailUser As String
    FailUser = "There some user's email is empty!  "
    With User
        Do While Not User.EOF
            If IsNull(![E-mail Address]) Then
                FailUser = FailUser & "      " & ![EMPLOYEE NAME]
            Else
                SendMail ![id], ![EMPLOYEE NAME], ![E-mail Address]
            End If
            .MoveNext
        Loop
    End With
    MsgBox FailUser
Exit_Send_Click:
    Exit Sub

Err_Send_Click:
    MsgBox Err.Description
    Resume Exit_Send_Click
End Sub

高手帮帮忙吧!

lamber

先下载看看

boyboyvox

我也想知道怎么带着附件发邮件阿，急

stevenwang008

看看

wang_jeffson

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk[:34]

cloudsky

[B][U]我想可能是版本的问题吧，因为我的OUtlook升级后可以正常发送了，eio,谢谢你的帮助[/U][/B]

[此贴子已经被作者于2003-8-18 16:46:26编辑过]

cloudsky

多谢啦！
麻烦就算了，不好意思

cloudsky

你觉得是什么原因呢？
你的outlook可以发邮件吗？

eio

装个OULOKK EXPRESS再试试

eio

继续试试！