I am working on an Access DB and I need to email individual reports to email addresses linked to the corresponding email. I would like these email to be sent though outlook and the attachment to be a PDF.
View RepliesI have a database that has the table [tblAttachments] to store various attachments. In this table I have a primary key [ItemNumber] and an attachment data type field. This table holds all attachments for a Customer/Record.
What i am trying to accomplish is being able to code a command button to send the Attachment file (eg. various type of files .doc; .exl; .jpg etc) as an attachment in an email.
I have found some info on saving them to the local harddrive but this is not going to work for my specific needs.
I am trying to make an automation in order generate reports based on query ( person name,person email address ) , export them to a folder in PDF and then send them one by one to each person email address.
What is happening:
- the reports are generated and exported fine
- the email are sent to the right addresses but the first person receives the correct report , the second person receives the report from the first person plus its own report and so on.
Here is my code :
Private Sub MakeReportSendEmail_Click()
Dim MyDB As DAO.Database
Dim MyRS As DAO.Recordset
Dim strSQL As String
Dim strRptName As String
[Code] ....
I'm working on a project where I must send roughly a thousand individual reports to a thousand different email recipients with .pdf attachment.I know I'll need to add a table that designates the email address by SHIP_TO_CODE. Then create a form with the email subject, body, etc.. I don't neccessarily have to have the reports saved to a folder; I really just need them emailed to each account.
I was thinking I could modify the code some to accomplish my goal, but I'm not sure what to put. Maybe add a SendObject in there somewhere.CODE that I have now that saves the report to a folder. (I want to modify some to send email attachement instead)
''Module CODE:
Private Sub Form_Current()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT DISTINCT [SHIP_TO_CODE] FROM [qryWty&PendingData];", dbOpenSnapshot)
Do While Not rst.EOF
strRptFilter = "[SHIP_TO_CODE] = " & Chr(34) & rst![SHIP_TO_CODE] & Chr(34)
DoCmd.OutputTo acOutputReport, "rptDraft", acFormatPDF, "C:UsersmrutherfordDesktopASC Daily Reports" & "" & rst![SHIP_TO_CODE] & ".pdf"
[code]....
I'm working on a project where I must save roughly 1000 individual access reports based on the group to a specific folder in pdf format.
Problem:The code I found on this site works, but not exactly the way I need it to. Using the current code (pasted below) all of the pages of the report are being saved to pdf for each group, instead of just the single page. For example, all 1000 pages of the report are being saved to each pdf file, when I only want the 1 page for each of the groups.
I believe that the problem lies in the filter for the Open Event code, but I don't know how to modifiy it to make it work the way I need.
CODE:
Option Compare Database
Public strRptFilter As String
Private Sub Report_Click()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT DISTINCT [SHIP_TO_CODE] FROM [qryWty&PendingData] ORDER BY
[code]....
I have created a database that generates a report with customer debts. I have a lot of customers and in a report each page is a different customer with individual debts info. What i would like to do is to create a button and distribute individual report page as pdf to individual customer by email. I'm using Lotus notes. I have searched the forums i found something but it was not what i was looking for.
View 1 Replies View RelatedI have a button on a report that I want to use to confirm if the contents of a field were prepared or not. Below is the button vba:
Private Sub Command60_Click()
'retrieve the records
Static Count As Integer
Count = Count + 1
'
Select Case Count
[Code] ....
The problem with this is that it changes the text and background for every button in the report. I want the button to change its text etc for individual records in the report. and not all at one time. In other words I want each record to have a button, and each button associated with each record.
This probably is a very stupid question but I am a new user and have been pulling my hair out for a week over this. I have created a report and linked it to my table but it generates a list of all of the values in my table on the report. What I want is a way to generate a report page for every row in my database table grouped on a key record that is unique to each data row. If anyone has any advice it will be much appreciated, thanks.
View 1 Replies View RelatedI have a report that has a group sort and page break after each area. What I'd like to do is export each area as it's own individual PDF report (preferably as an automated process).
View 3 Replies View RelatedI have a database :-
female male Surname
Anne Adams
Bob Brown
Clare David Evans
...........>
I need to end up with labels as follows:-
Anne Adams
Bob Brown
Clare Evans
David Evans
Male and female are in different columns and couples with same surname are in the same row.I am printing on sheets of 10 labels. Up to 500 names in total.
In my labels report I need to Print each name as an individual person.ie.from above table, 4 individual labels.In a Query I select male or female Forename data but I have male surnames appearing in the female selection but with no male forename.The opposite occurs if I select Male forenames.It looks as though I am selecting all surnames but only print male or female.How can I select all names with forenames and surnames for each individual?
I have a class roster and need vba code to print a first day package of forms. I want them to print each person's package then move on to the next person until the roster has printed each person's package.
View 5 Replies View RelatedI would like to ask about on how to display my attached pictures to my report. I'm using MS Access 2007 and I have a table names:
Projects - ProjectID, ProjectName, StartDate, EndDate;
Task - TaskID, ProjectID, TaskName, Pictures;
Picture datatype is Attachment and it is multi-valued field so I created a query to extract picture per ProjectID and to be used as a Subreport. Query results shown below:
ProjectID Attachment
11 tulip.jpg
11 hill.jpg
10 panda.jpg
10 shark.jpg
Now, I have created the sub report and linked it Project table. Result is the pictures add up vertically or downward where there is a big space on the right side, I want to have it from left to right or horizontally.
I am building a database which produces a report which I have formatted as a letter, I know I could have done this via a mail merge etc however...
What I am wanting to achieve is when this report(letter) is run, is there a way that when it is produced from a macro button embedded in a form that this report can then be saved as a pdf attachment within the same access database attached to a client record?
My form: "Dailyissue"
My attachement field: "Attachement_1"
I attached an image in Attachement_1, I want to set that image in a cell of excel using VBA. How can I do it? (I don't want to read the image from the PC, I want to use the attached image).
I have a music database in which I keep track of my CDs and how many times I've listened to them. I have a report that uses grouping to show me the total listens for each artist for each year - the totals are in a group footer, with nothing in the detail section of the report. It looks something like this:
-------94-95-96-97-98-99-00-01-02-03-04-05-06-07-08-09-10-11-12-13-14
BAND1--00-00-00-01-13-04-03-00-01-00-01-03-10-16-04-04-01-00-01-03-00
BAND2--00-00-00-00-00-00-00-33-31-14-15-07-02-00-02-01-11-05-01-00-01
(The dashes are blank spaces.)
The first line is the column header showing years (last 2 digits for space reasons).
The second and subsequent lines are created in the group footer section, first is the artist name, then the Sum of listens for all titles by that artist in the year given ([Sum of Listens1994]).
This report works perfectly.
Here's what I want to do, and I can't get it to work:
In the above lines of data, let's say that the earliest title for BAND1 is from 1975, and the earliest title for BAND2 is from 2001. My yearly counts start in 1994. Therefore, there were listens for BAND1 prior to 1994, but there weren't any listens for BAND2 prior to 2001.
GOAL: Instead of showing "00" on the BAND2 line for years 1994-2000, I want them blank.
I've put a conditional format code in OnFormat for the group footer section, telling Access to turn visibility off for the text box control ([Sum of Listens1994] etc) if the [Earliest] field (which contains 2001) is greater than the year being displayed (1994 first, and so on). This, which seems like it should work, makes no difference. Oddly, if I put a F9 code break on the If statement, it never breaks, which makes me believe the code is never even being executed.
I do have prior experience with controlling field visibility in forms and reports, so the concepts aren't new to me. I feel like the big difference with this one is that it's in the group footer section rather than the detail section. [Access 2013]
I have a report , which i print every month and it consist of of more than 500 pages. This report is based on a Query called L_Inv2. i want to filter and loop this report based on the filed AccountReference with in the query. And save as PDF for individual accounts.
i have also created another query based on the L_Inv2, Called L_Inv4 which only got the record of account numbers as a AccountReference
i am trying to use below code but some how this is not working.
Code:
Private Sub Command43_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
[Code]....
I have an image within the attachment field on a table.The particular table is not linked with the data within the report.I tried to use DLookup but found it only showed the picture name i.e. signature.png..How can I display an image (in fact the only image) in the attachement field on another table within the report?
View 1 Replies View RelatedWe have a report that will result in a number of customers (which will be broken apart via a page break) being listed. The plan is to be able to trigger a report (that will run a query) to find all loads that have not been delivered. This report will then be sent to receiving customers to let them know the status of the loads crossing the US via truck.
We want to be able to send these reports via email simply by pressing a button. No matter the fact that there will be more than one customer, we want the report (or portion of) to go to the correct customer.
We already have the customers email address in the database, but I need to figure out how to link the page of the report to the customer and have it sent.
Ideas? Solutions?
1:is it possible to have a clickable button beside each record in the report format that when clicked runs another report and inputs data into parameter querys automatically that the second report asks for? Etc. the second report will ask for [Username], [start Date], [end date]it copies and pastes the details from the row clicked into these parameters? or get it to work in a simular way? reason being for this the details need to be in a certain format layout that then on a button click Emails the report as a PDF
2:is it possible to have a button on the report screen that will Email the report as a PDF file with only the parameter data shown?
I need to export my reports (invoices) to rtf format or pdf then create seperate emails for each report with email subject title of [Address] [Suburb] [Supervisor]
I also need it to only create them but not send them, as I also need to attach photos and forms prior to sending them.
Is this possible to do in access?
It was so much easier when I could just run the saved export button & drop the 1 file into email.
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] .....
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 RelatedIn my database for our charity there is a field for email addresses. Most of the contacts have a single email address and we can send them their individual reports without any problem. However a number of the contacts have 2 email addresses and these are stored in the email address field with a semicolon between the 2 addresses. However the system can't send emails to these contacts! Are we storing the addresses in the wrong way? Or is there some reason why Outlook won't regard the 2 addresses as separate email addresses - does it think that it is one strange email address that it doesn't recognise?
View 14 Replies View RelatedI currently have details of my clients in a table called tblSites, this tble includes a field with an email address. I currently produce a invoice which is automatically saved as a pdf and an email generated with the invoice attached. However, a few clients do not have email addresses (these are sent by post). My code (see below) will successfully produce the email with the attachment, but if the client does NOT have an email address in the tblSites it comes up with the "Invalid use of Null" error. What I want it to do is continue the process of just saving the invoice with a Msgbox stating "This Client does not have an email address etc etc.
'Save Invoice as PDF and annotate Invoice Number, Date and site name
Dim StrFile As String
Dim slSQLString As String
Dim rsEmailAddress As Recordset
Dim slEmailAddress As String
StrFile = "C:Redwatch Invoices" & Forms!frminvoice!txtInvoiceNr.Value _
& "-" & Format(Date, "dd-mmm-yy") & "-" & Forms!frminvoice!cboSiteName & ".pdf"
[Code] ....
I have a report that creates purchase orders, this could be many suppliers these suppliers have e-mail addresses.
is it possible to get the report to look at the supplier name , find the e-mail for that supplier and send it to them.
With 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] ....