Access email

[dogdays]

Win 7 pro 32 bit, A2003
I would like to add email capability to a project, have looked on the web and found some packages. Can any one recommend a solution?

tia Jack

 

[alansidman]

Jack

Is this what you had in mind?

http://www.datapigtechnologies.com/flashfiles/accesssendemail.html

Alan

 

[dogdays]

Alan- thanks for reply. I am more interested in a VBA solution, should have mentioned that in the first post. I wish to be able to send a lot of people the same thing, also to send a lot of people tailored emails and finally a single tailored email to one email address. I also would be willing to pay for the software, albeit grudgingly.

Jack

 

[jnl001]

Hi Jack,

Have you tried the FMS Total Access Emailer? Total Access Emailer works as an addin for Microsoft Access. The professional edition of Total Access Emailer offers a programmatic interface for VBA developers, which enables you to execute a given email blast using an event procedure. This product is designed to send email messages to a recipients list within a table recordset. It can also send a single email like you are looking for.

Total Access Emailer is specific to working within Microsoft Access, but it is designed to support linked tables (where the links could point to other databases, excel files etc.). It also supports ADP files and ODBC connections to server databases.

This product supports Access 97 and higher.

There is a free trial version of this product available at the
following URL:
http://www.fmsinc.com/MicrosoftAccess/Email/free-trial.html

See the following URL for a complete product description and guide:
http://www.fmsinc.com/products/emailer/index.asp

John.
FMS Inc.

 

[wjburke2]

There are two ways early binding and late binding. Early binding emails from the user's open outlook. Late binding uses CDO and requires a email server. early binding is build into MS Access

***********************************
' ****** Early Binding Outlook
' ***********************************
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
'
With MailOutLook
.BodyFormat = olFormatHTML ' olFormatRichText
.To = strTo
.Subject = strSubject
.HTMLBody = strBody
.DeleteAfterSubmit = True 'This lets Outlook send the note without storing it in your sent bin
.Send
End With

 

[jnl001]

I accidentally posted an outdated link for the main product page for Total Access Emailer. Please try this link instead:

http://www.fmsinc.com/MicrosoftAccess/Email.asp

 

[dogdays]

Thanks for the replies.
John- I downloaded the trial version but have some questions. Do you have an email address at FMS to whom I may send questions?

tia Jack

 

[jnl001]

Yes indeed.

FMS contact information is here:
http://www.fmsinc.com/script/feedback.asp

Our phone number is there too which you are welcome to use. I look forward to hearing from you Jack.