Microsoft Access Email Seminar

Student Interaction: Microsoft Access Email Seminar

Richard on 4/5/2014: 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.

Jim Upton on 4/10/2014: I am unable to access your code. Would it be different in uk

Reply from Richard Rost:

Jim, of which code are you speaking? Nothing on my site should be different in the UK.

Jim U on 4/10/2014: I don.t seen able to access any of the code for copying and. Pasting. I am just getting error message page cannot be displayed. I have tried it at to locations.

Reply from Richard Rost:

I just tested it, and it's working fine for me. What is the EXACT error message you're getting? Is it a web 404 error, or is it an error my site is giving you?

Robert Miller on 4/15/2014: Rick, LOVE LOVE LOVE this seminar!! I already have tons of ideas that I want to incorporate into my databases.

Question: Will you be creating a handbook for this seminar? Or do you just have handbooks for regular lessons? I would like to get my hands on a paper copy of this seminar so that I can use it for references without having to log in all the time to review a video. It would be greatly appreciated!

Thanks again for an awesome seminar!
Rob

Reply from Richard Rost:

Yes, the handbook is actually finished. My author sent it to me yesterday. It's in my inbox waiting for me to review it and post it, but I'm on the road (AGAIN!) for the next few days. I'll get it online as soon as I can. Glad you love the seminar. It took me FOREVER to finish. :)

Larisa K on 4/23/2014: Hi Rick- Thank you so much for such a good seminar.
But I need your help, I can't access to my gmail account. it show me only one general error "overflow" which is hard to figure out where is the problem. Is any way I can specify error description to see what's wrong?
I did try "smtpserverport" = 25 and 465

Reply from Richard Rost:

Do you have two-factor authentication turned on? If you have an Android phone you might have the Authenticator app which gives you a code to get into your Gmail if you lose your password. If this is the case, you need to set up a special-access password to connect to Gmail from other programs, like your Access database. See this article on Gmail two-factor authentication.

Larisa on 4/23/2014: thanks for your response. I don't have two-factor authentication. it says disable in my security setting. I did search on-line what could cost this problem but nothing help me. Any more ideas?

Reply from Richard Rost:

You've got me. I've got a couple of different Gmail accounts, and this technique works fine with all of them. Anyone else?

Larisa K on 4/25/2014: I got, it works, by changing authenticate from 1 to true
smtpauthenticate = true

Richard Orr on 5/8/2014: Good Day Richard
When testing my VBA code at the end of lesson 7 I found that if the MsgAttach1 and MsgAttach2 were blank I would get an error message. After some thought I decided that as we were now using a button to select the file to attach the dir code lines were no longer relevant.
So have deleted:

If Dir(MsgAttach1) = "" Then
MsgBox "Attachment 1 does not Exist"
Else
OMsg.Attachments.Add (MsgAttach1)
End If

and replaced it with

If Not IsNull(MsgAttach1) Then
OMsg.Attachments.Add (MsgAttach1)
End If

I'd appreciate your thoughts and any suggestions for improved code.

I'm appreciating the seminar and slowly learning VBA code. Great stuff.

Best regards Richard (Melbourne, Aust)

Alexander Hedley on 5/15/2014: Time Stamp: 8:26

If Not IsNull(MsgCC) Then Msg.CC = MsgCC

If Not IsNull(MsgCC) Then Msg.BCC = MsgBCC

Should the second line not be

If Not IsNull(MsgBCC) Then Msg.BCC = MsgBCC

IsNull(MsgCC) => IsNull(MsgBCC)

Abdul Quadir Mohammed on 5/19/2014: Dear Richard,

Attaching a file works fine.

I used the same to reference a link to necessary files

Please advise on how to convert the entire file location string into a hyperlink using vba so that on a double click the user may open and view the file.

I await.

Larisa K on 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.

Andy Treusch on 6/3/2014: when i attempt to run this msgbox the subject in the inbox i bomb out in the loop with "New or Modified User Account Information". It does not show the subjects.

I do have three accounts in outlook.

time index is 7:34

Andy Treusch on 6/3/2014: I noticed no intellisense not work on this line:

Dim oCompleted As Outlook.MAPIFolder

TIME INDEX 7:34

Mary Reinhardt on 6/5/2014: Hi Richard,

