Нужна помощь в прикреплении файла PDF, который я сохраняю в электронное письмо - PullRequest
Новая
       7

Нужна помощь в прикреплении файла PDF, который я сохраняю в электронное письмо

0 голосов
/ 11 февраля 2020

В настоящее время мой код ниже. Это работает хорошо, но по какой-то причине не позволяет мне прикрепить файл, который я сохраняю. Я пытался переписать его несколько раз, но это не сработает. Пожалуйста, дайте мне знать, если это легко исправить. 

Sub Email_Sheet_Click()

Dim objOutlook As Object
  Dim objMail As Object
  Dim signature As String
  Dim oWB As Workbook
  Set oWB = ActiveWorkbook



 s = Range("F9").Value

'
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
     s, Quality:=xlQualityStandard, IncludeDocProperties _
     :=True, IgnorePrintAreas:=False, OpenAfterPublish:=True


PDF_File = "Q:\227_Saginaw\Texas\UFPIndustrial RFQ Quotes" & Format(Now, "YYMMDD") & ActiveSheet.Range("F6") & ".pdf"


Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
    .Display
End With
    signature = objMail.HTMLBody
With objMail
    .To = ActiveSheet.Range("F6")
    .Subject = ActiveSheet.Range("F11")
    .HTMLBody = "<font face=" & Chr(34) & "Calibri" & Chr(34) & " size=" & Chr(34) & 4 & Chr(34) & ">" & ActiveSheet.Range("F12") & "<br> <br>" & "Insert email body here" & "<br> <br>" & signature & "</font>"

End With

Set objOutlook = Nothing
Set objMail = Nothing
End Sub

Спасибо

...