Hello all,
I have some code that emails out a report to users. Everything works except the path of the file in code does not put the file in the correct place. I have looked at the code for several days and cannot understand why the report is not being saved to the correct folder. I am now in a state that I just see the same thing over and over. I do not have any perspective of what is happening. I am hoping that someone can see the issue.
The file is being saved currently as Outputted ReportsReport-All Users.pdf in the S:\Fleet Services Reporting folder. It should be going to the S:\Fleet Services Reporting\Outputted Reports folder as Report-All Users.pdf. I just do not see it clearly anymore after 2 days. Below is the code
Any help will be appreciated.
Thank You
Jim Wagner
Private Sub cmdEmail_Click()
' This process generates the full report for the vehicle's which have their emissions due on the date given by the user on the main form and sends
' report .
MsgBox ("This will send out out the emails. Please make sure to work offline.")
Dim RS_1 As DAO.Recordset
Dim db As DAO.Database
Dim strSQL As String
Dim sSQL As String
Set db = CurrentDb
' Disable all warnings
DoCmd.SetWarnings False
' myPath stores the path of the directory which stores the outputted reports
myPath = "S:\Fleet Services Reporting\Outputted Reports"
' Open the REPORT to be emailed
' Apply filter to open the report for the given contact name only
DoCmd.OpenReport "rptVehicleVPOCValidationAnnouncement", acViewReport, , , , "False"
'the source for the report is
'qryVehicleAnnouncment
'AllActiveVehicles
'from cmms
'VehicleContacts
'from cmms
' Save the Report as .html at myPath with a file name of the [Contact Name]
' We also append the '.html' file extension at the end of the file name
DoCmd.OutputTo acOutputReport, "rptVehicleVPOCValidationAnnouncement", acFormatPDF, myPath & "Report-All Users" & ".pdf", False
' Close the Report
DoCmd.Close acReport, "rptVehicleVPOCValidationAnnouncement" 'which is a report
'the source for the report is
'qryVehicleAnnouncment
'AllActiveVehicles
'from cmms
'VehicleContacts
'from cmms
DoCmd.SetWarnings True
Dim objol As New Outlook.Application
Dim objmail As MailItem
Set objol = New Outlook.Application
Dim outputFileName
' We set the output file name to Report-All Users.html
outputFileName = "S:\Fleet Services Reporting\Outputted Reports\Report-All Users.pdf"
' Email Process begins
Set objmail = objol.CreateItem(olMailItem)
With objmail
' This allows the email to be sent out from the fleet services email id instead of the personal one
objmail.SentOnBehalfOfName = "Fleet-Services@exchange.asu.edu"
.To = luvmymelody@yahoo.com"
' Set the subject
.Subject = "Vehichle Audit User Report"
' Set the body
.Body = "Attached is the report of all the users."
.NoAging = True
' Attach the report
.Attachments.Add outputFileName
.Display
End With
' Send the email out
SendKeys "%{s}", True
'disable the cmdEmail button
Me!cmdEmail.Enabled = False
'get the cmd_EditVehicleAuditAnnouncementEmailBody button to be visible
Me!cmd_EditVehicleAuditAnnouncementEmailBody.Visible = True
Me!cmd_EditVehicleAuditAnnouncementEmailBody.Visible = True
Me!lblStep.Visible = True
Me!lblStep.Top = 5820
Me!lblStep.Left = 8159
Me!lblStep.Caption = "Step 5"
Me!lblInstructions.Visible = True
Me!lblInstructions.Caption = "This will open the Vehicle Announcement Body form for users to edit the text that will be used in the body of the email message"
Me!cmdOpenCMMSWebpage.Visible = False
' Inform the user that the report has been mailed
MsgBox "Report has been emailed"
Me!linProgressBar.Visible = True
Me!linProgressBar.Width = 12239
End Sub
Posted by: luvmymelody@yahoo.com
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (1) |
Tidak ada komentar:
Posting Komentar