Modules & VBA :: HTML Format Email With Hyperlink
Aug 20, 2014
I am using the following vba code to create and send an html format email message. The key information in the email is a hyperlink to a network drive folder location using [Directory] as a hyperlink table value to get the address that is stored like this:
K:PipelinesP9 - TEP ProductsMOP AID-1500Final Approved
The email hyperlink that is produced looks like this:
#K:PipelinesP9_-_TEP_ProductsMOP_AID-
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Dim MOPVDB As String
MOPVDB = "H:PGADSBYMOP VALIDATIONTRACKINGMOPVDBMOP Validation DatabaseFE.accdb"
Set appOutLook = CreateObject("Outlook.Application")
[code]...
View Replies
ADVERTISEMENT
Jul 2, 2014
I'm trying to create a lotus notes email through vba that contains data from one of my access tables. Since I'd like the data to be displayed in a tabular fashion, I'm trying to format the body of the email in html.
View 1 Replies
View Related
Feb 18, 2014
I have the following code which works perfectly BUT I want to be able to add another line of text if users enable a checkbox. I have tried everything I can think of but can't get it to work. When using an "IF check150" statement it just adds the extra text in regardless of selection or not.
Code:
Function Mail_Radio_Outlook6(activedoc As String)
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim acc_req As String
Set OutApp = CreateObject("Outlook.Application")
[Code] ....
This is fine most of the time but If a user ticks check150 I want to add another paragraph.
Do I use an IF statement, if so in what format? is it a separate function etc?
I am slowly getting more familiar with Access but still come unstuck on the simplest of things at times.
View 3 Replies
View Related
Apr 30, 2015
What I want to do is inset a html file into the body of the email . I have created a publisher file and saved as html ..say
C: estpub1.html
How do I get this in to the body ?
Code to date below (not the tidiest - but it works)
Private Sub Command0_Click()
Dim MyDb As DAO.Database
Dim rsEmail As DAO.Recordset
Dim OutApp As Object
Dim OutMail As Object
Dim strAttach1 As String
[Code] ......
View 9 Replies
View Related
Jun 17, 2013
I'm running the following code to generate an email from a report.
Quote:
Function ExportHTML3()
Dim strline, strHTML
Dim OL As Outlook.Application
[Code].....
But I don't really know much VBA and I found that code on the internet, so I can't figure out how it's doing that and if I can stop it. Or is there another way to get the text from the HTML file into the Email body, which brings the bold formatting with it, like the following.
Incident Reference: AA99999
View 4 Replies
View Related
Aug 1, 2013
I have an Access 2010 database which has a table with several fields with the Hyperlink data type. Some of these hyperlinks reference files stored in a SharePoint database. I am relatively new to using hyperlinks. The task is to insert those hyperlinks into an email using VBA so that the recipient can just click on them to view the documents.
I have no problems with using VBA to create emails or to add attachments. My issue is with adding hyperlinks to the body of the email.
View 12 Replies
View Related
Aug 4, 2014
My company recently upgraded our MS Office from 2007 to 2010 (except for Access).
Previously, when I had Access 2007 and Outlook 2007, I had a process that generated 50+ dynamic emails from an Outlook template file (.oft).
The code would loop through a listbox and replace the template's default text to a string of text specific to the selection in the listbox by utilizing the Replace() function on the MailItem .HTMLBody.
Since the upgrade to Outlook 2010, the code is able to run, however, the Replace() function is no longer working; Instead, each email that is generated maintains the template's default text.
The only thing that is not working is the Replace() function, all other aspects of the code work fine.
I've provided a simplified version of the code below:
Dim myOlApp As Outlook.Application
Dim objMailMessage As MailItem
Dim stBody As String
Set myOlApp = Outlook.Application
Set objMailMessage = myOlApp.CreateItemFromTemplate("C:UsersDesktop emplate.oft")
[Code] .....
I've recreated the template file in Outlook 2010, thinking that the template created with Outlook 2007 would be the culprit, but to no avail.
What could have changed from Outlook 2007 to Outlook 2010 that would render my previously valid code ineffective?
Are there certain references I need to enable in both Access and Outlook to allow VBA in Access modify the content in an Outlook email?
View 12 Replies
View Related
Jul 24, 2014
I'm about to connect my DB to word. So I made a form where the user has to choose what entry to export. The data is inserted in a word file in different bookmarks. But there is one special task to insert the rich text so in this case the html formatted text is displayed like this:
Code:
<html><div>asdf</div></html>
My Text is inserted like this:
Code:
wdApp.ActiveDocument.Bookmarks("-Bookmarkname-").Range.Text = Lrs("-ColumnName-")
Lrs is a Recordset.
So how is it possible to display the html code right in the Word doc?
View 1 Replies
View Related
May 15, 2015
I have created an action log database that sends an email when a new action is entered. I would like to launch the database using a hyperlink in the email, but can't seem to get it to work. All users have a copy of the front end on their desktop, so whatever I add to the email needs to launch the front end for any user signed on to their own desktop.
This is what I have and it sends a hyperlink but I click it, I get an error saying it can't find the file. I don't know how to word the path name for any user?
With obMsg
.subject = "New action request for " & team
.To = people
[Code].....
View 14 Replies
View Related
Jul 25, 2007
HI All,
I have scoured the net and these forums looking for the answer but cannot find a good solution.
I am producing flow charts in Visio, and then saving them as HTML documents for use on our Intranet. Within the Visio flow diagrams I am using Hyperlinks on various shapes and text, to enable the viewer to open various other documents in various other applications. This seems to work fine in my web browser for normal office documents, like word and excel, but I need to be able to do it for MS Access databases too! Because the web browser tries to open it in the browser itself, the database won't open and I just get the normal "Web Page Could not be found" screen.
Another useful feature would be to be able to open to a number of different specific forms from a database, depending on which hyperlink is clicked. I assume this is not possible as you only seem to be able to define on page to be displayed upon opening the DB. Am I correct?
Any assistance would be greatly appreciated.
View 2 Replies
View Related
Nov 10, 2014
I have a subform in Continuous Records format (records displayed are determined by controls on the parent). I would like to create a button that prepares an email and copies the contents of that subform in to the body of an email message.
The email. I have a method to create a new email, set To, CC, Subject and even Message Text.
Code:
strTo = txtName
strCC = txtManager
strSubject = "Something"
strMessage = "Hi, please find below list of details from X Y and Z" & vbnewline & vbnewline
That all works. Thats fine
The Records: I have found ways to have them added as an attachment, either the the SendObject and OutputTo method but I would like the list of records to be converted to a text string so I can include it within my strMessage variable, not include it as an attachment.
Code:
strMessage = strMessage & "Subform Records to go here"...
View 7 Replies
View Related
Aug 29, 2004
I'm updating a database that automatically sends an email to the drafts folder of Outlook. The developer that created the database used VBA code to call html code written in a table. The html code contains the body of the letter. I've figured out most of it but I need to include a date (one month from the current date) in the body of the letter. Unfortunately I've been researching java script and html all weekend and still haven't managed to figure that one out. Can anyone out there help with this? Also is this normal to include html and javascript in Access, I have never seen it before. Are the benefits good? I have serious studying to do if this is the case.
View 1 Replies
View Related
Aug 27, 2015
I can create PDF's, DOCX's retaining the PDF formatting save them back to different network locations and then retrieve and attach to emails that are generated for different areas, however I have been asked to scrap the attachment and insert the content of the attachment directly into the body of the email. I have had a good browse around the net with no real approach. The code below simply gets the recepients email address adds the subject and then is looking for the .HTMLBody which simply comes through in the body as
"O:divAKLResgroupE - ReportsHTML FilesDRAFT TEST .html".
.To = RScoloumdetail(2) ' Gets Email Address
.CC = ""
.BCC = ""
[code]....
View 2 Replies
View Related
Sep 21, 2006
my html template is built inside access.. the form button is clicked and the template opens in outlook.
it looks fine in outlook.. so i send the email.. when i receive the email in outlook, it looks fine..
here is what it looks like
http://www.londonheathrowcars.com/image2.jpg
however, i sent the same template to a gmail and hotmail address to see what it looks like..
it looks fine in hotmail
http://www.londonheathrowcars.com/image3.jpg
however in gmail it looks like this..
http://www.londonheathrowcars.com/image1.jpg
now, these gaps are appearing in between tables..
<table>blablabl</table>GAP<table>...
now, my question is.. is there anything i can add to the code that will remove these gaps..
i know my code is messy.. at the moment however it begins with <table> and ends with </table> (the main wrap table)
i realise i may need to add some kind of html type or something, but i dont know what..
as always, if anyone can shed some light on this matter i would be ever grateful..
thank you
below is the code
CODE
Option Compare Database
Private Sub emailbutton_Click()
'References: Oulook Library
Dim strEmail, strSubject As String, strBody As String
Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem
Set objOutlook = CreateObject("Outlook.application")
Set objEmail = objOutlook.CreateItem(olMailItem)
strEmail = Me.emailadd
strBody = "<table border='1' width='610' id='table1' cellspacing='0' cellpadding='5' bordercolor='#5A79B5' align='left'><tr><td align='center'><table border='0' width='600' id='table2' cellspacing='0' cellpadding='0'>" & _
"<tr><td width='300' height='61'> </td><td width='300' height='61' align='center'><img border='0' src='http://www.londonheathrowcars.com/emaillogosmall.gif' width='300' height='61'></td></tr><tr><td width='300' height='30'><font size='2' face='Arial' color='#000080'>FAO</font></td>" & _
"<td width='300' height='30' align='center'><b><font face='Arial' color='#5A79B5'>-------- London Heathrow Cars --------</font></b></td></tr></table><table border='0' width='600' id='table3' cellspacing='0' cellpadding='0'><tr><td> </td></tr><tr>" & _
"<td><font size='2' face='Arial' color='#000080'>Thank you for your booking request via our website.<br>Details of the requested transfer and our fare are as follows:</font></td></tr><tr><td> </td></tr><tr><td><hr color='#5A79B5'></td></tr></table>" & _
"<table border='0' width='600' id='table4' cellspacing='0' cellpadding='0'><tr><td width='200' height='20'><font size='2' face='Arial' color='#000080'><b>Job Date:</b></font></td><td width='400' height='20'><font size='2' face='Arial' color='#000080'> This</font></td>" & _
"</tr><tr><td width='200' height='20'><font size='2' face='Arial' color='#000080'><b>Pickup Time:</b></font></td><td width='400' height='20'><font size='2' face='Arial' color='#000080'> This</font></td></tr><tr><td width='200' height='20'> </td><td width='400' height='20'> </td>" & _
"</tr><tr><td width='200' height='20'><font size='2' face='Arial' color='#000080'><b>From:</b></font></td><td width='400' height='20'><font size='2' face='Arial' color='#000080'> This</font></td></tr><tr><td width='200' height='20'> </td><td width='400' height='20'> </td>" & _
"</tr><tr><td width='200' height='20'><font size='2' face='Arial' color='#000080'><b>To:</b></font></td><td width='400' height='20'><font size='2' face='Arial' color='#000080'> This</font></td></tr><tr><td width='200' height='20'> </td><td width='400' height='20'> </td>" & _
"</tr><tr><td width='200' height='20'><font size='2' face='Arial' color='#000080'><b>Vehicle:</b></font></td><td width='400' height='20'><font size='2' face='Arial' color='#000080'> This</font></td></tr><tr><td width='200' height='20'><font size='2' face='Arial' color='#000080'><b>Set Fare:</b></font></td>" & _
"<td width='400' height='20'><font size='2' face='Arial' color='#000080'> This</font></td></tr></table><table border='0' width='600' id='table5' cellspacing='0' cellpadding='0'><tr><td><hr color='#5A79B5'></td></tr><tr><td> </td></tr><tr><td>" & _
"<font size='2' face='Arial' color='#000080'>Our drivers are courteous, experienced and smartly presented. In addition, all of our vehicles are modern, clean and comfortable. To book this transfer, kindly reply to this email or call us on the following:</font></td>" & _
"</tr><tr><td> </td></tr><tr><td><table border='0' id='table9' cellspacing='0' cellpadding='0'><tr><td width='150'><b><font face='Arial' size='2' color='#000080'>Freephone (UK Only):</font></b></td><td width='150' align='left'><b><font face='Arial' size='2' color='#000080'>" & _
" 0800 505 3231</font></b></td></tr><tr><td width='150'><b><font face='Arial' size='2' color='#000080'>International:</font></b></td><td width='150' align='left'><font face='Arial' color='#000080' size='2'><b> +44 (0) 208 814 2727</b></font></td></tr></table></td>" & _
"</tr><tr><td> </td></tr><tr><td><hr color='#5A79B5'></td></tr><tr><td><b><font size='2' face='Arial' color='#5A79B5'>Hasan Karim - Operations<br>London Heathrow Cars<br> </font></b></td></tr></table><table border='0' width='600' id='table10' cellspacing='0' cellpadding='0'>" & _
"<tr><td><table border='0' width='325' id='table11' cellspacing='0' cellpadding='0'><tr><td width='75'><font face='Arial' color='#5A79B5'><span style='font-size: 8pt'>Address:</span></font></td><td width='250'><span style='font-size: 8pt; font-family: Arial; color: rgb(90, 121, 181);'>" & _
" Suite 7, Jolyon House, Amberley Way, TW4 6BH</span></td></tr><tr><td width='75'><font face='Arial' color='#5A79B5'><span style='font-size: 8pt'>Phone:</span></font></td><td width='250'><span style='font-size: 8pt; font-family: Arial; color: rgb(90, 121, 181);'> +44 (0) 208 814 </span>" & _
"<span style='font-family: Arial; font-size: 8pt; color: #5A79B5'>2727</span></td></tr><tr><td width='75'><font face='Arial' color='#5A79B5'><span style='font-size: 8pt'>Fax:</span></font></td><td width='250'><span style='font-size: 8pt; font-family: Arial; color: rgb(90, 121, 181);'>" & _
" +44 (0) 208 399 6500</span></td></tr><tr><td width='75'><font face='Arial' color='#5A79B5'><span style='font-size: 8pt'>Web:</span></font></td><td width='250'><span style='font-family: Arial; font-size: 8pt; color: #5A79B5'> http://www.LondonHeathrowCars.com</span></td></tr><tr>" & _
"<td width='75'><font face='Arial' color='#5A79B5'><span style='font-size: 8pt'>Email:</span></font></td><td width='250'><span style='font-family: Arial; font-size: 8pt; color: #5A79B5'> info@LondonHeathrowCars.com</span></td></tr></table></td></tr></table></td></tr></table>"
strSubject = "London Heathrow Cars - Booking Request"
With objEmail
.To = strEmail
.Subject = strSubject
.HTMLBody = strBody
'.Send 'Will cause warning message
.Display
End With
Set objEmail = Nothing
End Sub
View 1 Replies
View Related
Sep 18, 2012
I have a database to send e-mails from access trough Outlook. The issue is that I would like the body of the e-mail to have hyperlinks, colours, bolds and that I can get it from plain text.
This is the code I have:
Dim MyDB As Database
Dim MyRS As Recordset
Dim MyTable As Recordset
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
[Code] ....
How can I make the body to be HTML format, or, can I have a e-mail template storaged in my PC and then indicate to use it whenever the e-mail is sent?
View 4 Replies
View Related
Nov 20, 2014
I need to send different reports to a bunch of different persons every hour... I had several macros that did it for me, But Then they wanted me to include a e-mail body that was more than 255chars, so i had to go VBA and i have this (for every set of persons and Reports):
Private Sub Command38_Click()
On Error GoTo ErrorHandler
DoCmd.SendObject acReport, "REPORT NAME", "Extension", "EMAILS", "", "SUBJECT", "EMAIL BODY", True, ""
ExitHandler:
Set rs = Nothing
Set db = Nothing
Exit Sub
ErrorHandler:
[code]....
so everything is good, but NOW they want the body of the email to contain another paragraph totally separated from the first one and they want it highlited and also in Red, How can i add Html to this or do i have to use another method?
I have tried this:
Public Sub TestEmail()
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
[code]...
But it keeps on giving me errors, about objects not being defined.
View 14 Replies
View Related
May 29, 2014
i have thousands of data records with hyperlinks that are correct. Each data record shows the actual link (google.com, foxnews.com, espn.com, etc.). However, i want to change all of the records to just say "link" instead of saying espn.com, etc. How can i do this automatically without having to manually right click, edit, and changing the text to display?
View 6 Replies
View Related
May 14, 2007
Hi im kinda a newbie here so, any helpful comments or links of creating a ms access database where it can be viewed in html is welcome. thanks
View 1 Replies
View Related
May 10, 2014
I would like it to be formated the same on the web page as it is in the MS Access code module.For Example:
Code:
Private Sub Form_Open(Cancel As Integer)
' Minimize the database window and initialize the form.
' Move to the switchboard page that is marked as the default.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
Me.FilterOn = True
[code]...
Is there a free online HTML code editor that will do this?
View 7 Replies
View Related
Jan 7, 2015
How to remove the indent on a <ul> item.
The following link is where I am sourcing how to do it, however no matter what I do within my VB, the email comes up with about a full inch worth of an indent on the UL.
[URL] ....
Code:
"<style>ul { display: block; list-style-type: disc; margin-top: 1em; margin-bottom: 1 em; margin-left: 0; margin-right: 0; padding-left: 0; }</style>"
And then further down in the body where the UL is called
Code:
"<p><ul><li>Print this email and return it with your shipment.</li><b>OR</b><br><li>Include your Dealer Number, Serial Number and Claim Number with your shipment.</li></ul></p>"
No matter what I change, the indentation doesn't move. See below...
View 14 Replies
View Related
Oct 20, 2015
I have a downtime system that was created by our IT department that records the downtime of the line stops, it has export to excel button that will export the downtime to excel based off the parameters of date and time. I want to do the export then import to access for downtime analysis. The problem I am having is the programmers export it as HTML with .xls file format. and the worksheet has a date associated with it as well as the spreadsheet has a tab that contains a date and I can't figure away to import to a fixed table. So I tried the transfer spreadsheet not knowing it was in HTML, couldn't recognize the format, then I tried transfer HTML, can't find the file because of .xls file format. I know I could re-save it as a excel file but was trying to keep the steps to a min. Is there a way to import even though it has a date attached to the file and spreadsheet tab.
View 7 Replies
View Related
Jun 26, 2014
Can I use html to format the message body in send object method ? If I can, how to do that.
View 5 Replies
View Related
Jun 27, 2015
I have an access form. It has
-Two textboxes with client first and last name
-Two textboxes with a contact 'email1' and 'email2' for the client
-A combobox with a list of templates to use for the email.
-A checkbox to include a copy of the statement on the email.
I want the user to be able to press a button which does the following
-Sends an email to both 'email1' and 'email2'.
-Attaches a secific report as PDF if the user has selected the checkbox
-The body of the email includes a greeting line using the clients name from the record.
-The body of the message includes below the greeting line a html email template depending on the users combobox selection.
View 3 Replies
View Related
May 29, 2012
I have a form with contact info (name, address, postal code, email etc.) and I have set up the e-mail as a hyperlink to outlook. I would like the hyperlink to not only start a new email to that person but also have text in the message field (a template). For example,
"Hi, [Name]
I would like to confirm your address of [Address] for delivery of a package.
Thanks"
Is something like this possible? The template would include much more text than this but if this works, I can do the template myself. If it is not possible to personalize the name and address automatically within the message, they can be entered manually in the message but ideally, I would like to do it automatically.
View 10 Replies
View Related
Dec 4, 2006
A have a table with many records and each record has a hyperlink to a document. Based on some criteria i want to attach the hyperlink file to an email. Don't want to have to do this manually. Is there anyway i can write code to go and get the hyperlink file and then attach the physical file into the email? This could result in 1 file being attached, 13 files being attached, 0 files etc.
Any help would be greatly appreciated.
Cheers,
Combsie.
View 5 Replies
View Related
Mar 2, 2012
We're using Access 2010 on Windows 7.We have a large database design where we send reports as e-mail attachments. We need to change the way the file is automatically created when sent. I goes to snapshot form every time we attach it to an e-mail. How can we get rid of the snapshot .snp file format? How can we change it to pdf or accbd?
View 3 Replies
View Related