hasankardas
Altın Üye
- Katılım
- 14 Ağustos 2006
- Mesajlar
- 521
- Excel Vers. ve Dili
- Ofis 2021ProPlus TR 64 Bit
Merhabalar,
outlook umdan toplu dosyaları indirmek istiyorum. bunu yaptım kayıt ederken dosya isminin başına gönderen kişinin eposta adresinin yazılmasını istiyorum.
sname = oMail.Subject
replacesharsforfile sname, "-"
ddate = oMail.ReceivedTime
sname = Format(ddate, "dd-mm-yyyy", vbUseSystemDayOfWeek, vbUseSystem) & "-" & sname & ".msg"
spath = "C:\Users\****\Desktop\Deneme\"
oMail.SaveAs spath & sname, olMSG
End If
kodumuz çalışıyor lakin eklemeyi yapamadım.
12-11-2019-EXCEL CALISMAasıl - Kopya.xlsm bu şekilde kayıt ediyor ama ben
info@excelweb.tr-12-12019-excel çalışması
şeklinde kayıt yapmak istiyorum
teşekkürler.
outlook umdan toplu dosyaları indirmek istiyorum. bunu yaptım kayıt ederken dosya isminin başına gönderen kişinin eposta adresinin yazılmasını istiyorum.
sname = oMail.Subject
replacesharsforfile sname, "-"
ddate = oMail.ReceivedTime
sname = Format(ddate, "dd-mm-yyyy", vbUseSystemDayOfWeek, vbUseSystem) & "-" & sname & ".msg"
spath = "C:\Users\****\Desktop\Deneme\"
oMail.SaveAs spath & sname, olMSG
End If
kodumuz çalışıyor lakin eklemeyi yapamadım.
12-11-2019-EXCEL CALISMAasıl - Kopya.xlsm bu şekilde kayıt ediyor ama ben
info@excelweb.tr-12-12019-excel çalışması
şeklinde kayıt yapmak istiyorum
teşekkürler.