Soru Outlooktan kod ile mail gönderme

selis' Alıntı:

dosya yolu : C:\Users\selis\Desktop\iş yükü için malzeme durumu\"
excel adı : 5.07.2021 - Malzeme Durumu.xlsx

Genişletmek için tıkla...

HTML: Gerekli yerleri doldurup deneyin

Sub is_yükü_raporu()

Dim myDate As Date
myDate = Date
'myDate = Format(Date, "mmmm")
'selis = "Kapasite" & myDate




Set ds = CreateObject("Scripting.FileSystemObject")

kls = "C:\Users\selis\Desktop\iş yükü için malzeme durumu\" & myDate & " - Malzeme Durumu.xlsx"

If Dir(kls) = "" Then MsgBox "Klasor yok": Exit Sub

Set dc = ds.GetFolder(kls).Files 'dosyaların bulunduğu yol



Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.Subject = myDate & " " & "İŞ YÜKÜ MALZEME DURUMU"
'.HTMLBody = "Merhaba <span style=""font-family: calibri;font-size: 12pt"">Gökhan</span> Bey," & "<br><br>"

.HTMLBody = "<span style=""font-family: Lucida Sans Unicode;font-size: 11pt; color:#140EE4""> Merhaba Gökhan Bey,</span>" & "<br><br>"


.Attachments.Add dosya.Path 'dosyaların bulunduğu yol"




.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub


ÇALIŞMADI

Hocam kodda hata var, biz suan dosyadan tek excel almaya calısıyoruz bu kod sanırım yanlıs ; Set dc = ds.GetFolder(kls).Files '

Klasör tanımlayıp excel adı yazdık o da yanlıs olabilir ; kls = "C:\Users\selis\Desktop\iş yükü için malzeme durumu\" & myDate & " - Malzeme Durumu.xlsx"

verdiğiniz bilgiye göre klasör adı: kls = "C:\Users\selis\Desktop\iş yükü için malzeme durumu\5.07.2021 - Malzeme Durumu.xlsx" ve .Attachments.Add dosya.kls olarak dener misiniz

Burda hata verıyor ;
Set dc = ds.GetFolder(kls).Files

selis' Alıntı:

Burda hata verıyor ;
Set dc = ds.GetFolder(kls).Files

Genişletmek için tıkla...

onu silin işte gereksiz bir kod o