Open An Email Template. Sorry If This Is Easy

Oct 30, 2006

Hi all, I have done a search to try and find an answer to this question but haven't found quite what i'm after.

I have an email template saved and all I need is a (hopefully very simple) command button that when pressed opens the outlook email template.

I don't need any addresses filled in or anything else like that, just the template to open.

Sorry if this is such an easy question to answer but i'm not that great with access but was still asked to find out a way of doing this.

If any better ideas can be suggested please do as i'm open for ideas.

Thanks for any help.

View Replies


ADVERTISEMENT

Gaps In Between Tables On Html Email Template

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'>&nbsp;</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>&nbsp;</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>&nbsp;</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'>&nbsp;&nbsp;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'>&nbsp;&nbsp;This</font></td></tr><tr><td width='200' height='20'>&nbsp;</td><td width='400' height='20'>&nbsp;</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'>&nbsp;&nbsp;This</font></td></tr><tr><td width='200' height='20'>&nbsp;</td><td width='400' height='20'>&nbsp;</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'>&nbsp;&nbsp;This</font></td></tr><tr><td width='200' height='20'>&nbsp;</td><td width='400' height='20'>&nbsp;</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'>&nbsp;&nbsp;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'>&nbsp;&nbsp;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>&nbsp;</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>&nbsp;</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'>" & _
"&nbsp;&nbsp;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>&nbsp;&nbsp;+44 (0) 208 814 2727</b></font></td></tr></table></td>" & _
"</tr><tr><td>&nbsp;</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>&nbsp;</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);'>" & _
"&nbsp;&nbsp;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);'>&nbsp;&nbsp;+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);'>" & _
"&nbsp;&nbsp;+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'>&nbsp;&nbsp;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'>&nbsp;&nbsp;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

Modules & VBA :: User Generated Email Template

Jun 11, 2013

I would like to create a table containing email templates for use around various applications and interfaces. I would also like the user to be able to create the text for these templates, but as well as the dynamic text. So a user might create a record as such:

Email_Template_ID: 1234
Email_Name: "Payment notification"
Email_Subject: "Project ID: {Project_ID} - Payment made"
Email_Body:
"Dear {Title} {Surname}
We have recently made a payment of {Amount}. Please check your bank account in the next two days. This relates to Project ID: {Project_ID}, {Project Name}.
Best wishes
Payment Team"

So a user, with sufficient knowledge of certain field names, would be able to drop in the dynamic content as they deem appropriate. The VBA would then replace anything in curly brackets with the genuine field name.

I could possibly start with Replace(Email_Body, "{", "' & [") and repeat it for the end curly bracket, but I'm sure VBA would just render this as Dear ' & [Title] & ' etc. without interpreting it as Dear Mr...

I hope I've explained myself OK. To look at it another way, in Excel there is a function called INDIRECT() which allows Excel to interpret a cell reference as the actual content of the cell...

View 1 Replies View Related

Another Email Question. Should Be An Easy One

Feb 24, 2005

When I have a report sent to 50 users. The report comes to
first. I DO NOT WANT IT TO COME TO ME FIRST. I would like
to have it go directly to the users. I can't think of anyway
to make that happen. It allways comes to me, than I have to
forward it on to the users. How can I make it bypass me and
go directly to the users. I didn't write it in code, I use a macro
"sendobject".

Any ideas?

joe_duncan@nps.gov


Thanks

View 1 Replies View Related

Forms :: Email Using User Selected HTML Template With Optional Report As Attachment

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

Modules & VBA :: Open Outlook And Send Email

Feb 3, 2014

I'd like a command button to open Outlook and create a new email message with the To and Subject fields already populated with what I want, is there anyway to do this?

View 1 Replies View Related

Modules & VBA :: Open Email Without Filling Recipient?

Oct 31, 2013

I have the following code (which everyone uses) but I have a challenge.

