By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
434,720 Members | 2,153 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 434,720 IT Pros & Developers. It's quick & easy.

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

P: 2
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_Click

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_number
details = Form!Rrequest_Details



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

Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)

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

' ** this will kill Outlook ** appOutLook.Application.Quit

Set MailOutLook = Nothing
Set appOutLook = Nothing

Exit_Command46_Click:
Exit Sub

Err_Command46_Click:
MsgBox Err.Description
Resume Exit_Command46_Click

End Sub
Apr 28 '06 #1
Share this Question
Share on Google+
1 Reply


P: 2
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.
Apr 28 '06 #2

Post your reply

Sign in to post your reply or Sign up for a free account.