I am having difficulty with an two fields on my importing of text from an email. I have two fields, one is called Name: and the other is Company Name: my error is that Company Name will populate my Name: field in the database (actually the title of the field is TeacherName:in the db). Do you have a suggestion for code that will improve this? Or a direction of which course will help me to figure this out? Thanks so much!

Reply from Richard Rost:

If this is an import you have to perform on a regular basis, just specify the field names in your Import Spec. If it's a one-time thing, just correct them after you import them into a temp table, then append them into your main table.

Gie on 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.

Kaylen D on 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.

Scott Adkins on 10/29/2014: Richard I am running Windows 8 and Access/Outlook 13. I changed the suspicious activity warning exactly as in the seminar but I still get that stupid allow/deny message. Is there something else that needs to be changed?

Reply from Richard Rost:

Did you make sure you made the change while logged on (or at least running the program) AS ADMINISTRATOR? Aside from that, I pretty much covered everything in the seminar.

Personally, I don't like using Outlook to send Email. The lessons on using Gmail (or another SMTP server) are my preferred method.

Scott on 11/3/2014: I played with it for a while and learned this. If you try to send with a macro, you get that security warning. If you do it with vba, and follow the steps in the seminar, then it works fine.

Arabi Mahmood Moodi on 11/28/2014: where can i find source code page ?
secondly
i have introduced outlook on my computer to day for for sake of outlook mails ,and it has been the my first time to try it on mails but why is it that all emails i send do not go to my old yahoo mails? but i just receive them on outlook mail account i have just created ?
now how can i send to people on Google and yahoo through outlook?
Arabi

Reply from Alex Hedley:

Source code for what?

Which account did you use with outlook?

It should be able to send to any email address.

Arabi Mahmood Moodi on 11/29/2014: Dear
i meant source page code for SMPT Savor, and others.
Even after learning lesson 10 with almost 8:49 time index i can see Mr roset peeking it somewhere from unknown link
i only need to have it from where i can peek it with copy and past and i think this is what Mr Roset needed us to do
therefor can you please help and put all these indexes near ?
secondly the account i opened with outlook was my real account [admin removed]
i can receive incoming email with this account on outlook from my database but nothing goes in yahoo account of the same account why ?
Sorry for such disturbance

Reply from Alex Hedley:

Ah so you would like the VBA code Rich uses, have you downloaded the Sample Database?

You can also buy the Handbook, I add all the code to these so you can copy/paste them into your own database.

So if you log into your yahoo account in a web browser are you not seeing emails?
If they are coming into the the db it means they are in your account.

It's no disturbance at all, the forums are here to help :)

Arabi Mahmood Moodi on 11/30/2014: Sir
Can you help me with SMTP SERVER and server port of yahoo

because the one i have searched for from yahoo search is (plus.smtp.mail.yahoo.com and the port as 465 )
but is not working
this is because my account is registered with yahoo.

Reply from Alex Hedley:

I found the following settings at Yahoo

SMTP: smtp.mail.yahoo.com
PORT: 465 or 587
SSL: Yes
Requires Authentication: Yes

jeff horvate on 12/5/2014: when I go to build event, it go to vba mode, I want macro mode? I got office 2007.

Reply from Alex Hedley:

Does your Event already have [Event Procedure] beside it?
Try deleting this then clicking the Ellipse(...).
This should then pop up a Builder options.

If this doesn't work you may have changed your settings to not always use code.
File | Options
Select Object Designers from the list.
Scroll down to the Forms/Reports section.
Click on the Always use event procedures box. (Un tick this)
Click on OK to close the window.

Tony Roberts on 12/29/2014: HI, thanks for the course, the best I have seen.

I have been trying to insert a new line in the MsgBody after pulling the person's name so the the message is not all on the same line. I have tried the usual commands but it will not produce a new line. Can you advise?
Automating Outlook email 3 time 10:15

Tony

Reply from Alex Hedley:

Hi Tony what commands have you tried?

You could try vbNewLine.

There are constants in VBA like:

Constant Definition
-------------------------------------------------------------------
vbBack A backspace character [Chr(8)]
vbCr A carriage return [Chr(13)]
vbCrLf A carriage return and line feed [Chr(13) + Chr(10)]
vbLf A linefeed [Chr(10)]
vbNewLine A platform-specific new line character, either
[Chr(13) + Chr(10)] or [Chr(13)]
vbNullChar A null character of value 0 [Chr(0)]
vbNullString A string of value 0 [no Chr code]; note that this is
not the same as ""
vbTab A tab character [Chr(9)]

