Bom dia,
Estou com um pequeno problema, Tenho um código que envia email sem anexo, e eu gostaria de poder introduzir em anexo o relatorio em PDF.
Vou postar os 2 códigos que tenho para saber se dava para juntar estes 2 codigos e formar um só:
1º - Serve para modificar o nome do relatório ao passar para PDF
2º - Serve para enviar email.
1º
DoCmd.OpenReport Form_Dif_filtro.Text4.Value, acViewDesign, , , acHidden
Reports(Form_Dif_filtro.Text4).Caption = Form_sub_report_metros.Text339.Value
DoCmd.Close acReport, Form_Dif_filtro.Text4.Value, acSaveYes
2º
Dim appOutlook As Object
Dim olMail As Object
'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0
Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail
With olMail
.To = Text207
.CC = "" & Me.Text209
.Subject = Me.Nome_Cliente_Final
'.Attachments.Add (CurrentProject.Path & "\" & "teste.xlsx")
.Body = Me.Text237 + vbNewLine + vbNewLine + Me.Text234.Value + vbNewLine + "OK para expedir." + vbNewLine + "Obrigado." + vbNewLine + vbNewLine + vbNewLine + "Roberto" + vbNewLine + "Área Medição"
.Send
End With
MsgBox "Email enviado com sucesso." & vbCrLf & "Para: " & Me.Text207.Value & vbCrLf & "Cc: " & Me.Text209.Value, vbInformation, "Email"
End Sub
Agradeço Ajuda...
Estou com um pequeno problema, Tenho um código que envia email sem anexo, e eu gostaria de poder introduzir em anexo o relatorio em PDF.
Vou postar os 2 códigos que tenho para saber se dava para juntar estes 2 codigos e formar um só:
1º - Serve para modificar o nome do relatório ao passar para PDF
2º - Serve para enviar email.
1º
DoCmd.OpenReport Form_Dif_filtro.Text4.Value, acViewDesign, , , acHidden
Reports(Form_Dif_filtro.Text4).Caption = Form_sub_report_metros.Text339.Value
DoCmd.Close acReport, Form_Dif_filtro.Text4.Value, acSaveYes
2º
Dim appOutlook As Object
Dim olMail As Object
'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0
Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail
With olMail
.To = Text207
.CC = "" & Me.Text209
.Subject = Me.Nome_Cliente_Final
'.Attachments.Add (CurrentProject.Path & "\" & "teste.xlsx")
.Body = Me.Text237 + vbNewLine + vbNewLine + Me.Text234.Value + vbNewLine + "OK para expedir." + vbNewLine + "Obrigado." + vbNewLine + vbNewLine + vbNewLine + "Roberto" + vbNewLine + "Área Medição"
.Send
End With
MsgBox "Email enviado com sucesso." & vbCrLf & "Para: " & Me.Text207.Value & vbCrLf & "Cc: " & Me.Text209.Value, vbInformation, "Email"
End Sub
Agradeço Ajuda...