Solved

VBA - Embed multiple files in Outlook body

Posted on 2010-09-08
11
1,019 Views
Last Modified: 2012-06-21
Hi.
I am using the following code in Access VBA to send messages. I already have code to
attach multiple files to the message according to the paths held in a ListBox.
What if I want to rather embed multiple images into the body of the messages?
What code would I use? Thanks
Sub SendEmail_Contacts()

 

    Dim olApp As Object, olMsg As Object

    Dim rs As DAO.Recordset

    

    Set olApp = CreateObject("Outlook.Application")

    Set rs = CurrentDb.OpenRecordset("NameOfTable")

    

 

    Do While Not rs.EOF

        If Nz(rs!EmailAddr, "") <> "" Then

            Set olMsg = olApp.CreateItem(0)

            With olMsg

                .To = rs!EmailAddr

                .Subject = rs!Subject

                .Body = rs!Body

                '-------------Embed multiple images (eg HTML) in body -----------

                

                

                

                '-------------add multiple attachments --------------------------

                        Dim j As Integer

                        For j = 0 To FileList.ListCount - 1

                            oMsg.Attachments.Add FileList.Column(0, j)

                        Next j

                '----------------------------------------------------------------

                

                .Send

            End With

        End If

        rs.MoveNext

    Loop

 

    Set olMsg = Nothing

    Set olApp = Nothing

    rs.Close

    Set rs = Nothing

 

    MsgBox "Done"

 

End Sub

Open in new window

0
Comment
Question by:murbro
11 Comments
 
LVL 4

Expert Comment

by:tabish
ID: 33626238
You'll have to attach the messages as usual and then manipulate the HTMLBody of the message.

http://www.outlookcode.com/d/code/htmlimg.htm
0
 

Author Comment

by:murbro
ID: 33654166
Hi. Thank you for that code but I still need to embed multiple images. How would one update the code you gave to embed three images
0
 

Author Comment

by:murbro
ID: 33654167
Hi. Thank you for that code but I still need to embed multiple images. How would one update the code you gave to embed three images
0
 

Author Comment

by:murbro
ID: 33654724
I found this article that seems to hint that CDO is not supported for my Outlook 2010
http://blogs.msdn.com/b/deva/archive/2010/01/19/outlook-2010-why-cdo-1-2-1-not-supported-with-outlook-2010.aspx
0
Microsoft Certification Exam 74-409

Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

 
LVL 47

Expert Comment

by:Dale Fye (Access MVP)
ID: 33655139
Have you tried expanding this to include the Outlook and Automation zones.  You might be surprised to know that there are a number of experts in those zones that know their way around VBA but are not Access experts, and some who are Access Experts as well.
0
 
LVL 59

Accepted Solution

by:
Kevin Cross earned 500 total points
ID: 33655213
It doesn't appear to me that the article you are referencing regarding CDO is relevant here.  In your question you indicated that the code above is working as it stands and all you want to do is add HTML code to the body (i.e.,  tags).  Please try the code given -- see if this reference helps to clarify:

http://msdn.microsoft.com/en-us/library/aa220082(v=office.11).aspx

It is for Office 2003, though, but the HTMLBody should still be correct property of Outlook.MailItem.  To add multiple images, you would do the same you would do on any web page: have multiple img tags.

""

Hopefully you have already accounted for where the images fit within the body HTML coming from database, but other than that think you should be set.
0
 

Author Comment

by:murbro
ID: 33655878
Hi mwvisa1, thank you, but I am still not clear on this. What code would I use email several html images in the body of an Outlook message for Outlook 2010, where CDO referencing doesn't work.
0
 

Author Closing Comment

by:murbro
ID: 33656611
Thanks very much for the redirection. Great help.
0
 
LVL 59

Expert Comment

by:Kevin Cross
ID: 33656663
Sorry I missed your earlier message ... was actually sleeping for a change.
However, I see that you have figured out what I was saying.

Glad it helped.

Best regards and happy coding,

Kevin

P.S. If you meant to assign some points to tabish also, please feel free to contact a Moderator as you will have no objections from me as I was trying to help drive home or clarify the point by assisting.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

What does UTC stand for?  “Coordinated Universal Time” – Think of this as the true time on Planet Earth that never changes with the exception of minor leap seconds here and there to account for the changes in the planet's rotation.   What does th…
Read this checklist to learn more about the 15 things you should never include in an email signature.
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…

914 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now