Tony Roberts on 12/29/2014: tried all of them and discovered I needed to use html
as I was using a richtext text box.

Thanks for your response

Reply from Alex Hedley:

Ah a <br /> will do the trick

Kath McLeod on 1/13/2015: Hi Richard, in completing Lesson 7 if find that when i click on the Attachment 1 or 2 buttons the Attachments folder opens up, I choose a file and am returned to the form but no attachment is loaded. I have checked the VBA and it all appears fine. Could you please advise what I am doing wrong. If i cancel without selecting a file, i get the "A file was not selected" error message. So that is working fine. I am reluctant to move on with the lessons until i can work this one out.

Cheers
Kath

Reply from Alex Hedley:

Is the Field on the Form the name that the functions passes back to.
It'll be something like msgattach = launchcd...
That will need to match the Textbox on the Form.

Kath McLeod on 1/13/2015: this is additional to my previous email. I have redone the forms and code and still get error message which hangs up on:
OMsg.Attachments.Add (AttachFolder & MsgAttach1)

I am up to
If Dir(AttachFolder & MsgAttach1) = "" Then
MsgBox "The file you selected for an attachment does not exit!"
Else
OMsg.Attachments.Add (AttachFolder & MsgAttach1)
End If at Time index 26:21

kath

jeff horvate on 2/3/2015: How come when I type part of email. access does NOT catch the error. I am working office 2007

Reply from Alex Hedley:

What part are you typing and what error are you expecting to be caught?

