Question

我正在努力处理此代码。我正在尝试发送大量邮件，但每次它都会弹出此错误：

”由于没有记录分配给列表”。

这是我的代码：

Sub SendQuickEmail()

Dim strFP As String
Dim strFN As String
Dim sigstring As String
Dim signature, signature2 As String
Dim strsubject As String


If Forms![Dashboard].[Manage Company Emails]![mceTxtSigName] <> "" Then

sigstring = Environ("appdata") & _
                "\Microsoft\Signatures\" & Forms![Dashboard].[Manage Company Emails]![mceTxtSigName] & ".htm"
Else
MsgBox "Don't forget to put your signature name in!"
GoTo skipped
End If


strsubject = "Update"

 If Dir(sigstring) <> "" Then
        signature = GetBoiler(sigstring)
    Else
        signature = ""
    End If

signature2 = Replace(signature, "Max_files/image001.gif", "http://files.softicons.com/download/social-media-icons/color-social-media-icons-by-uiconstock/png/24x24/facebook.png")
signature = signature2
signature2 = Replace(signature, "Max_files/image002.gif", "http://files.softicons.com/download/social-media-icons/color-social-media-icons-by-uiconstock/png/24x24/twitter.png")
signature = signature2
signature2 = Replace(signature, "Max_files/image003.gif", "http://files.softicons.com/download/social-media-icons/color-social-media-icons-by-uiconstock/png/24x24/linkdin.png")
signature = signature2

Dim oOutlook As Outlook.Application
Dim oEmailItem As MailItem
' prevent error if outlook is closed
On Error Resume Next
Err.Clear
Set oOutlook = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then
Set oOutlook = New Outlook.Application
End If

Set oEmailItem = oOutlook.CreateItem(olMailItem)
With oEmailItem
 .Subject = strsubject
 .HTMLBody = "<font face=""calibri"" size=""3""> Dear " & [Forms]![Dashboard].[dshfName] & ", <br><br> <br><br></font>" & signature
 .To = [Forms]![Dashboard].[dshEmail]
 .Display
End With

Dim workupdate As String

workupdate = "INSERT INTO Worked ( [First], [Last], Company, [Last Contact], Type, Notes, Who ) VALUES (Forms![Dashboard].[dshfName], Forms![Dashboard].[dshlName], Forms![Dashboard].[dshCompany1], date(), 'eMail', 'Courtesy Email from the quick button', Forms![Dashboard].[dshMyName]);"

DoCmd.SetWarnings False
DoCmd.RunSQL workupdate
DoCmd.SetWarnings True

Set oEmailItem = Nothing
Set oOutlook = Nothing
skipped:





End Sub

有人对此事有更多了解吗？要使此群发邮件功能正常工作，我该怎么办？谢谢。

在尝试发送电子邮件时，VB为什么会给我这些错误？

0 个答案: