Sending email with object field
Hi everybody!
I'm using pdf creator 0.95 in a module of Access 2003, and I can send pdf files through Lotus Notes using these code:
Public Sub SendPDF(RepName As String, NomeFile As String, Criteri As String, Directory As String, Recipients As String)
Dim PDFCreator1 As PDFCreator.clsPDFCreator, DefaultPrinter As String, c As Long, OutputFilename As String
Set PDFCreator1 = New clsPDFCreator
With PDFCreator1
.cStart "/NoProcessingAtStartup"
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = Directory
.cOption("AutosaveFilename") = NomeFile
.cOption("AutosaveFormat") = 0 ' 0 = PDF
DefaultPrinter = .cDefaultPrinter
.cDefaultPrinter = "PDFCreator"
MsgBox "Clicca OK per continuare", , "Creazione PDF"
.cClearCache
DoCmd.OpenReport RepName, acViewNormal, , Criteri
.cPrinterStop = False
End With
c = 0
Do While (PDFCreator1.cOutputFilename = "") And (c