Access 2007-2016
Access 2000-2003
Access Seminars
TechHelp Support
Tips & Tricks
Access Forum
Course Index
Topic Glossary
Insider Circle
 
Home   News   Tips   Glossary   Templates   Forums   Help   Logon   Order   Contact Us  
 

News      User Comments     History     Notify Me

4/5/2014 8:05:29 PM
Microsoft Access Email Seminar
By Richard Rost   Richard Rost on Facebook Richard Rost on Twitter Richard Rost on Google Plus Richard Rost on LinkedIn Email Richard Rost

 
The Microsoft Access Email Seminar will teach you just about everything there is to know about sending and receiving email using Microsoft Access - with or without Microsoft Outlook. This seminar is for the intermediate to advanced Access developer. Topics include:

- Send Email Using Outlook
- Export Access Reports as PDFs
- Attach Files to Outgoing Email
- Disable Outlook Security Warnings
- Mail Merge Using Access and Word
- Create Rich Text or HTML Email
- Include Images in Emails
- Broadcast Bulk Email Batches
- Send Email Without Outlook
- Connect Directly to a Mail Server
- Create an Email from a Web Page
- Embed Custom Mail Merge Fields
- Add a Send Delay to Large Batches
- Build Regular Email Templates
- Assign Customers to Mailing Lists
- Construct a Mail Server Database
- Acquire Data from Incoming Emails
- Build a Web Form to Collect Survey Data
- Extract Files from Access Attachments
- Track Email Deliverability
- Email to SMS (Text Message) Gateways
- Extract Attachments from Incoming Mail

Click here for more information on the Microsoft Access Email Seminar, including a complete course outline, sample video, sample database file, and lots more.

Permanent Link
Course Link: Microsoft Access Email Seminar
Keywords: access email seminar
Page Tag: whatsnew
Post Reply

Microsoft Access Email Seminar Comment from Thomas F @ Thu 11/16
Thank you for your seminar and responding to the earlier post. I now have the group email I wanted.
My question now is when I try to query my list of people to receive the email I get an error message [Run-time-error Too Few parameters Expected 1]
If this is something I can get from one of your lessons I will be glad to look (I am the proud owner of numerous lessons)
I have included my code with a note as to where it stops. Any help are guidance would be appreciated
Thank again

Private Sub Command0_Click()
Dim oOutlook As Outlook.Application
Dim oEmailItem As MailItem
Dim rs As Recordset

If oOutlook Is Nothing Then
    Set oOutlook = New Outlook.Application
End If

Set oEmailItem = oOutlook.CreateItem(olMailItem)
With oEmailItem
    
    'This first attempt works to list all in the emails for the ActionGroup named Manager
    'Set rs = CurrentDb.OpenRecordset("SELECT AddressEmail FROM ActionGroupQ where ActionGroup='Manager'")
                
    'The second attempt works to list all of the AddressEmail in the ActionGroupQ query
    'Set rs = CurrentDb.OpenRecordset("SELECT AddressEmail FROM ActionGroupQ")
        
    'Code will not pass this point.
    'What I want but will not work, I want all of the AddressEmail,s from ActionGroupQ
    'where the ActionGroup = the forms GroupsCombo combo box
    Set rs = CurrentDb.OpenRecordset("SELECT AddressEmail FROM ActionGroupQ where ActionGroup=GroupsCombo")
        
    If rs.RecordCount > 0 Then
        rs.MoveFirst
        Do Until rs.EOF
            If IsNull(rs!AddressEmail) Then
                rs.MoveNext
            Else
                contactEmail = contactEmail & rs!AddressEmail & ";"
                .To = contactEmail
                rs.MoveNext
            End If
        Loop
    Else
        MsgBox "No email addresses available"
    End If
    .Display
End With

Set oEmailItem = Nothing
Set oOutlook = Nothing

End Sub



Reply from Alex Hedley:

Rich showed a video recently where controls on a form would be parsed by access in a string but what version of Access are you using?

Set rs = CurrentDb.OpenRecordset("SELECT AddressEmail FROM ActionGroupQ where ActionGroup=GroupsCombo")

