Modules & VBA :: Email Report As RTF But It Comes Up As TMP?
Jul 17, 2013
Using Access 2007 and Lotus Notes 8.5 ...I've got some code to output a report to email as an attachment: it looks like this
DoCmd.SendObject acSendReport, "rep09emailnotification", acFormatRTF, "(Recipients)", , , "email subject", "email body text", 0
For MOST of the people who use the database, this works fine, and they send the email with the RTF attachment which all the recipients can open - but for some users, it generates a .tmp file which if you 'Open' it is just a load of gobbledegook, but it you 'View' it looks ok - but is truncating the report.what could be causing Access 2007 to create .tmp files rather than .rtf?
View Replies
ADVERTISEMENT
Nov 16, 2014
With this very simple command, I have the ability to send emails to several clients, reporting many things, quotations etc.
Private Sub Command84_Click()
DoCmd.SendObject , , , , , , "SOMETHING", [SalesGroupingField] & "" & [1], True, ""
End Sub
Now, i want, on the body of the emai, to display many records, it is from Nothwind, how can i display on the body of the email all records from this report?
View 10 Replies
View Related
Aug 9, 2013
A command button on a form that can:
1- Open the Report called : ConsentForm
2- Print it to PDF printer (report is currently defaulted to that printer driver)
3- Save to folder: C:SOSConsentForms
4- Save as: Consent_[Last]_[First] (these are field names on the form)
Result i.e.: C:SOSConsentFormsConsent_Doe_John
5- Then send the file by email (Outlook) to : abc@hotmail.com
View 14 Replies
View Related
Nov 2, 2014
getting to grips with the code a bit more now, but now I cannot get the report which is generated to attach to the email
running ms access 2010
View 1 Replies
View Related
Nov 4, 2013
I am using Access 2007 and are a newbie.
I am using the following code (Sendobject) to create a PDF of a report and send it via email to a customer's email address.
Private Sub EmailWorkOrderQuote_Click()
On Error GoTo Err_EmailWorkOrderQuote_Click
Dim stDocName As String
Dim mFilename As String
Dim mEmailAddress As String
[Code] ....
It works fine except that the I want to to able to utilize the ability to send the email with either both the CC and BCC or either or neither as well.
I have a table called "My Company Information" that contains the email addresses for the CC and BCC. If I have values in these fields, everything works great! If I have no values in either of these fields, I get "Invalid use of Null"....
I want to be able to use either both CC and BCC, either CC or BCC, or neither used and it still work.
View 9 Replies
View Related
Dec 9, 2013
I want to automate the distribution of individuals Vacation Balance and Usage via email. The data is being pulled from 2 tables related by an Employee ID#. tbl-Employees provides the Header Info for each employee and tbl-VacLog provides the detailed Usage data.
I want the output to appear as follows in the body of the email:
Name Start Date Vac. Bal TotVacToEOY Personal Bal.
John Doe 1/1/99 120 160 8
Usage Date Hours Reason Code
1/1/13 8 V
2/15/13 12 V
3/6/13 8 V
I've got a handle on creating the email and sending but where I'm having trouble is in making the link between the two tables with the Employee ID# and printing the corresponding detail data with Parent Record.
Code below...
Option Compare Database
Sub SendMails()
Dim DB As Database
Dim RecordSetA As DAO.Recordset
Dim RecordSetB As DAO.Recordset
Dim TotalRecordsA As Integer
[Code] .....
View 1 Replies
View Related
Dec 5, 2014
I have a subroutine that works well for sending emails. A need has arisen to, in some cases, send an Access report as a PDF attachment. I know how to do this using the SendObject method, but that won't work in this app. I also don't want to have to first save the report as a pdf file. I think I'm close, but I don't know the syntax for passing the report name as the Source parameter in the Attachments.Add method.
Code:
If strEmailAddress = "jsmith" Then
.Attachments.Add source:=MyReportName, type:=acFormatPDF
End If
On Error GoTo SendErr
.Send
On Error GoTo 0
View 4 Replies
View Related
Jun 17, 2013
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
View 4 Replies
View Related
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
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
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
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
Jun 11, 2007
I have a report that I'm looking to email as opposed to fax. What's the easiest way to achieve this?
Any and all advice appreciated.
Thanks!
d
View 9 Replies
View Related
Feb 24, 2006
I have a form with a subform. The form is the date field. The subform are all the stores delivered to on that date. I need to have a command button to open an email with the current date showing and list all the stores with their delivery numbers next to it inside the email.
View 2 Replies
View Related
Dec 21, 2004
Access 2003
Is is feasable to output a report with variable data to html/email. I would like to be able to send my quotations and invoices via email to my customers as many are now requesting I use email. At present I have to print it as PDF then open Outlook, then attach the PDF document etc etc.......
Any assistance or suggestions greatfully welcomed.
sjh7225.
View 1 Replies
View Related
Mar 24, 2006
I have set up a process to automatically email reports from MS Access 2006. Everything would would perfectly except that when the process runs, a messagbox pops up stating that 'an unknown prgram is trying to send an email on your behalf'. Before the email is sent you have to click on the button to allow sending. I need this program to run very early in the morning when no one is around to click the button.
I have tried several things to get a round this by digitally signing my Access project and setting up certificates in outlook but nothing has worked.
Is there any way around this without lowering my security level, my antivirus or antispyware software?
Thanks
GEM1204
View 4 Replies
View Related
Jul 16, 2005
After filling in a form which includes both text and a photograph (in a bound object frame -- different photograph (OLE object) for every form -- photographs embedded and pulled from a separate photograph file external to MS Access) I email the corresponding report successfully as a .snp file attachment. The problem is that the recipient needs either MS Access or Snapshot Viewer installed in order to view the photograph field (ie. the OLE object in the bound object frame). If I try to format the report according to any other format (html, rtf, etc.) the text shows up okay but the photograph doesn't appear in the bound object frame. I also tried to create a data access page but the OLE 'photograph' field is not even an allowed selection. Any ideas on how I can get around this problem (ie. email the report to a client who doesn't have MS Access or Snapshot Viewer installed on their computer)?
Thanks ahead of time .....
View 3 Replies
View Related
Oct 7, 2003
Hi,
I would like to ask a question regarding MS Access reports. I used the following code to email the report created in Access.
DoCmd.SendObject [ObjectType],[ObjectName],[OutputFormat],[To],[CC],[BCC],[Subject],[MessageText],[EditMessage],[TemplateFile]
I send a report in an email in rich text format and it works. But when you open the report there is no image, lines or rectangles. The format is ok but image on top of the report and lines are missing which I used for column captions. If anyone know how to handle this problem, I will really appreciate.
Thanks
Naveed
View 5 Replies
View Related
Nov 8, 2007
Hello,
I have my email code working great, but I am trying to find a way to add a report as an attactment on the email.
I am using the following and it works fine.
Code:Set objMessage = CreateObject("CDO.Message")objMessage.Subject = EmailSubjectobjMessage.FROM = UserEmailobjMessage.To = EmailToobjMessage.TextBody = EmailBodyobjMessage.AddAttachment "c: emp
eadme.txt"objMessage.Send
How can I go about having that AddAttachment run and attach a report in the same database? I tried a few different ways of putting the report on that line but nothing seems to be working. Do I have to first have code run the report and export it or save it off as something to a temp file then attach it? If so how would I go about doing that. : )
Few things I tried and didnt work..
objMessage.AddAttachment Reports.rpt_01
objMessage.AddAttachment Docmd.OpenReport ("rpt_01")
Any help, ideas, or direction would be great! Thanks!
View 1 Replies
View Related
Jul 14, 2015
I am trying to email a report and rename the report after the referenced NCR# currently selected on my form. My codes works for putting the referenced NCR# in my email subject, but I am having issues renaming the report and the error is with the SetProperty line bolded below. When I click my email button, I get Run-time error 32004: The control name "Supplier Chargebacks" is misspelled or refers to a control that doesn't exists.
Private Sub Command587_Click()
Dim stReport As String
Dim stWhere As String
Dim stSubject As String
Dim NCRNum As String
NCRNum = Forms![NCR Input Form]![NCR #]
[Code] .....
View 5 Replies
View Related
Sep 29, 2005
Hi Guys,
Im new to access and i have a problem!! I have a report that i need to be sent out monthly to 3 people. The problem is i dont know where to start. I have been looking through the forum, but nothing that i can get my head around, so there anyone out there who can help???????
Thanks in advance!!!
View 3 Replies
View Related
Dec 19, 2006
Is there a way to have access remember a certain time like 2:00 pm and generate a report and send it to a specific person. I know how to make an attachment for sending someone a report but how do I get access to do it on a certain time lets say 2:00 PM?
View 1 Replies
View Related
Jan 20, 2015
I found the vba to generate multiple pdf's from a single report which is working well (see below).
The script below generates about 15 pdf files and stores them in the specified directory
I'd like to be able to now email these to the individual users (SCNAME) but cannot work out where to start, i've tried a lot of things from the research on emailing, just not working.
All the information I need is in one table which includes the users email address field (SCemail).
I've also created an update query which generates a unique file name into the field (SCInstallDate) (currently not using this field data)
Code:
Private Sub cmdSC2PDF_Click()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT DISTINCT [SCNAME] FROM [Schedule];", dbOpenSnapshot)
Do While Not rst.EOF
strRptFilter = "[SCName] = " & Chr(34) & rst![SCNAME] & Chr(34)
[Code] .....
View 14 Replies
View Related
Apr 3, 2014
I want to be able to email a report to several individuals and have only the data that pertains to that person attached in the email? Is this possible?
View 1 Replies
View Related
Feb 11, 2015
I have a button setup to email a Proposal Report to specific people. Works fine. I now need the ability to email the Proposal Report (without an addendum) OR email the Proposal Report with an addendum. There are additional fields on the report with an addendum. I have tried the on format event of the Proposal Report to make the addendum fields invisible using this if statement:
Code:
if Forms![CurrentJobs]![Addendums].Form![AddendumNum] Is Null Then
Me.AddendumNum.Visible = False
Me.Label324.Visible = False
Me.Label325.Visible = False
Me.AddendumDrawings.Visible = False
Me.AddendumDrawingsDate.Visible = False
Me.Label326.Visible = False
Me.AddendumFloors.Visible = False
Me.Label327.Visible = False
End If
But I keep getting an "object required" error. how I can run the Proposal Report with or without addendum information depending on the job?
View 6 Replies
View Related
Mar 5, 2006
Hi
From advice I have read on here I have worked out how to create a button on a form which opens a report to show the values which match the record open on the form. It then attaches that page as a txt file to an email. Which is great.
What I would like it to do though is insert into the body text of the email the text from the report. Have looked as much as I can at the properties of DoCmd.SendObject acSendReport but cannot achieve this myself.
What I have is pretty much this:
Code:DoCmd.SendObject acSendReport, "Your matching details this week", acFormatTXT, Me!PersonEmail, , , "Details this week " & Date, "Please see the attached text file for details this week which match your selection criteria.", False
How can I make the text appear within the email body?
View 14 Replies
View Related
