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