Comments on: How to Send E-Mail From MS Access using Outlook

By: Nell

Nell — Tue, 24 Jan 2012 17:36:03 +0000

Many thanks for this – just what I needed for trying to move the small charity for which I work (as a volunteer) into the electronic age!

By: Mike

Mike — Thu, 19 Jan 2012 18:00:06 +0000

Do you know of a way to provide a “text entry field” in Access so the user can enter custom message bodies that allow formatting text in bold, italic, and Word tables?

Seems like VBA Access only allows plain text unless I use the .HTMLbody property in which case, I’m back to hardcoding the message body.

IF NOT THEN…

Is it possible for the user to save an Outlook email in Outlook’s Draft folder and then have Access call that email by Subject Line, and cycle through the “Send To” from Access list?

IF NOT THEN…

I guess I’m looking at querying a list in Access and manually copying it over to a little propriety bulk email program.

Thanks!

By: Jeff Knapp

Jeff Knapp — Sat, 24 Dec 2011 02:43:52 +0000

8000 at once? This won’t do it that well.

By: Greg

Greg — Mon, 19 Dec 2011 22:40:35 +0000

I’m also having trouble with the code to track the email in a separate table. It appears that the variable is being dropped before it can be written. It has no problem with the “DateSent” since it equals now(). But using MyMail.To cause an error that says the item has been changed or deleted.

By: Greg

Greg — Mon, 19 Dec 2011 21:29:46 +0000

Is there an effcient way to use this code to send approx. 8,000 emails at once? I was thinking of trying to have Access create an email list in outlook, but I believe that would involve adding every recipiant to the address book, something I don’t want to do. Thanks!

By: rand

rand — Sun, 11 Dec 2011 04:31:24 +0000

I’m not sure what you mean. to send an email the standard way would be like-
Set db = CurrentDb()
Dim X As String
Set MailList = db.OpenRecordset(“email”) ‘ list of emails
intI = 1
With MailList
Do Until .EOF
X = MailList.Fields(“email”).value
send emails x()
a query cant send objects if thats what your asking.
you need to populate the list of emails then send them.
also if they are stored as hyper links you need to strip them. maybe you can elaborate a little more.

By: tom

tom — Fri, 02 Dec 2011 02:15:44 +0000

I am using a query to show quotes that expired du to exceeding the original quote valid for 30 days parameter.
I am using the emaildatabase object to sendthe query results to an email address.
the email address is a field in the query result.All apears to work if i enter a an email address into the TO field.
When i try to use the email adress value from the query the email does not go with an unknown message recipient error message.
What should the syntax be when using the emaildatabase object in access 2010 to send email to the email address in the query?
=[queryname].[emailaddress] ?????

Thanks

By: Rand

Rand — Thu, 01 Dec 2011 05:38:55 +0000

sorry again there is html formatting in the code here is the link for all parts:http://www.text-upload.com/read.php?id=207973&c=2503758
Maybe you should down this link and view it in your IDE editor. I use Codelobster for my editor.
I have success fully sent over 1000 newsletters with this code and hope you learn that even though microsoft constantly challenges us with more and more security blocks we can eventually overcome them with everyones ingenuity and desire to take on a challenge.

By: Rand

Rand — Thu, 01 Dec 2011 05:19:40 +0000

This section below is actually the most important part what were trying to achieve.
Set oAttach = oMsg.attachments.Add(aryAtt(i))
‘If the attachment is a .jpg assume that we want to embed it in the email
If Right(aryAtt(i), 4) = “.jpg” Then
oAttach.Fields(“MimeTag”) = “image/jpeg”
oAttach.Fields(&H3712001E) = “picture” & CStr(i)
‘I’m assuming we want the pictures below the optional text that’s passed into this function
sMsgBody = sMsgBody & “”

By: Rand

Rand — Thu, 01 Dec 2011 05:18:07 +0000

Part 3- the sub which created the mail objects and ties it all in together.Note: This is not my code, i dont know who the auther is but i did change it abit to suit my needs. Sorry Mr Author who ever you are.
Private Sub subHandleSendingEmail(sDisplayOrSend As String, _
sTo As String, _
sCC As String, _
sBCC As String, _
sSubject As String, _
sMsgBody As String, _
sAtts As String)

