Problem with sending pdf reports to Outlook for email

[breezett93]

I am getting error code 2293 when clicking a button to generate a pdf report and send it to Outlook for email. Researching this code indicated their might be a problem with Outlook Trust, but I don't know how to go about testing that.

It is definitely not an issue with our database program. I tried older iterations to test if the problem was with new code, and all the old versions (even tried one from 2017) did not work.

I really do think the issue is with Outlook and not Access. After clicking the button, the a pop up says "creating report reportName blah blah blah". Then Access just closes when running the read only versions. On my machine, I get the error code.

Anyone else experiencing this?

[ranman256]

are you using:
docmd.sendto ?

[breezett93]

are you using:
docmd.sendto ?

No, I am using docmd.sendobject.

*Update: So far, the command does work only when Outlook is closed. Seems like the problem is with Outlook for sure.

[Eugene-LS]

... After clicking the button, the a pop up says "creating report reportName blah blah blah". Then Access just closes when running the read only versions. On my machine, I get the error code.
Anyone else experiencing this?

Publish your code please or (better)example of your application (part of it).
Otherwise difficult ...

[breezett93]

Publish your code please or (better)example of your application (part of it).
Otherwise difficult ...

Private Sub Email_Click()
Dim lngPOId As Long
Dim strVend As String
Dim vardate As Variant
Dim strFile As String


lngPOId = Me!POId
strVend = Me!VendId
vardate = Format(Me!PODt, "mmddyy")
strFile = strVend & " PO " & vardate & " " & lngPOId

strPOWhere = "[POId]=" & lngPOId
strFile = "C:\My Documents\" & strFile & ".PDF"

On Error GoTo Err_cmdOpenEmail_Click
'DoCmd.OutputTo acOutputReport, "PORpt01", acFormatPDF, strFile
DoCmd.SendObject acSendReport, "POEmailRpt01", acFormatPDF, , , , , , True


Exit_command127_Click:
 Exit Sub
Err_cmdOpenEmail_Click:
 If Err.Number = 2501 Then
 Resume Next
 Else
 MsgBox Err.Description
 Resume Exit_command127_Click
 End If


End Sub

[Eugene-LS]

breezett93, try :

Private Sub Email_Click()
'
'... your description - what's going on ...
'--------------------------------------------------------------------------
Dim lngPOId As Long
Dim strVend As String
Dim vardate As Variant
Dim strFile As String, strPOWhere$

Dim sTo$ 'list of recipientts
Dim sSubject$
Dim sMessageText$
On Error GoTo Email_Click_Err

'--------------------------------------------------------------------------
'Original (uncomment it!):
    'lngPOId = Me!POId
    'strVend = Me!VendId
    'vardate = Format(Me!PODt, "mmddyy")
    
'--------------------------------------------------------------------------
'My (for my form data - comment it please):
    lngPOId = Me!txtRecID
    strVend = Me!txtRecIDNO
    vardate = Format(Me!txtTestDateTime, "mmddyy")
    
'Extra from me ...
    sTo = "xxxxxxxxxxxx@gmail.com" ' to ... 
    sSubject = "Test for breezett93! - 01"
    sMessageText = "Test for breezett93! - 01"
    
    
'Next ...
    strFile = strVend & " PO " & vardate & " " & lngPOId

    strPOWhere = "[POId]=" & lngPOId

'Original code:
    'strFile = "C:\My Documents\" & strFile & ".PDF"
    
'Other way:
    'May be:  strFile = Environ("USERPROFILE") & "\Documents\" & strFile & ".PDF"
    strFile = Environ("TEMP") & "\" & strFile & ".PDF" ' In TEMP folder ...

    'DoCmd.OutputTo acOutputReport, "PORpt01", acFormatPDF, strFile
    'DoCmd.SendObject acSendReport, "POEmailRpt01", acFormatPDF, sTo, , , sSubject, sMessageText, True
    
'Works! ...
    DoCmd.SendObject acSendReport, "rptTest", acFormatPDF, sTo, , , sSubject, sMessageText, True



Email_Click_End:
    On Error Resume Next
    Err.Clear
    Exit Sub

Email_Click_Err:
    MsgBox "Error: " & Err.Number & vbCrLf & Err.Description & vbCrLf & _
    "in Sub: Email_Click in module: Form_Test", vbCritical, "Error in Application"
    Err.Clear
    Resume Email_Click_End

End Sub

Tested, it works ...

[breezett93]

In case you missed my update,

It works for me as well, but ONLY when Outlook is closed. I've never encountered this before.

[Eugene-LS]

It works for me as well, but ONLY when Outlook is closed. I've never encountered this before.

I've just tested with MS Outlook is running - it works!
Try to reboot - or close all MSO processes (Ctrl+Alt+Del) and again ...