Bom dia,
Gostaria de saber porque nesse código esta gerando um arquivo em pdf na mesma pasta onde está o sistema.
Botão:
Sub:
A ideia é apenas enviar por e-mail! :/
Gostaria de saber porque nesse código esta gerando um arquivo em pdf na mesma pasta onde está o sistema.
Botão:
- Código:
Private Sub enviar_Click()
'Abri relatório de acordo com o número da Solicitação
DoCmd.OpenReport "rlt_visualizar", acViewPreview, , "Solicitacao = " & Me!NumeroSolicitação
'Enviar Relatório por e-mail
Call EnviaEmail
'Fecha relatório
DoCmd.Close acReport, "rlt_visualizar"
'Abre relatório para imprimir
DoCmd.OpenReport "Solicitação de EPI'S", acViewPreview, , "Solicitacao = " & Me!NumeroSolicitação
Msgbox "Registro enviado", vbInformation
End Sub
Sub:
- Código:
Sub EnviaEmail()
Dim OutApp As Object
Dim OutMail As Object
Dim corpo As String
Dim strReportName$
Dim AttachmentPath$
Dim subject$
Dim email_to$
Dim email_cc$
'Variáveis
strReportName = "rlt_visualizar"
DoCmd.OutputTo acOutputReport, strReportName, acFormatPDF, CurrentProject.Path & _
"\" & "Solicitação " & Forms!fml_solicitante.NumeroSolicitação & ".pdf", False
'Anexa relatório em formato PDF no e-mail
subject = "Solicitação de EPI's - " & Forms!fml_solicitante.NumeroSolicitação
AttachmentPath = CurrentProject.Path & "\" & "Solicitação " & Forms!fml_solicitante.NumeroSolicitação & ".pdf"
email_to = "caio.souza"
email_cc = ""
'Define os controles para envio de e-mail
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
'Abre o Outlook.exe
corpo = "<html><p><span style=""font-family: Calibri; font-size: 11pt;"">Prezados," _
& "<p>Segue anexo referente a Solicitação " & Forms!fml_solicitante.NumeroSolicitação _
_
& vbCrLf & vbCrLf _
& "<p>Fico no aguardo de sua manifestação favorável e dispostos a quaisquer esclarecimentos. " _
& "<p>Por gentileza, confirmar o recebimento da e-mail. " _
& "<p></span></html>"
'Corpo do e-mail em formato HTML
With OutMail
.Display
.To = email_to
.CC = email_cc
.BCC = ""
.subject = subject
.Attachments.Add (AttachmentPath)
.HTMLBody = corpo & "<br>" & .HTMLBody
.Send
End With
'Envia e-mail
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
A ideia é apenas enviar por e-mail! :/