Kath McLeod on 2/12/2015: Alex this is the code MsgAttach1 = Selectfile(Me, AttachFolder) which is the same as Richards. Also I downloaded Richards and it works perfectly. (i thought is may be because i have windows 64bit but if Richards works it is not that. I need to get this working so i can move on. Any further suggestions?

Kath

Reply from Alex Hedley:

Do you have Office 32-Bit installed?
What happens when you press it?
Check the spelling of your controls

Brauna Rosen on 4/23/2015: Hi Richard,
If I want to use the Email Merge to Word and I have a few email accounts in Outlook, how do I choose the correct "From" email address?
Great Seminar!
Thanks,
Brauna

Reply from Alex Hedley:

You can't unfortunately
You'll have to create a profile with just one account, not multiple and choose that one.

Martijn Eisinga on 5/25/2015: Hi

I am trying to make various buttons in my forms that send out a template email - text is always the same and just takes (firstname)or other details from a candidates record.

See below:
DoCmd.OpenForm "EmailF"
Forms!EmailF!MsgTo = EmailAddress
Forms!EmailF!MsgSubject = "Your application " & FirstName
Forms!EmailF!MsgBody = "Dear " & FirstName & " , We received your application " & _
"we would like to invite you " "."

Tried all andcannot figure it out.

The body of each message is like 6/7 lines of text + signature.

Is this the way or is there an easier solution?

Kind regards
Martijn Eisinga

Reply from Alex Hedley:

Have you seen Lesson 19?

19. Bulk Customized Email 5 (36:23)
Select an Email Template
Template Table and Form

Steffen Morning on 7/3/2015: Very interesting class and it shows almost what I need. My problem is that I wish to import and move ONLY the currently selected e-mail in Outlook and not all of them. I figure a simple change to the line "For Each oMailItem In oInbox.Items" would do the trick but I don't know how. Can I simply change the word "Each" to "Selected"?

Reply from Alex Hedley:

I'll need to look at the code.

For Each is a keyword used in the loop, it's the oInbox.Items that would need to be checked for first.

Do While True
count = count + 1

If count = 10 Then
Exit Do
End If
Loop

Ray White on 8/31/2015: If I am using Outlook 2010 reference in my VBA when developing my program and then send the program out to my users will Outlook 2010 version be the only version that will work with the program or will any version that the user has will work?

Reply from Alex Hedley:

You could check the References Count
intCount = Access.References.Count
Remove and ReAdd

You could use the AddFromFile

jeff horvate on 11/23/2015: I have 6 emails account in my outlook. I wonder if I can read 6 email inbox Set oInbox = oNS.GetDefaultFolder(olFolderInbox)like read a inbox then read c inbox. read is different email address

Reply from Alex Hedley:

This is untested but should work for research

Dim objNS As Outlook.NameSpace
Dim objFolder As Outlook.MAPIFolder
Set objNS = GetNamespace("MAPI")
Set objFolder = objNS.Folders("OTHER MAILBOX NAME")
Set objFolder = objFolder.Folders("Inbox")

Kim Beaul on 12/10/2015: I'm having problems with Mail Merge. When I click on Mail Merge when I have a query open with the data I want to include in the email Word opens with pop up dialog box "confirm data source" with OLE DB Dabatabase Files as the only option. When I click OK the icon for Access starts flashing in the task bar with pop up message "Word was unable to open the data source" Do you have any idea why this is happening. Right now my work around is to export the query to excel and then use it as the data source for my mail merge. I'm only on the 3rd video so I'm sure one of your other email methods will meet my needs better but I would like to know why I am getting this error.

Thanks - your videos are awesome
Kim

Reply from Alex Hedley:

Does your Query contain a Parameter?

MS Article should help.

Kim B on 12/10/2015: This is the query I am using
SELECT Student_Course.MailMerge, Student_Course.FieldPlacementID, Student.Fname AS StudentFirstName, Student.Lname AS StudentLastName, FAST_StudentAddresses.Term, FAST_StudentAddresses.[Email Address] AS StudentEmail, AgencyInformation.Agency, AgencyInformation.Address, AgencyInformation.CityID AS City, Contact.FirstName AS ContactFirstName, Contact.LastName AS ContactLastName, Contact.Phone AS ContactPhone, Contact.Ext AS ContactExt, HyperlinkPart([Contact].[Email],1) AS ContactEmail, Student_Course.SentStudentConfirmation, Student_Course.SentAgencyConfirmation
FROM (Contact RIGHT JOIN (AgencyInformation RIGHT JOIN (Student RIGHT JOIN Student_Course ON Student.StudentID = Student_Course.StudentID) ON AgencyInformation.AgencyID = Student_Course.AgencyID) ON Contact.ContactID = Student_Course.ContactID) LEFT JOIN FAST_StudentAddresses ON Student.StudentID = FAST_StudentAddresses.[Spriden ID]
WHERE (((Student_Course.MailMerge)=True) And ((Student_Course.FieldPlacementID)=Forms!Menu_StudentFieldPlacements!cboFieldPlacement) And ((FAST_StudentAddresses.Term)=Forms!Menu_StudentFieldPlacements!cboTerm));

Reply from Alex Hedley:

That contains a few parameters
Forms!Menu_StudentFieldPlacements

Did you try the suggested article?

Ray W on 12/22/2015: I don't understand how this works?

Reply from Alex Hedley:

You could check what References are added then add the necessary dll

Example
References.AddFromFile "C:\WINNT\system32\x.dll"

Wayne Markel on 12/24/2015: Lesson 9 - Time 23:33 I set my Outlook Program Access Security to "Warn me about suspicious activity when my antivirus software is out of date" Works to suppress warning message in Access. Isn't this a better choice than "Never warm me...."?

Reply from Alex Hedley:

It's your choice, whichever you feel most comfortable with.

Wayne Markel on 12/24/2015: Lesson 10 Time 20:05.
Gmail settings use port 465 and add
Msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

Ray White on 12/29/2015: Sending email with SMTP:
I have an email with Godaddy and it work fine, I have email with Yahoo and it works fine, But Gmail and Hotmail will not work, I have tried every option they are with not luck. Are there any setting in the Gmail or Hotmail account that I need to set?

Reply from Alex Hedley:

GMAIL now needs you to lower your security settings.
I think it's this setting - Google page.

There's probably a similar setting for Hotmail too.

Ray W on 12/31/2015: Thanks Alex
That did work for Gmail.

Jerry Freeman on 1/9/2016: Richard: I am trying to send an email to multiple recipients without having to create a new form; it is just based off a button click. ie-email ADMIN. Then sending an email to all in the ADMINEmail Recordset. But only the last record in the recordset is showing up in the To: field when Outlook opens. Any help appreciated. Code as follows:


Dim OObj As Outlook.Application
Dim OMsg As Outlook.MailItem
Dim db As Database
Dim rs As Recordset
Dim EmailAddress As String
    Set OObj = CreateObject "Outlook.Application")
    Set OMsg = OObj.CreateItem(olMailItem)
    Set db = CurrentDb
    Set rs = db.OpenRecordset("65_EmailGroupADMIN_T")
    With rs
        
        If .EOF And .BOF Then
            MsgBox "No emails will be sent becuase there are no records assigned from the list", vbInformation
            Else
            Do Until .EOF
                EmailAddress = ![Email]
                .Edit
                .Update
                OMsg.To = EmailAddress
                .MoveNext
            Loop
        OMsg.Display