I ONLY want to use two (maybe three) fields from the database! (Subject & Body... with the POTENTIAL of an attached document.

I want to fill in the "to" section AFTER the email is open. This will allow me to make changes if I need to before it is sent.

Here is the code I am trying to work with. (It should look familiar) but I can't get it to keep outlook open!

Code:
Private Sub SecondEmail_Click()
'open Outlook, attach zip folder or file, send e-mail
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem

[Code] .....

View 1 Replies View Related

Modules & VBA :: Button To Open Up Outlook Email

Jun 26, 2014

I would like to create a button that when pressed opens up an outlook email. The email address will be populated by one email address every time. I don't want it to automatically send as the body will need to be filled out by the user. It would be useful if the date and time it was sent could be recorded in the form somewhere too (would this be in a text box?).

View 3 Replies View Related

Email Current Contact On Form/Open Outlook

Nov 3, 2004

I've researched all the email topics, but can't find what I am trying to do.
Most of these topics are talking about emailing a record or form or something.

I have a form that contains thousands of contacts address, telephone, email, etc.
I would like to create a button that on click would open Outlook and grab ONLY the
email of the current contact I am looking at on the form at that time and add that
email address to the [To:] box of a new email.

Thanks you guys, I'm learning...slowly, but it's coming.

View 4 Replies View Related

Modules & VBA :: Email Hyperlink / Attachment To Open Access File?

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

Using Create Email Button - Access Fails To Open Outlook

Dec 16, 2012

Occurs when I try using the Create Email button. I've enabled the access add in in Outlook. Same message comes up when Outlook is closed or open.

View 4 Replies View Related

General :: Macro To Email A Form Once Condition Met - Open Outlook From Access

Apr 10, 2013

I have a macro set to email a form to a person once a condition is met. This works fine but I've discovered that Outlook (2010) has to be open BEFORE this macro is invoked.

I wanted to add a step to the macro before the one that makes it email that basically says to open Outlook.

I have tried the RunApplication macro, but I apparently am not getting the path right. I don't understand what the problem is.

I accidentally dragged Outlook to my desktop and therefore created a shortcut from my Start Menu, but now when I go to Microsoft Office in my Start Menu, Microsoft Outlook isn't one of the options. I can't find the path to where it may reside now.

I am using the path to the shortcut on my desktop.

C:UsersJust MeDesktopMicrosoft Outlook 2010

What else am I supposed to do?

View 8 Replies View Related

Open File Msg (outlook) From Access With Double Click On Email Address

Mar 15, 2012

In an ACCESS DATABASE I have 2 fields

-email_address

-language

I want make double click on email_address field and open a specific files msg

example :

double click on gimec.roberto@gmail.com

if the language is ITALIAN open in OUTLOOK file ITALIAN.msg

if the language is RUSSIAN open in OUTLOOK file RUSSIAN.msg

View 1 Replies View Related

Queries :: VBA Code On Subform To Lookup Email Field On Table And Launch Email?

Jun 26, 2015

VBA Code to go in the on double_click event of a name field in a Subform bound to a table. The subform is just a copy of a data table and within the subform view, When the field "employee name" which contains e.g. John is double clicked, I would like access to Lookup and get John's email in the employee table under field "Email" and launch outlook application and insert it into the To field.

I assume hyperlinking the field can also achieve this similar to what excel does but I am fast learning that what is standard functionality in excel is a whole another story in Access..

View 3 Replies View Related

General :: How To Send A Single Email Message To All The Email Addresses In Query

Jun 2, 2014

I have a query (Access 2007) that contains a field named "email" (which contains email addresses, of course). I want to email everyone in the query and they are all going to receive the same message. My email to them doesn't have to be personalized and I don't need to collect data from the recipients. I don't even need a reply to the email I send.

View 12 Replies View Related

Modules & VBA :: Form Which Has Button To Email Data Out In Standard Email Message

Jan 15, 2014

I have a form which has a button to email the data out in a standard email message.

Private Sub Command60_Click()
Dim MyDb As dao.Database
Dim rsEmail As dao.Recordset
Dim sToName As String
Dim sSubject As String
Dim sMessageBody As String

[code]...

This works well enough, however, FIELDS 11 through to 16 contain the venue address. This is all we ll and good if every field of the venue address is populated. here are times when not all of the fields are populated, for instance, the address might only be 5 lines.I know I can do this using IIf statements on a report, but how can i achieve the same thing for the email.

View 6 Replies View Related

General :: Send A Specific Email From Outlook To All Email Addresses Within A Query

Jan 21, 2014

I have a database that I can use to create a query, grouping companies by city. I then want to send a specific email I have created in outlook to all of the email addresses in the query.I do not need to include names.

View 6 Replies View Related

Modules & VBA :: Generate Multiple Email Messages To Different Email Addresses

Jul 16, 2014

I have made a query with the name "Confirmation" and it is setup like this:

Name trainee Email Training
John John@mail.com Tr one
Mary Mary@mail.com Tr two

I also made a button in a report with the title "Send Mail" now is my goal that if i press that button automatically multiple e-mail message's will be generated with data from people in that query. So if click on that "Send Email" button i want two different mails messages generated that will be send to John@mail.com and Mary@mail.com with in the mail body their data.

View 13 Replies View Related

Modules & VBA :: Specifying Email Address When Sending Email Via SMTP

Jan 19, 2015

I am currently using vb code to send an email in Access on the click of a button. I want the database user to be able to enter the recipient in a text box [ToEmail] which is on form [GroupStockProfiler]. However, I'm unsure how to put this into my code. I currently have the following which doesn't work (unless I put a specific email after 'To'):

Private Sub Command414_Click()
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2
Const cdoAnonymous = 0

[code]...

View 1 Replies View Related

Forms :: Add Senders Email Address To Body Of Email

Sep 16, 2013

I want to automate an email to include the senders email addres with some text in the body of the email.

Code:
Private Sub send_mail_Click()
Dim olApp As Object
Dim objMail As Object
On Error Resume Next 'Keep going if there is an error
Set olApp = GetObject(, "Outlook.Application") 'See if Outlook is open

[Code] ....

View 3 Replies View Related

Exporting Email Addresses To Email Program

Sep 22, 2005

I have an Access database list of people, which includes their email addresses. I want to export the email addresses to Hotmail or Netscape email.

How can I do that?

View 1 Replies View Related

Modules & VBA :: Add CC Email Addresses Into Automated Email?

Aug 3, 2015

I have an automated email system (Lotus Notes) in a Access database I have created and am looking for the code needed to add up to 3 c.c addresses into an email prior to sending automatically.

The code I have to send the email to the To: individual is all working but what code I need to add and where for the c.c addresses of which there could be 1, 2 or 3. The control for To address is EmailTo = CustCopyEmail The controls for the 3 c.c emails are cc_EmailAddress, cc_EmailAddress1 and cc_EmailAddress2.

Here's the code I have:

Private Sub SEND_CC_Click()
' Set up the objects required for Automation into Lotus Notes.
Dim Maildb As Object 'The mail database.
Dim Session As Object 'The Lotus Notes session.
Dim MailDoc As Object 'The mail document itself.
Dim UserName As String 'The current users Lotus Notes name.

[code]....

View 8 Replies View Related

Template

Nov 3, 2005

Hi

Would it be possible to automaticaly enter data from a form in to a word template e.g address

cheers

ross

View 3 Replies View Related

Help With Template

Nov 29, 2006

I have downloaded an MS template for a Membership Data Base. I can't figure out how to import membership data from excell into the template. Please help this mewbe.

View 11 Replies View Related

I Have A Template In Word

Jul 11, 2005

and I want to write in some places


I know to open the word
and write in to the word


to write in to word:

Dim objWord As Word.Application

Set objWord = CreateObject("Word.Application")
objWord.Visible = False 'True is visible
objWord.Documents.Add ("C:DocumentsTest.dot")
objWord.ActiveDocument.Bookmarks("bmCusDetails").Select
objWord.Selection.Text = Forms![a]![b]


objWord.Visible = True


but how am I write in a special place?

thanks alot, and sorry on my english

View 1 Replies View Related

Help File Template?

Mar 20, 2007

Hi all,
Is there anybody out there that has created a help file for their access db?
im debating on creating one for my users, but do not know where to start to create a helpful, meaningful file.
is there a template or something that i could follow? or can someone show me an example of a decent one that thye have created? thanks!

View 4 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved