Apache OpenOffice Community Forum

Code: Select all

Sub IRP_EnviarPDF
  Const acSendForm = 2
  Const acFormatPDF = "writer_pdf_Export"
  Dim sPara as string
  Dim sCc as String
  Dim sBcc as String
  Dim sMensaje as string
  Dim sAsunto as string
  'msgbox "Se enviará el informe por correo"
  sPara="nadie@gmail.com"
  sCc="nada@gmail.com"
  sBcc="tampoco@gmail.com"
  sAsunto= "Empresa: Informe de rechazo a proveedor"
  sMensaje= "Estimado proveedor." & chr(13) & "En su envío hemos encontrado un problema que nos obliga a rechazar el material"

  DoCmd.SendObject(acSendForm,"InformeRechazoProveedor",acFormatPDF,sPara,sCc,sBcc,sAsunto,sMensaje,True)
 'DoCmd.SendObject (ObjectType,         ObjectName,        OutputFormat, To, Cc,  Bcc,Subject,MessageText,EditMessage, TemplateFile)
End sub