Leban's print to pdf question: send pdf via email attachment from access

[beltex63]

Does anyone know how to:

Send active info from an open form (report references fields from open form) to a pdf document (which would get the document name from form fields) that would in turn open Outlook and have the pdf as an attachment.

I already have the mdb setup to open reports as pdf's.

Best regards,
Brent

[MMcCarthy]

Does anyone know how to:

Send active info from an open form (report references fields from open form) to a pdf document (which would get the document name from form fields) that would in turn open Outlook and have the pdf as an attachment.

I already have the mdb setup to open reports as pdf's.

Best regards,
Brent

Sorry Brent but your question is confusing. Prehaps if you posted the code you are using to open the reports as pdfs it would help. Are you then trying to email these reports as attachments?

[beltex63]

I am using the following code along with Lebans print to pdf code:

Private Function CurrentDBDir() As String
'Code courtesy of Terry Kreft & Ken Getz
 
Dim strDBPath As String, strDBFile As String
 
    strDBPath = CurrentDb.Name
    strDBFile = Dir(strDBPath)
    CurrentDBDir = Left$(strDBPath, Len(strDBPath) - Len(strDBFile))
 
End Function
 
Private Function GetUniqueFilename(Optional path As String = "", _
Optional Prefix As String = "", _
Optional UseExtension As String = "") _
As String
 
' originally Posted by Terry Kreft to: comp.Databases.ms -Access
' Subject:  Re: Creating Unique filename ??? (Dev code)
' Date: 01/15/2000
' Author: Terry Kreft <[e-mail]>
' SL Note: Input strings must be NULL terminated.
 
Dim wUnique As Long
Dim lpTempFileName As String
Dim lngRet As Long
 
  wUnique = 0
  If path = "" Then path = CurDir
  lpTempFileName = String(MaxPath, 0)
  lngRet = GetTempFileName(path, Prefix, wUnique, lpTempFileName)
 
  lpTempFileName = Left(lpTempFileName, InStr(lpTempFileName, Chr(0)) - 1)
  Call Kill(lpTempFileName)
  If Len(UseExtension) > 0 Then
    lpTempFileName = Left(lpTempFileName, Len(lpTempFileName) - 3) & UseExtension
  End If
  GetUniqueFilename = lpTempFileName
 
End Function
 
Public Function SendMail(strRecipients As String, strSubject As String, strBody As String, vAttachments As String) As String
 
'Written by Tom Wickerath, May 7, 2006.
'Entry  (strRecipients) = Semicolon delimited string of recipients.
'       (strSubject) = Required. Message subject.
'       (strBody) = Optional. Body of the message.
'       (vAttachments) = List of files to attach to e-mail (separated by commas)
 
Dim myObject As Object, myItem As Object
Dim vCount As Long
Dim vArray() As String
 
    On Error GoTo ProcError
 
    Set myObject = CreateObject("Outlook.Application")
    Set myItem = myObject.CreateItem(0)
 
    vArray = Split(vAttachments, ",")                                   'fetch attached filenames into vArray
 
    With myItem
        .Subject = strSubject                                           'enter Subject text
        .To = strRecipients
 
        If Len(Trim(strBody)) > 0 Then                                  'enter message text
            .Body = strBody
        End If
 
        For vCount = 0 To UBound(vArray)                                'scan array
            .Attachments.Add (vArray(vCount))                           'add attachments
        Next
 
        .Display
'        .Send                                                           'this option will do the same as .Display but NOT display e-Mail program
    End With
 
ExitProc:
    Set myItem = Nothing
    Set myObject = Nothing
    Exit Function
 
ProcError:
    MsgBox "Error " & Err.Number & ": " & Err.Description, _
               vbCritical, "Error in SendMail Function..."
    SendMail = "A problem was encountered attempting to automate Outlook."
    Resume ExitProc
    Resume
 
End Function
 
Public Sub EMailAsPDF(vReport As String, vPDFName As String, vEMail As String, vSubject As String, vBody As String)
 
'Send Access report as a .pdf file to one (or more) e-mail addresses
'Entry  (vReport) = Name of report
'       (vPDFName) = Name used for PDF file excluding .pdf extension
'       (vEMail) = E-Mail address
'       (vSubject) = Subject string
'       (vBody) = Body of E-Mail string
 
'To send a report attached to an e-mail use code like this in your forms :-
'
'    EMailAsPDF "YourReportName", "Name of PDF file", "Recipients e-mail address", "Subject Line", "Main body of e-mail text"
'
'To send the report to more than one recipient add other e-mail addresses separated by semi-colons. i.e. "[e-mail];[e-mail]"
 
 
Dim vFolder As String, vDBPath As String, vDBFile As String
Dim vDummy As Variant
 
    On Error GoTo ErrorCode
 
    vDBPath = CurrentDb.Name                                                'fetch name of db folder
    vDBFile = Dir(vDBPath)                                                  'extract filename
    vFolder = Left$(vDBPath, Len(vDBPath) - Len(vDBFile))                   'fetch db folder name
    vDummy = ConvertReportToPDF(vReport, vFolder & vPDFName & ".pdf")       'save Report to temp file as .PDF file
    vDummy = SendMail(vEMail, vSubject, vBody, vFolder & vPDFName & ".pdf") 'send e-mail (with .PDF file attached)
    Kill vFolder & vPDFName & ".pdf"                                        'delete temp file
    Exit Sub
 
ErrorCode:
    If Err = 2501 Or Err = 2465 Then Exit Sub                               'if user cancels e-mail then abort
    Beep
    MsgBox "Error Code " & Err & ": " & Error                               'else show error
 
End Sub
 
 
The code is used along with a command button with the following code:
 
event procedure: on click
 
Private Sub Open_BOL_Click()
EMailAsPDF "BOL", "Customer", "[e-mail]", "IMO", "Test"
End Sub
 

Instead of using hard coded customer name, email address, etc., I would like to use fields from my form to fill in the customer name, email address, document name and subject.

Thanks,
Brent

[MMcCarthy]

Hi Brent

Will this work for you ?

SendMail(Me!EmailControl, Me!SubjectControl, Me!BodyControl, Me!DocumentPath)

Substitute each control name with the name of the control on your form.

[beltex63]

I used the following and it worked:

EMailAsPDF "IMO 1", Me.Title & Me.Dash & Me.po1 & Me.po, "email address here", Me.Title & Me.Dash & Me.po1 & Me.po, Me.Assigned_To.Column(1)