‘sAtts is expected to be a list of files to attach, delimited by “|” (known as a pipe)
Const olFolderOutbox = 4
Const olFolderDrafts = 16

‘This section of code will attempt to get an instance of the Outlook object using late binding.
‘If Outlook is closed the code should open Outlook.
‘If Outlook is not installed or the install is corrupted, this section of code should detect that.
On Error Resume Next

Dim oOutlookApp As Object
Set oOutlookApp = GetObject(, “Outlook.Application”)
If Err.Number 0 Then
Err.Clear
Set oOutlookApp = CreateObject(“Outlook.Application”)
If Err.Number 0 Then
MsgBox “Error: ” & Err.Number & vbCrLf & vbCrLf & _
Err.description & vbCrLf & vbCrLf & _
“Apparently you do not have Outlook installed or configured properly.”
Err.Clear
Set oOutlookApp = Nothing
Exit Sub
End If
End If

Dim oSession As Object, oMsg As Object, oAttach As Object
Dim i As Integer, sEntryID As String, sStoreID As String

On Error Resume Next
Set oSession = CreateObject(“Redemption.RDOSession”)

If Err.Number 0 Then
MsgBox “Please contact your database administrator and give him the following message:” & vbCrLf & vbCrLf & _
“There was a problem creating the RDOSession. Outlook Redemption Objects must not be installed.”
Err.Clear
Set oSession = Nothing
Set oOutlookApp = Nothing
Exit Sub
End If

oSession.Logon
Set oMsg = oSession.GetDefaultFolder(olFolderDrafts).items.Add
sStoreID = oSession.GetDefaultFolder(olFolderDrafts).StoreID

sEntryID = oMsg.EntryID

‘Multiple email addresses can be passed into the email address fields
‘by passing them into this function, separated by a semicolon

‘If you want to validate the email addresses to make sure they actually have an
‘@ symbol in them and have a domain name that’s formatted correctly, you’ll
‘need to do it before passing it into this function or do it below.

oMsg.To = sTo
oMsg.cc = sCC
oMsg.BCC = sBCC
oMsg.Subject = sSubject

‘This code will put the attachment filenames listed in sAtts into an array
‘and then attach each file as an attachment and embed the jpegs into the body.
If sAtts “1″ Then ‘ used to be a zero
i = 0
If InStr(sAtts, “|”) = 0 Then sAtts = sAtts & “|” & ” ”
‘Remove any doubled up delimiters
sAtts = Replace(sAtts, “||”, “|”)
Dim aryAtt() As String
aryAtt = Split(sAtts, “|”)

Do Until i = (UBound(aryAtt) + 1)
‘Check to see if the filename is blank before attaching it
If Trim(aryAtt(i)) “” Then
‘Check to see if the file actually exists before attaching it
If Dir(aryAtt(i)) “” Then
Set oAttach = oMsg.attachments.Add(aryAtt(i))
‘If the attachment is a .jpg assume that we want to embed it in the email
If Right(aryAtt(i), 4) = “.jpg” Then
oAttach.Fields(“MimeTag”) = “image/jpeg”
oAttach.Fields(&H3712001E) = “picture” & CStr(i)
‘I’m assuming we want the pictures below the optional text that’s passed into this function
sMsgBody = sMsgBody & “”
End If
End If
End If
i = i + 1
Loop
Else
MsgBox “quitting , no file selected!”
Exit Sub
End If

oMsg.HTMLBody = sMsgBody
oMsg.Save

sEntryID = oMsg.EntryID

If LCase(sDisplayOrSend) = “send” Then
oMsg.Send
End If

oSession.Logoff
Set oAttach = Nothing
Set oMsg = Nothing
Set oSession = Nothing

If LCase(sDisplayOrSend) = “display” Then
Set oMsg = oOutlookApp.GetNamespace(“MAPI”).GetItemFromID(sEntryID, sStoreID)
Err.Clear
On Error Resume Next
oMsg.Display
If Err.Number 0 Then
MsgBox “There was a problem displaying the new email because there is a dialog box ” & _
“open in Outlook. Please go to Outlook to resolve this problem, ” & _
“then look for the new email in your Drafts folder.”
Err.Clear
End If
Set oMsg = Nothing
End If

Set oOutlookApp = Nothing

End Sub