Set rs = CurrentDb.OpenRecordset("SELECT AddressEmail FROM ActionGroupQ where ActionGroup='" & GroupsCombo & "'")
Show Just This Thread        Post Reply
Microsoft Access Email Seminar Comment from Thomas F @ 9/22/2017
Richard,
I have applied the Email and Imaging Seminar methods into a very successful database to log where, when, and why an equipment process is interrupted.
When we have an interruption, we assign Plan of Action items to individuals, each receiving an email notice of what they need to know.
What I do not have is a method to send an incident notice to a group where the email includes the multiple recipients on the one email.
I do not know if there is a simple way to include this, if there is another seminar that touches on this, are a topic for another seminar
You mentioned in the seminar we might not want everyone to see who is receiving the email; in this case, we encourage brainstorming and multiple replies from everyone.
Thank you, I would like to say I find this leaning method very useful.
Greg
(Please point me to the correct tutorial and or this would be useful in the Email Seminar)



Reply from Alex Hedley:

There are multiple properties to the Email object [.to, .cc, .bcc] if memory serves, you can split those by ";" to send it to multiple people like you would in a normal email program. Give it a try with the .Display instead of .Send to see if it works.
If you have a list of email addresses just loop them and build a string and pass that to the above property. Depending on if you want them as the main, cc or hidden from each other.
If it's a DLIST just use that name instead.
Show Just This Thread        Post Reply
Email seminar Lesson 12 07 14 Comment from Kristin Williamson @ 7/24/2017
(Email seminar - Lesson 12 - 07:14) - I am having a problem with gmail code.  I am duplicating Richard's code but of course, using my username and password.  "transport failed to connect to the server".  

Unfortunately, I can not connect to the source page link (keep getting error 'must be logged in', but I am logged in).


Reply from Alex Hedley:

Have you changed the Security settings in GMail? I'm sure it needs to be set to a lesser level, make sure you are comfortable with this.
Show Just This Thread        Post Reply
Access Email Seminar Regarding Lesson 2 Comment from Kristin W @ 7/20/2017
Alex, Thanks for your help.  Shortly after I sent you the email I realized where the sample db was.  I will check the code to ensure I'm not missing anything.
Show Just This Thread        Post Reply
Access Email Seminar Regarding Lesson 2 Comment from Kristin W @ 7/17/2017
1.  Yes, I can set it to YES and it does allow me to edit so I know code 'call' is working
2.  I can't seem to find the sample db.  When I go to the suggested page, it brings up Seminar Source code, but no sample db


Reply from Alex Hedley:

1. I'll have to check my sample db
2. Theres a note to find it in an actual lesson "Watch lesson 29, about 7:24 into the video", there are links at various points on that page with the dbs to download.
Show Just This Thread        Post Reply
Access Email Seminar Regarding Lesson 2 Comment from Kristin Williamson @ 7/11/2017
Access Email Seminar:  Regarding Lesson 2 - I set the Edit Message command to "NO" in the macro, but the email does not get sent out of my outbox.  No errors either, pressing Send/Receive while in Outlook does nothing.  Using Access 2010 and Outlook 2010.


Reply from Alex Hedley:

Does the Sample db work?
If you set it to YES does it popup to allow you to edit?
Is the code being called?
Show Just This Thread        Post Reply
Email Seminar Comment from James Comninellis @ 4/4/2017
Hi,
I have a specific VBA question. This is all good content but it's almost more than I need. I want to place a button in a form that will take all the emails in a query and place them in the "To" or "Bcc" field of an email. I have been working with the following code but with no success yet:

Private Sub Command69_Click()
Dim oOutlook As Outlook.Application
Dim oEmailItem As MailItem
Dim rs As Recordset
Dim recipientList As String
If oOutlook Is Nothing Then
    Set oOutlook = New Outlook.Application
End If

Set oEmailItem = oOutlook.CreateItem(olMailItem)
With oEmailItem
        Set rs = CurrentDb.OpenRecordset("SELECT Email FROM ContactT")
        If rs.RecordCount > 0 Then
        rs.MoveFirst
        Do Until rs.EOF
            If IsNull(rs!Email) Then
                rs.MoveNext
            Else
                contactEmail = contactEmail & rs!Email & ";"
                .To = contactEmail
                rs.MoveNext
            End If
        Loop
        Else
            MsgBox "No email addresses available"
        End If
        
        
.To = ""
.Display
End With
Set oEmailItem = Nothing
Set oOutlook = Nothing
End Sub

This code (if it worked) would send to all my contacts, which is not what I'm aiming for, but I would put in a proper query is I could get this off the ground. Thanks!


Reply from Alex Hedley:

So you have
.To = contactEmail

