问第二次添加Outlook附件时在Outlook临时文件夹中创建的VB0B临时文件

EN

    Me.PrintForm1.PrintFileName = Jobpath & "\DrawingChecklist.pdf"
    PrintForm1.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.Scrollable)

    'Log
    My.Computer.FileSystem.WriteAllText(My.Application.Info.DirectoryPath & "\" & "Log.txt", "User: " & Environment.UserName & " Saved: " & txtQuoteNumber.Text & " at: " & DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") & Environment.NewLine, True) 'True appends, False overwites

    Dim OutlookMessage As Outlook.MailItem
    Dim AppOutlook As New Outlook.Application


    Try

        'Make sure file has been created
        Dim xx = 0
        Do While Dir(Jobpath & "\DrawingChecklist.pdf") = "" And xx < 10
            'MsgBox("File doens't exist." & " " & Jobpath & "\DrawingChecklist.pdf")
            xx = xx + 1
            Threading.Thread.Sleep(100)
        Loop

        'Double check file has been created
        If Dir(Jobpath & "\DrawingChecklist.pdf") = "" Then
            MsgBox("File doens't exist." & " " & Jobpath & "\DrawingChecklist.pdf")
        End If

        OutlookMessage = AppOutlook.CreateItem(Outlook.OlItemType.olMailItem)
        Dim Recipents As Outlook.Recipients = OutlookMessage.Recipients
        Recipents.Add(File.ReadAllText(ExePath & "DraftingEmail.txt"))
        Recipents.ResolveAll()
        OutlookMessage.Subject = txtCompany.Text & " " & txtQuoteNumber.Text & " " & txtJobName.Text
        OutlookMessage.Attachments.Add(Jobpath & "\DrawingChecklist.pdf")

        OutlookMessage.BodyFormat = Outlook.OlBodyFormat.olFormatHTML
        OutlookMessage.Display()
        'OutlookMessage.Send()
        'MsgBox("Mail sent!")



        'Catch ex As Exception
        'MessageBox.Show("Mail could Not be sent") 'if you dont want this message, simply delete this line 
    Finally
        OutlookMessage = Nothing
        AppOutlook = Nothing
    End Try