Forms :: Using HTML To Format Body In Send Object Method?
Jun 26, 2014Can I use html to format the message body in send object method ? If I can, how to do that.
View RepliesCan I use html to format the message body in send object method ? If I can, how to do that.
View RepliesI 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"...
I have a form "WorksheetList" that has a list of records upon which when one selects a record a new form opens "Worksheet" with the data from "WorksheetList" everything seemed to be working fine then suddenly I get the error "Method 'item' of object 'forms' failed"... Here's my code:
Private Sub txtReconciliationID_Click()
DoCmd.OpenForm "Worksheet", acNormal, , , , acWindowNormal
Forms![Worksheet]![txtLastUpdate] = Me.LastUpdate
Forms![Worksheet]![txtCalendarYear] = Me.CalendarYear
[Code] .....
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]....
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?
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.
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] ......
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
When using SendObject to send an e-mail, is there code to turn on the following?
- encrypt,
- digital signature and
- read receipt
Or must the user activate these when the e-mail is generated?
I almost have what I need, but I am not quite there. I am a VBA novice and need help. I couldnt understand some of the code I have searched for on this topic.
I have a query that returns exactly the results I want. By using a SendObject macro I can accomplish sending the message with a .txt file attached. What I want to do is instead of having the attachment I want to send my query "FaxReportQueryReport" in the body of the email. No set address, just a set RE: line of "Today's Deliveries".
Could you please help me and advise if it's possible to send report from MS Access by mail - having report as a content of an e-mail instead of attachement?
View 2 Replies View RelatedWith the code below , I send the report: “ESERT4H”, in email body. How I could add yet another report on the same body of the email ?
DoCmd.OutputTo acOutputReport, "ESERT4H", "HTML(*.html)", "D:Access empESERT4H.html", False, "", 0, acExportQualityScreen
Dim Out As Outlook.Application
Dim NS As Outlook.NameSpace
Dim Folder As MAPIFolder
Dim Mens As MailItem
[Code] ....
I have created some code to get the records of a query and it puts them in the body of the email but it doesn't format it well for example the email looks like
James | halliwell | 31
Leanne | smith |27
Alexis | smith |8
I would like it to be in a table is this possible,
Code:
Public Function SendEmail()
Dim MyDB As DAO.Database
Dim rst As DAO.Recordset
Set MyDB = CurrentDb
[Code] .....
I want to be able to send email and in the body i want the my table be pasted in email body...
Is that possible?
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 RelatedMy email comes out like this:
Here's my code:
Private Sub Complete_Click()
Dim OL As Outlook.Application
Dim MyItem As Outlook.MailItem
Dim sHTML As String
Dim sSubject As String
[Code] .....
Hi,
I want to disable a button right after click it. Because I could not disable a control that has got the focus, i tried to shift the focus to another control; however, all controls that I tried to shift the focus to don't support the method (SetFocus = true).
I want to do this on a subform's control, but I keep getting this error:
Object does not support this property or method.
Any susggestions will be very much appreciated.
B:)
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...
Method 'Collect' of object'_Recordset' failed is the error I am getting when I try to set a record field to a form text field that has the system date set to it.
Specifically.
yrst is the recordset
I set a number of recordset fields to values on a form with no problem.
Included on the form is a field "txtNewUpdtDt". The control source is =Date()
The statement that is failing is yrst!SysUpdtDt = Me.txtNewUpdtDt
This had been working until today. I googled the error message and found a lot of hits, but none that specifically addressed my situation.
Anyone have any idea what's going on?
Thanks,
B
Using the following function to update records and receive this error: "Object doesn't support this property or method"
Code:Public Function edit_users()On Error GoTo user_errorDim StrSQL As String, strUser As String, uid As String, section As String, chkAdmin As IntegerDim fname As String, lname As Stringuid = Forms![ctrlpanel]![subEditUsers].Form!cmbUseridsection = Forms![ctrlpanel]![subEditUsers].Form!cmbSectionfname = Forms![ctrlpanel]![subEditUsers].Form!txtFnamelname = Forms![ctrlpanel]![subEditUsers].Form!txtLnamechkAdmin = Forms![ctrlpanel]![subEditUsers].Forms!chkAdminIf uid = "" Or section = "" Or fname = "" Or lname = "" ThenMsgBox "You have left one or more fields blank.", vbOKOnly, "Edit User Error"GoTo user_exitEnd IfStrSQL = "UPDATE users SET [section] = '" & section & "', [fname] = '" & fname & "', [lname] = '" & lname & "', admin = '" & chkAdmin & "' WHERE [userid] = '" & uid & "'"Call get_rs(StrSQL)user_exit:Exit Functionuser_error: MsgBox Err.DescriptionGoTo user_exit:End Function
Here is the connection get_rs:
Code:Public Function get_rs(StrSQL)Dim temp_rs As New ADODB.RecordsetSet temp_rs = New ADODB.Recordsettemp_rs.LockType = adLockOptimisticWith temp_rs .ActiveConnection = open_conn() .Open (StrSQL)End WithSet get_rs = temp_rsSet temp_rs = NothingEnd Function
Thanks
I have a series of reports that are built to replicate the order forms of our suppliers. On each I have a text box for Air Freight that I only want visible when the airfreight ID is ticked.
I have this working fine using an if statement on the Load Event of the reports. However when I use the OutputTo command in VBA it seems to bypass the Load Event. Any event that is triggered using OutputTo.
I have also tried setting the .visible in VBA but can't get the coding to work as I am using a variable report name depending on the SupplierName and when I try to use the Reports! nomenclature it will not accept the Report name being a variable (ie. Reports!ReportName![Airfreight].Visible where ReportName is a variable).
I am attempting to pull data from an XML file via VBA without doing the import on external data. I created a blank table called "tblHolding". In theory, my code works the way i want which is: User clicks button, file explorer opens for them to select the file, imports data to "tblHolding", and msg box saying complete.
It runs through the code but doesn't import. It errors at the below code. Also, where do i reference the table so I can append the data.Fails saying method importxml of object application failed
Code:
Application.ImportXML strPath & strFileList(intFile), 2
Code:
Private Sub Command234_Click()
Dim strFile As String 'Filename
Dim strFileList() As String 'File Array
Dim intFile As Integer 'File Number
Dim strPath As String ' Path to file folder
Dim f As Object
[code]...
I have a module in my database that creates an appointment based on a table of sessions. The module works in all respects, except two:
1) When I declare optional attendees it sometimes shows them as required attendees in the actual meeting in outlook, but not always
2) The .Send method does not seem to work. It creates the appointment on my calendar as the originator of the appointment, but does not send to the other recipients.
Below is the code:
Code:
Private Sub SchedOutlook()
Dim rsEmployee As DAO.Recordset
Set rsEmployee = CurrentDb.OpenRecordset("Select * FROM Employee INNER JOIN tblSession ON Employee.EmpID = tblSession.EmpID;", dbOpenDynaset)
Dim rsMentor As DAO.Recordset
[Code] ....
I have a strange behaviour on a module which reference to Microsoft Outlook Object Library 14.0. The below code got an error 461 on the folderoutlook.display code,i.e. the method is not found. The funny thing is that the same code gives no problem in another accdb file, exactly same code with same reference on same machine.
Set appOutlook = GetObject(, "Outlook.Application")
Set appOutlook = New Outlook.Application
Set namespaceOutlook = appOutlook.GetNamespace("MAPI")
Dim folderOutlook As Folder
Set folderOutlook = namespaceOutlook.GetDefaultFolder(olFolderInbox)
FolderOutlook.Display
how to properly get my email body to format correctly? I am obviously misusing the .HTMLbody/tags incorrectly. The email generates with the attachments as expected, but the email body message is just runon.
Code:
Private Sub Command29_Click()
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
[code]....
I am trying to format an excel spreadsheet through access, specifically trying to convert a column from text to dates (I receive the data in text format and need to translate it to dates).
Code:
Dim excelApp As Object
Set excelApp = CreateObject("Excel.Application")
excelApp.screenupdating = False
excelApp.Visible = False
Set excelWB = excelApp.workbooks.Open("Z:DataBasicSMData.xlsx")
[Code] ....
I'm no longer getting an error, but it isn't actually modifying the spreadsheet...