Kod ile maile pdf eklerken dosya isminde % işareti çıkıyor.

[sinnernekolens]

Merhaba iyi geceler,
Çalışma dosyam masa üstünde iken aşağıdaki kod ile eki sorunsuz mail gönderiyorum. Ancak Dosya Onedrive da olduğu zaman dosyanın ismi ekli resimdeki gibi oluyor. % işaretleri çıkıyor. yardımlarınızı rica ederim.



Sub Dilekce_pdf()
Yol = ThisWorkbook.Path
Dosya_Adi = Yol & "\" & Format(Range("H10").Value, "yymmddhhmm") & " - " & Format(Now, "ddmmyyhhmm") & " - DILEKCE.pdf"

Sheets("DILEKCE").Range("A1:K50").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Dosya_Adi, Quality:=xlQualityStandard, IncludeDocProperties:=True

With Application
.EnableEvents = False
.ScreenUpdating = False
End With

Dim objOutlook As Object
Dim ObjApp As Object
Dim objMail As Object
Dim strbody As String
Dim i As Long, NoA As Long

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

strbody = "İyi günler," & "<br><br>" & _
"Dilekçe ekte sunulmuştur. Bilgilerinize." & "<br><br>" & _
"İyi çalışmalar"
strbody = "<font size=""2"" face=""Courier New"">" & strbody & "</font>"

On Error Resume Next
With objMail
.Display
.To = ""
.CC = ""
.BCC = ""
.Subject = Format(Range("H10").Value, "yymmddhhmm") & " - " & Format(Now, "ddmmyyhhmm") & " - DILEKCE"
.HTMLBody = strbody & "<br>" & .HTMLBody
.Attachments.Add Dosya_Adi
.Display
End With
On Error GoTo 0
Set objMail = Nothing
Set ObjApp = Nothing

With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

 

[sinnernekolens]

iyi akşamlar, bu dediğim hatayı Mso 2019 da alıyorum 2016 böyle yapmıyordu.