Access Mass email using Eudora or other. have wasted days on this - need help.

[giesss]

I have been searching for a way to call a third party emailer to send mass emails from MS Access. Outlook thinks it is spam and asks the user to verify every email. I need to send many emails with an attachment without user input after the "Send email Button is clicked"

I mainly need to know about how to call and insert data into the To: the Bcc: the SubjectLine: the Body:

Currently I am using code similar to this.

Private Sub Command46_Click ()
On Error GoTo Err_Command46_C lick

Dim appOutLook As Object

person1 = Form!Scheduler
changenumber = Form!BOM_Number
person = DLookup("[Scheduler]", "Scheduler(tbl) ", "[Scheduler counter] = " & person1)
UserEmail = DLookup("[email]", "Scheduler(tbl) ", "[Scheduler counter] = " & person1)
bomm = Form!Bill_numbe r
details = Form!Rrequest_D etails



MessageBody = person & "," & vbCrLf & "BOM Change Request RK" & changenumber & " has just been processed by Engineering." & vbCr & "Material Number " & bomm & vbCrLf & details

Set appOutLook = CreateObject("O utlook.Applicat ion")
Set MailOutLook = appOutLook.Crea teItem(olMailIt em)

With MailOutLook
.To = UserEmail
.Subject = "BOM Change Request RK" & changenumber
.Body = MessageBody
.DeleteAfterSub mit = True
.Send
End With

' ** this will kill Outlook ** appOutLook.Appl ication.Quit

Set MailOutLook = Nothing
Set appOutLook = Nothing

Exit_Command46_ Click:
Exit Sub

Err_Command46_C lick:
MsgBox Err.Description
Resume Exit_Command46_ Click

End Sub

[AdrianHC]

Have you tried attacking it from the other end?

Something like WorldMerge ($59) will create emails using Outlook picking up the details of the email address etc from an access query or table.