rename report and email

[maddaddy]

Is there a way to change the name of the report before emailing?

I want the attachment to have certain information in it, specific to the report. (e.g. report number and name, which comes from the table)

here's what I have so far...

Private Sub Command47_Click()


DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "tasker report", acViewPreview, , "[tasker number] = " & [tasker number]
DoCmd.SendObject acSendReport, "tasker report", acFormatPDF
End Sub

Thank you ahead of time

[maddaddy]

tap tap. ?? this thing on?

[HiTechCoach]

Are you wanting to change the name of the attachment?

What is the current name?

PS: Not many people have Access 2007 0r 2010.

[maddaddy]

Are you wanting to change the name of the attachment?

What is the current name?

PS: Not many people have Access 2007 0r 2010.

the current name is called "tasker report"

If I save it manually using "Save As" then I can save it with what ever name I want. then when I send it via email, it has the proper name.

Now to do all that with one button

[HiTechCoach]

I do not know it it is possible using the SendObject command.

It can be done using automation with Outlook or SMTP/CDO. I use SMTP/CDO a lot.

[maddaddy]

do tell??

[HiTechCoach]

do tell??

Do you want to use Outlook automation or SMTP?

[maddaddy]

Do you want to use Outlook automation or SMTP?

I use outlook automation.

[HiTechCoach]

See if this example helps:

E-Mail to Multiple Recipients Using Outlook Object

[drobizzle]

I have the same problem. I need to rename the attachment before emailing.

[HiTechCoach]

I have the same problem. I need to rename the attachment before emailing.

First you will need to save the file.

You can use FSO or the vba command Name to rename the file

Then attach the file to an email.


From the help file:

Name Statement Example

This example uses the Name statement to rename a file. For purposes of this example, assume that the directories or folders that are specified already exist. On the Macintosh, “HD:” is the default drive name and portions of the pathname are separated by colons instead of backslashes.
Dim OldName, NewName OldName = "OLDFILE": NewName = "NEWFILE" ' Define file names. Name OldName As NewName ' Rename file. OldName = "C:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE" Name OldName As NewName ' Move and rename file.

[crxftw]

That's what I use. It saves my reports to specific folder and creates new folder if it doesn't exist.

    Sub SendMessage(Optional AttachmentPath)
          Dim objOutlook As Outlook.Application
          Dim objOutlookMsg As Outlook.MailItem
          Dim objOutlookRecip As Outlook.Recipient
          Dim objOutlookAttach As Outlook.Attachment
          Dim mystr As String
          Dim myCurrentDir As String
        
            myCurrentDir = CurrentProject.Path & "\" 'Directory of current database
            
          Set objOutlook = CreateObject("Outlook.Application")
          Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

          With objOutlookMsg

             .To = Nz(<your email field here>, "")
             .Subject = "Subject"             
             .BodyFormat = olFormatHTML           
               
                mystr = "HTML formatted body message"
        
             .HTMLBody = mystr

             If Not IsMissing(AttachmentPath) Then 'Add attatchment
                 Set objOutlookAttach = .Attachments.Add(AttachmentPath)
             End If

             .Display 'Display the whole thing in Outlook

          End With
          Set objOutlook = Nothing
      End Sub

Now button to call the send function

Private Sub cmdEmail_Click()

If Not IsNull(<your email field here>) Then

    Dim myCurrentDir As String
    Dim myInvoiceDir As String
    Dim myInvoiceOutput As String

    myCurrentDir = CurrentProject.Path & "\"
    myInvoiceDir = myCurrentDir & "<your desired directory>" & "\" & "<your desired sub directory>" & "\"
    myInvoiceOutput = myInvoiceDir & <name of your report> & ".pdf"
    

    If Len(Dir(myInvoiceDir, vbDirectory)) = 0 Then
        MkDir myInvoiceDir
    Else
        DoCmd.OutputTo acOutputReport, <your report name here>, acFormatPDF, myInvoiceOutput, , , , acExportQualityPrint
        SendMessage, myInvoiceOutput 'Call the SendMessage function with attatchment path
    End If

Else
    MsgBox ("No E-mail address available for this client")

End If

End Sub