I'm using the sendobject method from access and it always puts the body of the email in plain text. Is there a way to specify HTML (besides the obvious of changing the format once it's open)?
Thanks,
C
I have a table field defined as Plain Text. On a form I have a memo field set up also defined as Plain Text. When I enter data into the memo field on the form and save it, I see HTML characters in the field on the table.
I attached some screen shots of the table definition, form field properties and a look at the data saved to the table with the HTML characters.
Using 2010 (accdb format) on windows 7.I'm trying to convert a memo field's format from Plain Text to Rich text. The problem is that every time I try to select the Rich Text format option the field immediately changes back to Plain Text.
Just as a test a created a new memo field in the same table and set this to Rich Text (worked fine) then copied the records for the Plain text memo field to the new memo field. Unfortunately this removed all line breaks so instead of my text looking like
Im creating an update form for users that arent particularly tech-savvy, so i want them to be able to insert page breaks without having to manually insert "<br />" into the form field as it saves into the access database. is there a script or maybe just an option within access to render the field as plain text (with page breaks whenever the return key is pressed)? thanks!
View 1 Replies View RelatedCurrently running a Sendobject to auto email results of a query. One of the fields on the Table that the query looks at contains large amounts of punctuated(paragraphs etc) text, so format is set to 'Memo' to avoid the character limit.
If i just run the query all the text will appear in the tabulated results view,
however when I use the Sendobject function to run & send as Excel, only the first few words appear in the relevant cell in the spreadsheet, but if I run & send as any other format all the text appears.
Any ideas??
In my website I've created a admin login with some ASP pages to edit and update stories.
I use an acces database and installed HTMLarea for WYSIWYG editing.
When I update text, all the HTML tags show als plain text in my website.
For example: I make a headline bold in my wysiwig editor and I update my text, it just shows: <B> here's a new story </B>
If I look in my database I have a field 'text' wich is a memofield and I can see the html tags have been stored into my database. <B>here's a new story</B>
It looks like it doesnt recognize the html tags as HTML, but just as plain text...
Can I use HTML-tags in an acces database and how do I get them to show up right in my website?
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
I'm trying to output some logging to a form with a Rich text textbox
This is what the form is displaying:
14:16:32: check OK: 500<10000andS235='s460'>
14:16:32: check OK: 500<10000andS235='s355'>
14:16:32: check failed:too short 500<1000231231 >
14:16:32: Ready ...
There is some coloring in the text but I'm not display that here (copy/paste of the textbox)
This is the HTML behind it (? txtbox in imm.window):
14:16:32: <font color=black>check OK: 500<10000andS235='s460'</font><br />14:16:32: <font color=black>check OK: 500<10000andS235='s355'</font><br />14:16:32: <font color=red><strong>check failed:too short 500<1000231231 </strong></font><br />14:16:32: <font color=green><strong>Ready ... </strong></font><br />
The problem is in the red > that are added to each line. I have no clue where they are coming from, in fact: they are NOT in the HTML.When I display this piece of HTML in IE I don't get the red > behind each line.I have tried to use <p> of <div> instead of <br/> but that makes no difference
Code:
Forms!frm_Calculationlog.txtmsg = Forms!frm_Calculationlog.txtmsg & "<div>" & _
Format(Now(), "hh:nn:ss") & ": " & _
IIf(strColor <> "", "<font color=" & strColor & ">", "") & IIf(booBold, "<strong>", "") & strMessage & _
IIf(booBold, "</strong>", "") & IIf(strColor <> "", "</font></div>", "")
I can assure you that the > is NOT in the strMessage ... f.e. this is the ouput of strMessage on the first line: 500 <10000 and 'S235' ='s460'
strColor is a string in which I can set a color ("red", "blue")
booBold is a boolean with which I can set text to bold
I am simply trying to find text on a Web Browser Control htm page.
Using MS Access 2003, I have a form that includes the activeX Web Browser Control. On load of the form I initialize the web like below:
Code:
Dim strURL As String
strURL = "http://www.justice.gov/eoir/profcond/chart.htm"
Me.WebBrowser0.Navigate strURL
Me.WebBrowser0.Silent = True
The page loads fine.
Now, also, on my form is an unbound text box I call: [txtFind] and a command button I call [cmdFind]. I want [cmdFind] to find the first occurrence of the value in [txtFind]. My code below doesn't do anything when I click the [cmdFind] button.
Code:
Public oRange As Object
Public myfindFirst As Boolean
Public intTextLength As Long
Private Sub cmdFind_Click()
Dim sSearch As String
Dim strText As String
[Code] .....
I need to remove html text from a make table in access 2007. My table name is "Bad Actors Comments Column" and the column where the html text resides is "FirstOfADD_TEXT. VBA code to remove the html text?
View 3 Replies View RelatedI 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.
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?
I need, in some way or another, to be able to import an HTML code from an HTML file into Access. It would be ideal if the end result is a table with one memo field named "HTML".
I know is seems strange, but I need the code itself. I've managed to do a bit of duct-tape work, and import from HTML, but this results in only the text of the HTML code (Meaning the text of the web page, not the tags).
I know I'm crazy for wanting this, but is there anyone out there who can give direction/guidance?
More web-ish than vba-ish,
Andrew
Hi,
I have an old form (see oldform pics) and a new form (see newform pics).
The old form has controls on it which work just dandy (well, at least they display and store information).
The new, tabbed, form however does not. What's up with that?
I simply created a form, created a tab control, went to my old form in design view, selected some objects, right-clicked-copy, went back to the new tabbed form, right-clicked-paste somewhere in the middle on the tab control, and... Presto! Nothing.... Just #Name?
Strange thing is, when I create the control, for example InitialCall, myself or using the wizard, the #Name? disappears, so then it works like it should.
What's going on? I need to do this for a bunch of controls.... and I would hate to have to do them all 140+ all over again by hand.... copy/paste would be so nice..... :)
Hey Guys,
I have the sendobject currently working so that when the database is opened, it sends the required mail. But i would like it to send an email once a month, is there a way around this??
Does anybody know if it's possible, using the SendObject command, to change the Name of the attachment it creates? Rather than having the Name of say the report, changing it to tha date/time.
Any help appreciated.
Hello everyone,
The DoCmd.SendObject command was working fine. Now it is giving me
a run-time error '2501' saying "The SendObject action was canceled"
Would anyone know why this is happening??
Thanks
PS:I looked up for this error number but it doesn't say anything related to the SendObject method
The code below works for the one email address "Quality Assurance"...but I want to add more email values to SendObject command.
If I do this: stEmail = Me.Quality_Assurance_Authorizer.Column(1) And Me.Engineering_Authorizer.Column(1)..... I get a Runtime error '13' Type mismatch. Is there another way of including a series of email values into the SendObject code below? The reason I'm using the value of the column is that sometimes the value may be null if that department doesnt need to be emailed. Thanks for any help.
Private Sub cmdPCAuthSend_Click()
Dim stDocName As String
Dim stEmail As String
stDocName = "rptPCAuthReq"
stEmail = Me.Quality_Assurance_Authorizer.Column(1)
DoCmd.SendObject acSendReport, stDocName, "SnapshotFormat(*.snp)", stEmail, , , "PCA Authorization Request", "Please review this product change and authorize when appropriate."
Exit_cmdPCAuthSend_Click:
Exit Sub
End Sub
I am trying to find a way to use the "DoCmd.SendObject acReport" feature WITHOUT using Outlook. Does anybody know of any code or a setting that will enable me to specify another e-mail program, such a Thunderbird?
I should add that I am using Access 2002, SP3, running in Windows XP Professional, Version 2002, Service Pack 2.
Thanks
rkc
I am new to MS Access, and I am wondering if there is a way for Access to automatically send an email to a defined address everytime a record is added to a specific table? I have created an escalated issue table and I would need an employees manager to be notified automatically when a new record has been added to it.
Please help
Thanks
When i use docmd.sendoject and try to attach my report in rtf it's dropping my checkboxes. I need the checkboxes...does anyone know how to solve this problem.
View 1 Replies View RelatedIm using the code below to send information by email. BUT:
I want to send the same information to more than one recipient. can i write more than one address in the SendObject?
What can i do if i do not know prior to sending how many addresses i want to include. (this means that once i might have tosend it to 1, then later to 3, etc...)?
The code is:
Private Sub cmdMailTicket_Click()
On Error GoTo Err_cmdMailTicket_Click
Dim stWhere As String '-- Criteria for DLookup
Dim varTo As Variant '-- Address for SendObject
Dim stText As String '-- E-mail text
Dim RecDate As Variant '-- Rec date for e-mail text
Dim stSubject As String '-- Subject line of e-mail
Dim stTicketID As String '-- The ticket ID from form
Dim stWho As String '-- Reference to tblUsers
Dim stHelpDesk As String '-- Person who assigned ticket
Dim strSQL As String '-- Create SQL update statement
Dim errLoop As Error
'-- Combo of names to assign ticket to
stWho = Me.cboAssignee
stWhere = "tblUsers.strUserID = " & "'" & stWho & "'"
'-- Looks up email address from TblUsers
varTo = DLookup("[strEMail]", "tblUsers", stWhere)
stSubject = ":: New Help Desk Ticket ::"
stTicketID = Format(Me.txtTicketID, "00000")
RecDate = Me.txtDateReceived
'-- Helpdesk employee who assigns ticket
strHelpDesk = Me.cboReceivedBy.Column(1)
stText = "You have been assigned a new ticket." & Chr$(13) & Chr$(13) & _
"Ticket number: " & stTicketID & Chr$(13) & _
"This ticket has been assigned to you by: " & strHelpDesk & Chr$(13) & _
"Received Date: " & RecDate & Chr$(13) & Chr$(13) & _
"This is an automated message. Please do not respond to this e-mail."
'Write the e-mail content for sending to assignee
DoCmd.SendObject , , acFormatTXT, varTo, , , stSubject, stText, -1
'Set the update statement to disable command button
'once e-mail is sent
strSQL = "UPDATE tblHelpDeskTickets SET tblHelpDeskTickets.ysnTicketAssigned = -1 " & _
"Where tblHelpDeskTickets.lngTicketID = " & Me.txtTicketID & ";"
On Error GoTo Err_Execute
CurrentDb.Execute strSQL, dbFailOnError
On Error GoTo 0
'Requery checkbox to show checked
'after update statement has ran
'and disable send mail command button
Me.chkTicketAssigned.Requery
Me.chkTicketAssigned.SetFocus
Me.cmdMailTicket.Enabled = False
Exit Sub
Err_Execute:
' Notify user of any errors that result from
' executing the query.
If DBEngine.Errors.Count > 0 Then
For Each errLoop In DBEngine.Errors
MsgBox "Error number: " & errLoop.Number & vbCr & _
errLoop.Description
Next errLoop
End If
Resume Next
Exit_cmdMailTicket_Click:
Exit Sub
Err_cmdMailTicket_Click:
MsgBox Err.Description
Resume Exit_cmdMailTicket_Click
End Sub
I am using a macro and the SendObject method to email a snapshot of a report to 29 different program coodinators(which is working fine). Using the macro i have 29 exact reprorts except for the different criteria in the ProgramID field for each program. I would like to get away from the macro and code the SendObject method and specify the criteria for the ProgramID field for a single report. I will most likely use a SelectCase statement for the 29 different programs. Can anyone tell me how to set the varible criteria on a single report using the SendObject method.
View 1 Replies View RelatedI am sending an email using SendObject, like this:
DoCmd.SendObject acSendNoObject, , , eMailAddress, ccAddress, , Me.Subject, Me.MessageBody, 0
The email is sent correctly. However, in Access 2003 a copy was posted to the Outlook 'Sent' folder. Since we have moved to Outlook 2010, a copy is no longer posted to the 'Sent' folder. We miss having that copy.
Is there an option that I can set to post the email to the user's 'Sent' folder? If not, what about a BCC? How can I get the user's email address?
I use SendObject to send automatic emails from my application. Can I attach a table or an MDB file to the email? How do I do that? Or do I attach a table and it sends it as a text file?
View 4 Replies View RelatedI often output reports as a PDF. I also use SendObject to send emails from my application. But is there a way to send a PDF as an attachment with SendObject? Perhaps not, as the PDF would not be within my application?
View 3 Replies View Related