Then near the end you have
.To = ""

This will clear all your looping work.

If it's easier to follow make a string with all the To people in your loop, then set your .To to your string at the end.
You can then Debug.Print(string) in various places when testing.
Show Just This Thread        Post Reply
Microsoft Access Email Seminar Comment from Kaylen D @ 9/19/2014
Lesson 1, I tried both the macro button and the vba method to open a specific report for a record in a form but getting the same error Runtime 3211: the database engine could not lock table 'tblContacttypes' because it is already in use by another person or process". Fyi, the form has two subforms attached to it.
Show Just This Thread        Post Reply
Microsoft Access Email Seminar Comment from Gie @ 7/29/2014
Will this seminar include how to set-up the sender email? I am using 2 outlook email accounts, one my own email and the other a group email or shared inbox. I want to be able to send using the group email.


Reply from Richard Rost:

The seminar doesn't not specifically cover setting up your email accounts in Outlook. It's assumed you have a working copy of Outlook and you have at least one account set up. Once that's done, Access will use your DEFAULT Outlook email account to send all of its mail.
Show Just This Thread        Post Reply
Microsoft Access Email Seminar Comment from Larisa K @ 5/19/2014
I just finish updating my program with this seminar. I can t say enough thank you!!. You are the best teacher I ever had in my live. So easy to follow you and understand. You topics always going wider than I expected. Every your new lesson is 100% important. Thanks so much!!
Waiting for your next seminar, I am looking for seminar which will show how  to upload database on web server and work from different pc-locations to get the data.
Show Just This Thread        Post Reply

Add Your Comments or Subscribe
 
If you just want to subscribe to get email updates when the News is updated, then enter your name and email address and check the Notify Me box below. If you would optionally like to add your comments below to be posted, they are welcome.
 
  Your Name:  Required
  Your Email:  NOT Public
  Subject:
  Comments:

 

Sorry about this step. It's just to keep the spam bots away:
  Verify: What is 7+2:
  
  Notify me when the News is updated.
  Remember Me for my next comments
  
 
 
Please do not use this form for Customer Service inquiries! If you have questions about your account, shipping info, courses you've ordered, need passwords, etc. please use the Customer Service Center instead.

I value your comments. They will be displayed on this page (above). Your name will be displayed, but your email address will not be.
As always, I promise to never give away your personal information to anyone else, ever.

NOTE: If you don't leave your name and email address, DON'T expect a reply. I can't promise a personal reply to everyone who posts here. I TRY my best, but I cannot guarantee it. If you don't leave your real name and email address, I won't even bother. I usually just hit DELETE. -Richard

 

 

You may want to read these articles from the 599CD News:

7/19/2017Access Developer 2 and 3 Released
7/19/2017Microsoft Access Developer 3
7/19/2017Microsoft Access Developer 2
6/30/2017Access Developer 2 is Finished
6/7/2017Microsoft Access Developer 1
6/6/2017Access Developer 1 is Finished
5/18/2017Microsoft Access Advanced 6
5/17/2017Access Advanced 6 is Online
4/9/2017Microsoft Access Advanced 5
4/9/2017Microsoft Access Advanced 4
 
  Dismiss
 

Learn
 
Accessindex
Excelindex
Wordindex
Windowsindex
PowerPointindex
Photoshopindex
Visual Basicindex
ASPindex
Seminars
More...
Customers
 
Account Login
Online Theater
Downloads
Lost Password
Free Upgrades
Insider Circle
Student Databases
Info
 
Latest News
New Releases
User Forums
Topic Glossary
Tips & Tricks
Articles
Search Our Site
Waiting List
Production Schedule
Collapse Menus
Help
 
Live Chat
Customer Support
WalkThru Tutorials
Troubleshooting
FAQs
TechHelp
Consulting Services
About Us
 
Background
Testimonials
Jobs
Affiliate Program
Richard Rost
Free Lessons
Mailing List
Order
 
Video Tutorials
Handbooks
MYOLP Memberships
Idiot's Guide to Excel
Volume Discounts
Payment Info
Shipping
Terms of Sale
Gift CDs
Contact
 
Live Chat
General Info
Support Policy
Contact Form
Email Us
Mailing Address
Phone Number
Fax Number
Course Survey
Facebook    Twitter

Google Plus    LinkedIn

Blog RSS Feed    YouTube Channel
Richard Rost Microsoft MVP