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 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?
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.
I am trying to send a report to a list of employees. I have a query that generates the report into the layout I want and includes the e-mail address of who the recipient should be. The report looks something like this:
I need to send, for each row in the query, this report based on the results of that particular row. How would I go about making a e-mail template that would be used, or at least sending the report as a PDF attachment? I've seen the sendObject method.
I have this code below its giving me the RUntime 2295 error. Unknown message recipients. I have check all email addresses and they are fine. Everything else works except when it gets to Outlook and do not send email. I did a Debug Print but didnt understand how to do it.
Private Sub Command9_Click() Dim rst As DAO.Recordset Dim strEmailAddress Set rst = CurrentDb.OpenRecordset("T_Inspectors") Do Until rst.EOF
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.
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'):
How can I send an automated email notification everytime a new record is created. I have a macro set up with the send object completed, I just can't figure out how to tweak the logic so it will do it everytime a new record is created.
I have a query that may have 6 - 7 different records for example each record contains a different email address, i need to get the first email then send and email to that address then go to the next record get that email address send an email to that email address until its gone through all the records...
I use this code to send an email, dont know how to loop through records and get the email...
Code: Dim appOutLook As Outlook.Application Dim MailOutLook As Outlook.MailItem Dim strPath As String Dim strFileName As String Set appOutLook = CreateObject("Outlook.Application")
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 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.
I am useing DoCmd.SendObject to send emails - however I get outlook opening an email with my To, BCC fields filled in , however I am stuck in the new email screen - ie can't get to a previuos email to copy and paste text - like it is dialog?
I have been able to create a form that will send an email automatically when the form is opened. Tha problem is, the email will not actually send until I open Outlook. Any ideas?
After much frustration and hair pulling I have managed to get the code below to work.. It prints out reports from access one at a time cycling through the list of schools in our county. My question is that I would like to save each report with a filename eg KS1_3000_version1.pdf where 3000 is the unique school ID.
So my question is how can I get the code/acrobat to save my file in a desired location with a pre-specified filename?
this would make the whole process a real click of a button! I know it is possible because we have a national database that does the same thing.. but I cannot crack the backend to see the code
bah!
thanks in advance
john
***********
Option Compare Database
Private Sub Command1_Click() Dim repQuery As QueryDef Dim dBase As Database Dim rsRep As DAO.Recordset Dim strrep As String Dim data1 As String
Set dBase = CurrentDb() Set repQuery = dBase.QueryDefs("john_test_ks1") Set rsRep = CurrentDb.OpenRecordset("2_KS1_Performance_review_report")
Do While Not rsRep.EOF data1 = rsRep.Fields("ESTAB_FK").Value repQuery.sql = "SELECT SCHOOL_BASE_DATA_SCHOOL_BASIC_DATA.DFES, * FROM 2_KS1_Performance_review_report INNER JOIN SCHOOL_BASE_DATA_SCHOOL_BASIC_DATA ON [2_KS1_Performance_review_report].ESTAB_FK = SCHOOL_BASE_DATA_SCHOOL_BASIC_DATA.DFES WHERE ((([2_KS1_Performance_review_report].ESTAB_FK)= " & data1 & "));" repQuery.Close DoCmd.OpenReport "john_test_KS1_report" DoCmd.Close acReport, "john_test_KS1_report" MsgBox "done" rsRep.MoveNext Loop
i want to send an email to several people when someone else enters a complaint in my database. I have a form which displays the complaint with a reference number, recordsource is "tblKlachten". i have query that is set to return only those emails i want it to send to called "qerMailBeheerder". In there is a field called "email".
Now, whenever i a user closes the form after adding a complaint, i want at the same time a mail sent to those ppl in the query with the subject the reference number of the complaint (field called "Referentienummer") and in the body other information from the fields on the form. Like the field "complaintdecription" and "clientname".
Now, i know about the sendobject thing, but i have tried alot and non would do what i want. Can anybody help me with the code.
I am a little lost here. My prorgam has a form where I added a button. When clicking on the button, it is supposed to use some fields from the form and add them to an email with additional info which is added when the email opens up and is about to be sent. My boss uses Mozilla for his email account. What would be the code on the Onclick event be and do I have to set up anything else??
So far I have this code but it is for Microsoft Office Outlook not for Mozilla:
Set objOutlook = CreateObject("Outlook.Application")
Set ObjOutlookMsg = objOutlook.CreateItem(olMailItem)
With ObjOutlookMsg .To = str_Recipient 'str_Recipient is obtained before this code .Subject = str_Subject 'str_Subject is obtained before this code .Body = str_Body 'str_Body is obtained before this code .readreceiptrequested = lb_ReadReceipt .Display 'to display the message instead of sending it End With
I'm sending an email from a form to Outlook express. But before it opens Outlook I get a question that states "a program is trying to access email address you have stored in Outlook" I then have to click ok and then another window opens and askes the same question. How can I eliminate these warning messages?? Thank You
