Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
sending e-mail from access - what is a template file
- Thread starter scottian
- Start date
You would use an HTML Template file if you were sending your email in the acFormatHTML output format. The HTML Template File is used as a way of pre-formatting your document with such things as a background color or company logo. The Template File is saved on your computer or on a network shared folder with the .html extension. In the docmd.sendobject you would reference the HTML Template with the actual name of the file in quotes. Below is an example of a template file. Of course you need to modify it for your purposes.
<HTML>
<!--The following token places the object name in the title bar of the Web browser.-->
<TITLE><!--AccessTemplate_Title--></TITLE>
<!--The following HTML tag creates a different background color than the Web browser default.-->
<BODY BACKGROUND = "gray.jpg">
<!--The following token places all object output inside the <BODY> tag.-->
<!--AccessTemplate_Body-->
</BODY>
<BR><BR>
<!--The following four tokens create four navigation text buttons that jump to the first, previous, next, and last pages of a report.-->
<A HREF = "<!--AccessTemplate_FirstPage-->">First</A>
<A HREF = "<!--AccessTemplate_PreviousPage-->">Previous</A>
<A HREF = "<!--AccessTemplate_NextPage-->">Next</A>
<A HREF = "<!--AccessTemplate_LastPage-->">Last</A>
<!--The following token inserts the text "Page n" , where n is the current report page number.-->
<P ALIGN = CENTER>Page <!--AccessTemplate_PageNumber-->.</P>
<!--The following HTML tag adds a company logo to the bottom of the Web page.-->
<IMG SRC = "company_logo.jpg">
</HTML>
<HTML>
<!--The following token places the object name in the title bar of the Web browser.-->
<TITLE><!--AccessTemplate_Title--></TITLE>
<!--The following HTML tag creates a different background color than the Web browser default.-->
<BODY BACKGROUND = "gray.jpg">
<!--The following token places all object output inside the <BODY> tag.-->
<!--AccessTemplate_Body-->
</BODY>
<BR><BR>
<!--The following four tokens create four navigation text buttons that jump to the first, previous, next, and last pages of a report.-->
<A HREF = "<!--AccessTemplate_FirstPage-->">First</A>
<A HREF = "<!--AccessTemplate_PreviousPage-->">Previous</A>
<A HREF = "<!--AccessTemplate_NextPage-->">Next</A>
<A HREF = "<!--AccessTemplate_LastPage-->">Last</A>
<!--The following token inserts the text "Page n" , where n is the current report page number.-->
<P ALIGN = CENTER>Page <!--AccessTemplate_PageNumber-->.</P>
<!--The following HTML tag adds a company logo to the bottom of the Web page.-->
<IMG SRC = "company_logo.jpg">
</HTML>
- Thread starter
- #3
Ok thanks for the tip, but unfortunately you have now answered my question with "not possible". my company wont allow me to create a web page.
so heres some more information on what i need and hopefully someone will have the answer.
i have a front end and backend database, the front end is input only and allows users to raise queries which are passed to a small department, to action, however on some occassions the queries arent necessary or require further information. what i need to do is allow the small deprtment staff reject the request directly back to the originator for further clarification.
I have been trying to use outlook to trigger an email, but im tied up in knots. I also need some advice on how i can populate the fields of the outlook form with the data from the initial request.
Be ALERT - Your country needs Lerts
so heres some more information on what i need and hopefully someone will have the answer.
i have a front end and backend database, the front end is input only and allows users to raise queries which are passed to a small department, to action, however on some occassions the queries arent necessary or require further information. what i need to do is allow the small deprtment staff reject the request directly back to the originator for further clarification.
I have been trying to use outlook to trigger an email, but im tied up in knots. I also need some advice on how i can populate the fields of the outlook form with the data from the initial request.
Be ALERT - Your country needs Lerts
chriscriswell
MIS
Hey scottian, I just finished dealing with a similar problem last week. I have email going both to the person/department being notified, and an email coming back with their acknowledgement. Really simply, I just used the form fields to populate the emails and it is really working smoothly. (However, this will only work if your user's are using Outlook) Here's what I did for the acknowledgement with some proprietary stuff removed, hope you get some ideas for your own project...
Private Sub cmdSaveAREntry_Click()
DoCmd.RunCommand acCmdSaveRecord
' Emails Auditor with notice that responsible party entered response to Action Request
'Dimension message and prepare application
Dim strEmail, strBody As String
Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem
Set objOutlook = CreateObject("Outlook.application"
Set objEmail = objOutlook.CreateItem(olMailItem)
' Prepare message
strEmail = Me!
strBody = strBody & " *** This Message Has Been Generated By The Operations Database *** " & Chr(13) & Chr(13)
strBody = strBody & " *** ACTION REQUEST " & Me![InspectionNumber] & " HAS BEEN RESPONDED TO *** " & Chr(13) & Chr(13)
strBody = strBody & "The responsible party has entered a response to the Action Request listed below." & Chr(13)
strBody = strBody & "The Cause Analysis and Action Plan have been entered by the Responsible party into the database." & Chr(13) & Chr(13)
strBody = strBody & "Action Request#: " & Me![InspectionNumber] & Chr(13)
strBody = strBody & "Responsible Party: " & Me![Responsibility] & Chr(13)
strBody = strBody & "Auditor: " & Me![AUDITOR] & Chr(13)
strBody = strBody & "Findings: " & Me![Issue] & Chr(13)
strBody = strBody & "Containment: " & Me![Containment] & Chr(13)
strBody = strBody & "Due Date: " & Me![Date Due] & Chr(13) & Chr(13)
strBody = strBody & "*** RESPONSE ***" & Chr(13) & Chr(13)
strBody = strBody & "Root Cause: " & Me![Root Cause] & Chr(13)
strBody = strBody & "Action Plan: " & Me![Action Taken] & Chr(13) & Chr(13)
strBody = strBody & "Please contact Responsible person/department listed above with any questions." & Chr(13) & Chr(13)
strBody = strBody & "*** End Message ***" & Chr(13)
With objEmail
If Not IsNull(Me![Email]) Then
.To = strEmail
End If
.Subject = "*** Action Request Response Entered & Returned For AR#" & Me![QAR Number] & "***"
.CC = "whoyouwant@your.com"
.Body = strBody
.Importance = olImportanceHigh
If Not IsNull(Me![Email]) Then
.Send
'Show confirmation message
Dim Confirm
Confirm = MsgBox("Action Request Response Entered", vbInformation)
End If
End With
' Resets email variable
Set objEmail = Nothing
Exit Sub
End Sub
chris
Private Sub cmdSaveAREntry_Click()
DoCmd.RunCommand acCmdSaveRecord
' Emails Auditor with notice that responsible party entered response to Action Request
'Dimension message and prepare application
Dim strEmail, strBody As String
Dim objOutlook As Outlook.Application
Dim objEmail As Outlook.MailItem
Set objOutlook = CreateObject("Outlook.application"
Set objEmail = objOutlook.CreateItem(olMailItem)
' Prepare message
strEmail = Me!
strBody = strBody & " *** This Message Has Been Generated By The Operations Database *** " & Chr(13) & Chr(13)
strBody = strBody & " *** ACTION REQUEST " & Me![InspectionNumber] & " HAS BEEN RESPONDED TO *** " & Chr(13) & Chr(13)
strBody = strBody & "The responsible party has entered a response to the Action Request listed below." & Chr(13)
strBody = strBody & "The Cause Analysis and Action Plan have been entered by the Responsible party into the database." & Chr(13) & Chr(13)
strBody = strBody & "Action Request#: " & Me![InspectionNumber] & Chr(13)
strBody = strBody & "Responsible Party: " & Me![Responsibility] & Chr(13)
strBody = strBody & "Auditor: " & Me![AUDITOR] & Chr(13)
strBody = strBody & "Findings: " & Me![Issue] & Chr(13)
strBody = strBody & "Containment: " & Me![Containment] & Chr(13)
strBody = strBody & "Due Date: " & Me![Date Due] & Chr(13) & Chr(13)
strBody = strBody & "*** RESPONSE ***" & Chr(13) & Chr(13)
strBody = strBody & "Root Cause: " & Me![Root Cause] & Chr(13)
strBody = strBody & "Action Plan: " & Me![Action Taken] & Chr(13) & Chr(13)
strBody = strBody & "Please contact Responsible person/department listed above with any questions." & Chr(13) & Chr(13)
strBody = strBody & "*** End Message ***" & Chr(13)
With objEmail
If Not IsNull(Me![Email]) Then
.To = strEmail
End If
.Subject = "*** Action Request Response Entered & Returned For AR#" & Me![QAR Number] & "***"
.CC = "whoyouwant@your.com"
.Body = strBody
.Importance = olImportanceHigh
If Not IsNull(Me![Email]) Then
.Send
'Show confirmation message
Dim Confirm
Confirm = MsgBox("Action Request Response Entered", vbInformation)
End If
End With
' Resets email variable
Set objEmail = Nothing
Exit Sub
End Sub
chris
- Status
Similar threads
- Locked
- Question
- Locked
- Question