在 Outlook 中附加 Pdf 文件附件的运行时错误

Question

This code for automated email with Pdf attachment is working in several laptops but not working in my laptop. I am using same version of Excel and Windows.

Sub SendWorksheet_AsPDFAttachment_OutlookEmail()
    Dim objFileSystem As Object
    Dim strTempFile As String
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
 
    'Specify the worksheet name
    Sheets("Sheet1").Activate
    
    Sheets("Sheet1").Range("A1:O36").Select
 
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempFile = Sheets("Sheet1").Range("B50").Value
 
    'export the specific worksheet as PDF
    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strTempFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    'Call SaveAsPDF_Click
    'Create a new email
    
    Dim rng As Range
    'Dim imagerange As Range
    
    Set rng = Worksheets("Email Body").Range("A3:I23").SpecialCells(xlCellTypeVisible)
    'Set imagerange = Worksheets("Email Body").Range("A26:I45").SpecialCells(xlCellTypeVisible)
    Set objOutlookApp = CreateObject("Outlook.Application")
    Set objMail = objOutlookApp.CreateItem(olMailItem)
    objMail.Subject = "Letter of Appreciation from Office of CGPD"
 objMail.To = Sheets("Sheet1").Range("B49").Value
    'Attach the PDF file
    objMail.Attachments.Add strTempFile
   
    objMail.HTMLBody = RangetoHTML(rng)
    'objMail.Display '==>display this email
    objMail.send '==>to send this email
    'Delete the temp PDF file
    objFileSystem.DeleteFile (strTempFile)
End Sub

Answer 1

It is a matter of Attachment full path necessity ...

If strTempFile = Sheets("Sheet1").Range("B50").Value does not contain the path, Selection.ExportAsFixedFormat will work and it will create the file in the current directory .

objMail.Attachments.Add strTempFile needs the full qualified file path .

So, strTempFile must be fully qualified. I mean, try the next approach:

strTempFile = thisWorbook.Path & "\" & Sheets("Sheet1").Range("B50").Value

If it will work, you can find any other temporary path (Temp, Documents etc.)