How Do I Email A Report As An AddAttachment With CDO
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!
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.
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.
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?
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)?
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.
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?
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 #]
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???????
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?
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)
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?
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?
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?
I am using vista and access 2010, what I want is to be able to email a report from access that was created by a form with DoCmd.OpenReport "ReportOrder", acViewReport. I have a button that when i click it it will send the report via email, but the email address has to be a variable so when the report is created i can use the email that is attached to the report data.
Every month I have to make a report about registration of hours of a group of employees. (These employees have a deal with direction about travel hours vs. working hours).This report has to be send to the group members but only the data which is valid for the group member in it. There are 11 persons in this group so I have to send 11 reports.
I made a query with the hours registered from this group. I couldn't export it because it was read-only. That was because the query contains joins to the employee table. After that I tried it with a report. That nearly went well but it contained all data and not the seperated info.What I need to know:What is easier/better: use a query or use a report?Is there code which looks in my query or the report and makes it into seperated reports?I've tried the code of Tony Hine but I can't make it work.After that I need to do a mail-merge. But first of all do I need to make the seperated reports to work.
I am trying to send an Email from a report . Using this code
Code: On Local Error GoTo Some_Err Dim MyDB As Database, RS As Recordset Dim strBody As String, lngCount As Long, lngRSCount As Long DoCmd.RunCommand acCmdSaveRecord Set MyDB = DBEngine.Workspaces(0).Databases(0)
I like this form I have that allows me to send attachment when email is entered.However, I would like to have a list box of Name and Email Address. when selected the email address is now set (same as before but just as a drop down) I type my message etc...But the attachment part I would like to send a specific report (that connects to that email address) so that it will only send jobs connected to that person.
Here is the code below:
Private Sub Email_Output_Click() ' ' Email API Outlook example programming code ' Send email from to Outlook ' Select Case Me.Email_Output_Option
I am trying to work my way into putting the content of my report into the body of an e-mail. I have used the following code to do so but I keep on getting the error: "An Expression You Entered Is the Wrong Data Type for one of the Arguments"
Code: Private Sub Command278_Click() On Error GoTo ER Dim db As Database Dim rstOpenPurchaseOrders As Recordset Dim strSQL As String
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?
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