End If
End With

    rs.Close
    db.Close
    Set rs = Nothing
    Set db = Nothing
    Set OMsg = Nothing
    Set OObj = Nothing
End Sub

Reply from Alex Hedley:

You have the lineOMsg.To = EmailAddress
So To will always contain the last email address in your loop
You will need to build up a string of emails in your loop instead


Dim strEmails
strEmails = strEmails & EmailAddress & ";"

Then set the .To to your list
OMsg.To = strEmails

Jerry F on 1/13/2016: Thank you! Your awesome! This is what the code ended up looking like, and I have ran it on multiple tables now to get emails, but how does strEmails "know" what it's value is. It is dim'd @ the start of the code, but never "set" to = anything....I appreciate your help, just trying to understand the "why" behind what I did.

With rs
.MoveFirst
Do Until .EOF
EmailAddress = ![Email]
.MoveNext
strEmails = strEmails & EmailAddress & ";"
Loop
OMsg.To = strEmails
OMsg.Display

Reply from Alex Hedley:

You set it here with the assignment operator "="
strEmails = strEmails & EmailAddress & ";"

So you have a list
Fred, Joe, Alice, Bill

strEmails = ""
First loop
strEmails = "Fred"
Second
strEmails = "Fred; Joe"
etc

So its saying get what strEmails currently is and add on another string then set this back to itself so it overwrites the first person with the first and second person (lather, rinse, repeat to quote friends)

Jerry F on 1/13/2016: Great! Again, thank you so much for your time and information! Greatly appreciated!

Reply from Alex Hedley:

Happy to help :)

Ray White on 1/28/2016: I am trying to run a Bulk email from my Agents data form with a Criteria By "Department" say just email everyone in the Billing Department. I have this in my Bulk Email form on open.
But when I open the Bulk Email for I get
"Run-time Error 3061"
(Too Few Parameters. Expected 1)
Here is my on Open Code:


Private Sub Form_Open(Cancel As Integer)

    Dim DB As Database
    Dim RS As Recordset
    Dim DepartmentName As String
    Dim MsgRecordSource As String
    
    DepartmentName = Form_frmAgent.DepText
    MsgRecordSource = "SELECT * FROM qryAgentContact WHERE Department=" & DepartmentName
    
    Set DB = CurrentDb()
    Set RS = DB.OpenRecordset(MsgRecordSource, dbOpenSnapshot)
    
    RS.MoveLast
    TotalEmails = RS.RecordCount
    
    RS.Close
    Set RS = Nothing
    Set DB = Nothing
    
    Me.MsgSubject.SetFocus

End Sub

Reply from Alex Hedley:

Is Department a String Field?

MsgRecordSource = "SELECT * FROM qryAgentContact WHERE Department=" & DepartmentName
=>
MsgRecordSource = "SELECT * FROM qryAgentContact WHERE Department='" & DepartmentName & "'"

You'll need to wrap it in quotes so
" SELECT * FROM qryAgentContact WHERE Department='Finance' "

Ray W on 1/30/2016: THNK YOU Alex :)
Works perfect.
Such a little things can be so hard to figure out sometimes.
Thank you for your support.
All of these videos are the best training I have ever purchased in 15 years.

Reply from Alex Hedley:

Happy to help :D

Kim Beaul on 2/12/2016: Is there a way to insert a table into the body of the email message? Right now my message looks like:
Dear Laura

To date you have completed 46 hours for your field placement at SAM Program (East Site). By the end of the week of Feb 1 - 7 64 hours should have been completed. If you are short of hours or have any questions regarding your hours please contact your Field Placement Specialist Julie Pollock julie.pollock@mohawkcollege.ca (905) 575-1212 Ext. 2033.

These are the hours that you submitted:

