Conditional Formatting Text In Outlook Email Generated From Access DB VBA
Oct 9, 2012
I can generate an email by clicking on a button on a MS Access Report. In the body of the resulting Outlook email you have formatted text. I have also included an array of values which are displayed in this email but I need to highlight certain items in the array in red based on whether or not another column for that record is checked. Here is an image of the email. Notice that I have circled "ZWO" and that it is red. I need for this to happen programmically.
View Replies
ADVERTISEMENT
Dec 3, 2013
I use this bit of code to generate an Outlook email body with the contents of strBody. How can I modify this so the HTML generated is in "Courier new" font size 11?
With MailOutLook
.To = Recipient
.CC = RecipientCopy
.Subject = Subject
.BodyFormat = olFormatHTML
.Body = StrBody
.display
End With
View 4 Replies
View Related
Sep 4, 2013
I am close to getting code to send an email from access with the body of the email populated with a Rich Text textbox from my access form. The problem I am having is that the body of the email is converted to plain text in Outlook which is creating problems for me. How to identify what I can do to convert to rich text or HTML in Outlook? I also want to attach a table that is populated by a query in my application, but i haven't got that far yet.
View 5 Replies
View Related
Nov 21, 2006
Hey, I was wondering how I would tell Access to set bold on my email message. I use this code to generate the email:
Private Sub Email_Click()
strToWhom = [EMAIL]
strMsgBody = "This is my email body, I would like this word bold"
DoCmd.SendObject , , , strToWhom, , , "Subject", strMsgBody, True
End Sub
Thanks for any help provided.
View 2 Replies
View Related
Jun 5, 2006
hi
is it possible to conditionally format a text box based on the value of another text box on the same form? If so hows it done?
thanks v much
View 1 Replies
View Related
Jul 3, 2013
I have a text box on a report from the Control Source CSCS Expiry Date. The format in the table and query and report is Short Date. The Text Format is Plain Text.
I have named the text box txtCSCSExpiryDate. I would like to make the background red when the date is 01/04/2013. I have ensured the text box back style is normal.
I am using expression
[txtCSCSExpiryDate]=#01/04/2013#
And in case it was the Control Source:
[CSCS Expiry Date]=#01/04/2013#
I also tried:
[CSCS Expiry Date]<Date()
[txtCSCSExpiryDate]<Date()
I applied the formatting each time, tried closing and re-opening the database. Changed the background format colour to green instead of red and even restarted my computer and it just stays exactly the same.
I've just noticed something else. I have a screen only button on my report header with
DoCmd.OpenReport "All_CSCSExpiry_Rpt" acViewPreview
Which has also stopped working. I get an error:
The expression On Click you entered as the event property setting produced the following error: A problem occurred while Employee Details was communicating with the OLE server or ActiveX Control.
Is this linked to my formatting not working?
I've just checked and on my 5 reports all of the print buttons are giving me this error! (I added the button as they are part of a navigation form menu which only shows report view, I am editing in the original report design view though.) They were working yesterday! Is it because I compacted and repaired the database?
View 4 Replies
View Related
Nov 24, 2014
I have an Access 2013 database which will generate a pdf report and attach it to an email using the code:
Code:
DoCmd.SendObject acSendReport, "Report Name", acFormatPDF, Nz(To email address, a), , , "Email Subject", "Email body", True
I would also like to automatically attach on the server to this email. Such a file stored such as servernamesharefilename.pdf. Is it possible to do this?
View 14 Replies
View Related
Mar 24, 2006
Hello,
Could some kind person out there help me out please?
I have been 'dabbling in' the area of conditional formatting, particularly in the area of changing the colour of my active form based on the result of what’s output on a text box. I have had some success in this area but where I am getting confused is getting the colour of my form to change on the basis of what is entered into a text box control that does not match exactly. My forms background changes to the required colour when its value is ‘set exactly’ but what I am trying to achieve is to change it according to the first letter of entry regardless of what follows? It always starts with a letter, either a ‘D’ or ‘V’ to indicate whether its ‘Vital’ or ‘Desirable’ and is subsequently followed by no more than 6 numbers and finally a letter. Basically I need my form to change colour based on the whether it is either a ‘V’ or a ‘D’ irrespective of what follows???
What I have been using so far is:
Private Sub Model_Number_AfterUpdate()
If Me.Part_Number = "V111145K" Then
Me.Section(acDetail).BackColor = 12632256 'Light Red
Else
Me.Section(acDetail).BackColor = 8421631 'Blah Gray
End If
End Sub
Private Sub Form_Current()
If Me.Part_Number = "V111145K" Then
Me.Section(acDetail).BackColor = 12632256 'Light Red
Else
Me.Section(acDetail).BackColor = 8421631 'Blah Gray
End If
End Sub
Can anyone help me out of a ' sticky situation'..
Ta Very much
Carol
View 3 Replies
View Related
Jan 8, 2015
I am trying to get the text in a couple text boxes to turn green if a certain Yes/No field is left blank.
I know the conditional formatting is working, because condition 1 and 3 are working fine (those expressions are referencing text fields).
I would like to have Condition 2 look at [DM_Approval] from the bound query and if it is unchecked, execute the conditional formatting.
I've tried all kinds of statements, but i'm starting to think that the expressions in the conditional formatting window just won't work when referencing a yes/no field.
Specifically (at the very least) i know i tried [DM_Approval]=False, [DM_Approval]=No, [DM_Approval]=0, and [DM_Approval] is null.
View 3 Replies
View Related
Jan 8, 2014
I have a subform with two fields [status] and [process], i am trying to get the backcolor of procces to change to red if the status field contains the text "expired".
I have tried vba. plced on the after update
if me.status = "expired" then
me.process.backcolor = vbred
else me.process backcolor = vbwhite
end if
this
Changes the color of the field [process] but also all process field colors to red even if the status field does not contain "expired".
I think conditional formatting is the way to go but i think i need an expression to complete this.
View 7 Replies
View Related
Apr 26, 2015
I am trying to fetch combobox dropdown text (in the networks label ) into the email body but in vain.
Me.cmb_Network_1_data.Text is giving the RowID instead of the text inside the combobox.
Whichever networks are selected in the six dropdowns should go to email body as you can find in the attachement
Code:
Sub update()
Dim oOutlook As Outlook.Application
Dim oEmailitem As MailItem
[Code]....
View 2 Replies
View Related
Apr 25, 2015
I am trying to fetch combobox dropdown text (in the networks label ) into the email body but in vain.
Whichever networks are selected in the six dropdowns should go to email body as you can find in the attachment ...
View 1 Replies
View Related
Aug 7, 2014
I am making a planner in the access 2010 report. I am showing which activity finished when but I also want to highlight/ shade the cell to the corresponding month on the planner to the right. See picture above. I tried conditional formatting with date rage 1/1/2014 and 31/1/2014 but it does not gives me accurate result.
View 3 Replies
View Related
Nov 4, 2013
I have a table in access and I need to format it so that when column "Status" = "Closed" column "Closed" = "yes". so it will automatically mark column "Closed" "yes" if "status" says "closed". Instead of having to change both columns all the time.I know how to do that in MS Excel, but is it possible in MS Access 2013?
View 3 Replies
View Related
Jan 22, 2008
I have a Access training database which tracks employees trainings as well as their annual recertification dates on particular trainings. Is there a way to have an email sent to the employees automatically when their recertification date is 1 month away?
View 3 Replies
View Related
Aug 7, 2006
Hi
I have written a code that composes a new mail from MS Access. It does what i need. It also gives a question before displaying the mail body :
"A program is trying to access e-mail addresses yo have stored in outlook. Do yo want to allow this ?"
If I give yes, it proceeds with composition. If I give No, it gives an error "Application-defined or object defined error". Is there any way I can avoid this error.
Thanks
View 2 Replies
View Related
Apr 29, 2005
I have code to open a new email and populate the BCC field. My problem is the company usually uses a template for all emails they send, from access how to I het outlook to use the the usually template?
Thanks
Paul
View 4 Replies
View Related
May 15, 2014
I have a continuous subform with a fairly complex snapshot query as its record source. I have controls on the main form to allow criteria parameters for the query and a command button to requery the subform based on the selected criteria. I also have conditional formatting on a number of the continuous controls in the subform (the conditions are fairly straightforward, i.e. highlight if null, true/false etc)
When the subform is (re)queried, it seems to repaint several times (3 or 4 although it appears arbitrary to me) before it eventually settles. And it really louses up the aesthetics as controls flicker between colours; sometimes I even lose the background colour on parts of the detail section, or controls disappear altogether. And this continues as I scroll down the subform (or even click anywhere on it)
I don't mind that the query itself takes some time to run - of the order of a few seconds each time - but I'd prefer for the screen to wait until the query is completed, and all of the CF applied, before refreshing itself, instead of 'sweeping' top to bottom repeatedly. It's a snapshot query so once it's run, there should be no changes to the dataset.
I've tried Application.Echo but it has no effect whatsoever.
View 6 Replies
View Related
Feb 6, 2006
Hi all,
after spending wweks perfecting a database which centres on the ability to email the contents of what you have just entered i find that our stirling IT dept haven't actually setup any of my intended users with outlook profiles and do not intend to. Therefore whenever they try and send an email they get the dialog box you get when trying to connect to the internet for the first time. Which is obviously a problem.
Is there any way around this or is there any alterntive i can use? my IT dept dont promise to setup any outlook profiles soon and im hoping there may be something else i can do before the project gets binned.
cheers
greg
View 14 Replies
View Related
Mar 13, 2013
I am trying to modify the following code to send an automated e-mail using Microsoft Outlook instead of Lotus Notes. We recently switched e-mail clients and now the older code does not work. I have tried to comment in all areas to indicate where the new Outlook code has been inserted.
Private Sub SendEmail(ByVal Subject As String, ByVal Body As String)
'The bulk of this code for Lotus Notes comes from this website:
Dim copy(100) As Variant
Dim strSQL As String
Dim rsTemp As Recordset
Dim Maildb As Object 'The mail database
Dim UserName As String 'The current users notes name
[code]....
View 10 Replies
View Related
Aug 1, 2014
Need to confirm whether the Default formatting option in the Conditional formatting Dialog won't work in datasheet view of a form. Please note that all conditional criteria are working fine but not the Default Formatting option - only in the Datasheet view (In Single Form view the default formatting is working fine)
View 11 Replies
View Related
Oct 15, 2014
I found a code that will go trough an emailbox and export all emails to a table in access. This part is working OK (except the received date). I also wante to show in the table if the email contains an attachment, but that part is not working at all. The project actually is meant to store the emails on a shared drive and attachments and have the emails in Access so I can see them all and recall the one needed.
Code:
Private Sub Command14_Click()
Dim TempRst As DAO.Recordset
Dim rst As DAO.Recordset
[Code].....
View 8 Replies
View Related
Sep 29, 2013
I have code that automatically send emails out from an Access Customer Contacts Database. I am using Access and Outlook 2007 but the code needs to work with later versions of Access and Outlook.
I have very poor knowledge of coding and usually manage to cobble something together from looking at other code on the net but don't understand most of it.
I have the following code which works perfectly except I want to be able to embed an image in the email body (not have the image as an attachment but actually show it in the body of the email).
Most of the code I have found around this topic is too complex for me to understand and utilise within the context of the code I have.
Ideally I want to take the image from an attachment field in a table returned by the "tblMailingList_Query".
Code:
Private Sub Command10_Click()
Dim MyDB As Database
Dim MyRS As Recordset
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
[Code] .....
View 2 Replies
View Related
Oct 15, 2013
I'm working on a database which holds information about clients. This also has a linked table which pulls information from my outlook inbox. Basically what I want is a way to sort the emails into the appropriate contacts page. I have created a sub form which is linked to the contact form and pulls info from the email table. The sub form is linked by the 'from' field in the linked email table to the 'email address' field in the contact form.
This all seems to work exactly as I want when the email address is displayed as the display name of the client however most of the time, the display name in outlook is either the contacts name or their company name.
I suppose my question is this, how can I tell access to pull the email address from outlook instead of the display name? I may be missing something here but this seems like something that should be available as standard doesn't it?
View 13 Replies
View Related
Oct 24, 2012
I need to let all our suppliers know we have moved and wanted to do this by email. how I use Access database of suppliers email addresses and use them on Outlook.
View 1 Replies
View Related
Jul 8, 2013
I like to do following task using access VBA:
1. Open outlook.
2. Select word file(with tables and graphics) and insert into new outlook email.
View 1 Replies
View Related