Jan 11 - 17: 12 hours
Jan 18 -24: 8 hours
Jan 25 - 31: 12 hours
Feb 1 - 7: 14 hours

My boss would like the lower portion to be in a table.

My code is:


Public Sub PrepareMessage()
        
    SendEmail
    
    Forms!Email_Form_StudentFieldPlacementHours_HTML!MsgSubject = "Accumulated Field Placement Hours for  " & Fname
    Forms!Email_Form_StudentFieldPlacementHours_HTML!MsgBody = "Dear " & Fname & "

 To date you have completed " & TotalHours & " hours for your field placement at " & Agency & ". By the " & _
       "end of the week of " & Week4Date & "  " & ExpectedHours & " hours should have been completed. _
If you are short of hours or have any questions regarding your hours please contact your Field Placement Specialist " & FPSName & _
        " " & FPSE & " " & FPSPhone & ". 

" & _
        "These are the hours that you submitted: 

" & Week1Date & ":   " & Chr(9) & Chr(9) & HrsWeek1 & " hours " & Chr(9) & Chr(9) & Week1Comment & _
        "
" & Week2Date & ":   " & Chr(9) & Chr(9) & HrsWeek2 & " hours " & Chr(9) & Chr(9) & Week2Comment & _
        "
" & Week3Date & ":   " & Chr(9) & Chr(9) & HrsWeek3 & " hours " & Chr(9) & Chr(9) & Week3Comment & _
        "
" & Week4Date & ":   " & Chr(9) & Chr(9) & HrsWeek4 & " hours " & Chr(9) & Chr(9) & Week4Comment
    

 End Sub

Thanks
Kim

Reply from Alex Hedley:

Are you comfortable writing HTML?
If you set the message to be HTML and not plain text you can build up a HTML Table
<table> with your tr and td etc

Kim Beaul on 2/13/2016: RE: Table inside email message. I figured it out!!


Public Sub PrepareMessage()
    SendEmail
    Forms!Email_Form_StudentFieldPlacementHours!MsgSubject = "Accumulated Field Placement Hours for  " & Fname
    Forms!Email_Form_StudentFieldPlacementHours!MsgBody = "Dear " & Fname & "

 To date you have completed " & TotalHours & " hours for your field placement at " & Agency & ". By the " & _
       "end of the week of " & Week4Date & "  " & ExpectedHours & " hours should have been completed. _
If you are short of hours or have any questions regarding your hours please contact your Field Placement Specialist " & FPSName & _
        " " & FPSE & " " & FPSPhone & ". 

" & _
        "These are the hours that you submitted: 

" & _
        "" & _
        "" & _
        "" & _
        "Date Hours Comments
" & Week1Date & " " & HrsWeek1 & _
        " " & Week1Comment & "
" & Week2Date & " " & HrsWeek2 & " " & Week2Comment & "
" & Week3Date & " " & HrsWeek3 & " " & Week3Comment & "
" & Week4Date & " " & HrsWeek4 & " " & Week4Comment & "


 Kim Beaul
Database Administrator 
 End Sub

All I need now is to indent the table about 1-2 inches.

Kim

Reply from Alex Hedley:

as many times as you need for a single space " " for html or & vbTab for plain text
See this Glossary item for others.

Arnel Arnaldo on 2/19/2016: Video not found or access denied: url

Reply from Alex Hedley:

Can you try logging out and logging back in, clearing your cache etc

James Gray on 2/26/2016: Outlook 2016 seems to add "mailto:" to all hyperlinks. In my code, when it looks up the specific email address to send objects to, the email address turns into the original email from the database#mailto:email address from the database#. Outlook then errs out, not understanding that to: email address. I am unable to edit this mailto: out of the address in the editor. Interestingly, any email address I entered using older versions of access seem to work...Any clues as to how to fix this?

Reply from Alex Hedley:

Which part of the db is doing this?

Arnel Arnaldo on 2/26/2016: Hi Richard,
Using the macro to set the values for EMailDatabaseObject parameter To to [Forms]![]![], the To on the message field appears as #mailto:#.
Can you explain why?

Reply from Alex Hedley:

Is there a value in the form control?

James Gray on 4/20/2016: Just a quick note: I was having trouble getting the "minimum code" to function properly. I was getting a "transport not connecting to server....error. I googled the error and finally came up with a line of code to add to the minimum and it seems to eliminate the error. That line of code is:msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True. Everything now seems to work just fine. I am using Office 365 and Windows 10. Thanks.

James Gray on 4/21/2016: It looks like the statement for adding attachments in now Msg.AddAttachment filename instead of Msg.Attachment.Add filename. Maybe a change in CDO language in new Office 365?

Chris Thompson on 12/29/2016: FYI, 2010 Outlook has the same Programmatic Access Security as 2013 Outlook used in your video. The available options are identical.

Derek Bowens on 3/22/2017: Richard,

Do you go through sending a mass email without attachments? I have a database that contains 400 emails and I would like to be able to send a BCC email to all active addresses. I am unable to perform this function through the macro or code builder option. Can you advise?

Reply from Alex Hedley:

09. Mass Email Using Outlook (29:06)

The attachments is just another property of the email, you can choose to add or not, the emailing still works the same.

James Comninellis on 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.

Martin GIGUERE on 5/16/2017: I put this code in a private sub and it does not work when i click the button


Private Sub Commande0_Click()
 MsgBox "allo le monde"
 End Sub

and this code either does not work

Private Sub Commande1_Click()

    Dim OObj As Outlook.Application
    Dim OMsg As Outlook.MailItem
    
    Set OObj = CreateObject("Outlook.Application")
    Set OMsg = OObj.CreateItem(olMailItem)
    
    OMsg.To = "gigmar03@gmail.com"
    OMsg.Subject = "This is the subject"
    OMsg.Body = "This is the body"
    
    OMsg.Display
    
    Set OMsg = Nothing
    Set OObj = Nothing

End Sub

What is wrong ?

Reply from Alex Hedley:

How did you create the button event?
If you open the Form in Design View, click on the button and open the Properties Sheet, is there an event in the Click?
You need to link the button to the code, it may not be.
If you but a breakpoint in the sub does it hit?

Martin GIGUERE on 5/17/2017: I Just write the code

Private Sub Command0_Click()
MsgBox " I There"
End Sub

and it doesn't work on Button click

I write the code for Outlook automation and it doesn't work too
What is wrong ?

Kristin Williamson on 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?

Kristin W on 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.

Kristin W on 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.

Kristin Williamson on 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.

Kristin Williamson on 8/11/2017: Regarding Lesson 21 - BulkMailF Total # of Emails in the OnOpen event does not work. It always returns the total number of people in CustomerT. This is because the default MsgRecordSource = CustomerT. I remove the default and get an error. Your sample DB also has the same error - any ways around this?

Reply from Alex Hedley:

I'll need to check the sample db when I'm not on a Mac, been a while since I've done this Seminar.
Is another Table used to get Email Info, you could switch it to that one instead?

Thomas F on 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.

Thomas F on 11/16/2017: 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 & "'")

Larisa Kiseleva on 3/15/2018: Email was working fine then start getting error
"Error handler:" overflow.

Please help, maybe need to reinitialize some parameters

Thanks,

Larisa

Reply from Alex Hedley:

Do you have anymore of the error message?

Sean Kelly on 6/25/2018: What if I want to use the replace function, but not send the email to a group of people, just one? Is there a code for that? I don't want the code to loop through multiple people when I replace information for a particular recipient.

George Bowyer on 8/5/2018: I am getting a Runtime Error 440 on Set OMsg = nothing.

Object does not support this method.

I am using Access16

Reply from Alex Hedley:

Do any of the SET commands work?

Eduardo B on 9/17/2018: This reply is probably outdated from 2015. It is 2018. Something changed

George Bowyer on 10/16/2018: Is there any specific reason why, when adding a new bound field, you always copy an existing field and change the source rather then using the "available fields" feature - or is it just because you got in the habit of doing it that way
?

Reply from Alex Hedley:

Formatting! If you drag on a new Field it has the default formatting and properties, most of which have likely been changed so you then only need to update the source and nothing more.

George Bowyer on 10/18/2018: Thanks. This code works fine for selecting a different outlook account.

George Bowyer on 10/20/2018: When I send the survey out, it is arriving without any carriage returns in the plain text message; ie: the "form" is all on one line of text.

Reply from Alex Hedley:

Does the text contain newline characters? You may need to check for these and add/convert if not there

Add Your Questions or Comments