• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Soru Outlooktan kod ile mail gönderme

seng

seng

Yeni Üye
Katılım
7 Nis 2021
Mesajlar
807
Çözümler
1
Aldığı beğeni
94
Excel V
Office 2013 EN
Konu Sahibi
HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Arkadaşlar herkese merhaba,

Ben outlooktan kodla mail gönderiyorum dosya yolundaki tarih & Malzeme durumu yazan yerı ;
dosya yolu : C:\Users\selis\Desktop\iş yükü için malzeme durumu\HAZİRAN-2021
excel adı : 30.06.2021 - MD YENİ olarak nasıl guncelleyebılırım?
HAZİRAN - 2021 Yazan yer aya göre değişkenlik gösteriyor.
 
Tarihe göre sırala Oylara göre sırala
Olumlu oy 0 Negatif oyla
Konu Sahibi
hocam dosya yolu my date degıl örnegın HAZİRAN - 2021 seklınde
 
Olumlu oy 0 Negatif oyla
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
selis' Alıntı:
hocam dosya yolu my date degıl örnegın HAZİRAN - 2021 seklınde
Genişletmek için tıkla...
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Eğerki değişken olarak her ay aynı şekilde yapıyorsanız. Bu şekilde dinamik hale getirebilirsini. Haziran temmuz .. gibi
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam bu dosyanın ıcınde tum hazıran excellerı var ben sadece ornegın 30.06.2021 almasını ıstıyorum bu ısımlı onu nasıl yapabliirim
 
Olumlu oy 0 Negatif oyla
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
burada for each-next döngüsünü kaldırarak ekleyin göndermesi gerek. Yalnız kodunuz eksik yukarda yazıldığı gibi göndermez. Revize-eklenti edilmesi lazım
 
Olumlu oy 0 Negatif oyla
Olumlu oy 0 Negatif oyla
Konu Sahibi
30.06.2021 örnek olarak verdim amacım date tarihini aldırmak örneğin bugün için 1.07.2021 gibi..
 
Olumlu oy 0 Negatif oyla
selis' Alıntı:
30.06.2021 örnek olarak verdim amacım date tarihini aldırmak örneğin bugün için 1.07.2021 gibi..
Genişletmek için tıkla...
hocam başa döndük bak o örneğide verdim ben mydate değil dediniz. Talebinizi karıştırıyorum şimdi
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Şöyle tekrar acıklayayım ;

Dosya yolu : C:\Users\selis\Desktop\iş yükü için malzeme durumu\TEMMUZ - 2021

Excel adı : 1.07.2021 - MD YENİ

( bugün için gösterdi)

Şuan kullandıgım kodda dosyadaki tüm excelleri alıyor, ben ismini belirttigim exceli eklemesini istiyorum, bu konuda yardımcı olabilir misiniz?
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
askan' Alıntı:
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Eğerki değişken olarak her ay aynı şekilde yapıyorsanız. Bu şekilde dinamik hale getirebilirsini. Haziran temmuz .. gibi
Genişletmek için tıkla...
Sanırım outlook a kod yazdıgım ıcın mı bılmıyorum bu format(date,"mmmm") kısmında hata verdi
 
Olumlu oy 0 Negatif oyla
Dosya adını uzantısı ile birlikte yazar mısınız
 
Olumlu oy 0 Negatif oyla
selis' Alıntı:
Şöyle tekrar acıklayayım ;

Dosya yolu : C:\Users\selis\Desktop\iş yükü için malzeme durumu\TEMMUZ - 2021

Excel adı : 1.07.2021 - MD YENİ

( bugün için gösterdi)

Şuan kullandıgım kodda dosyadaki tüm excelleri alıyor, ben ismini belirttigim exceli eklemesini istiyorum, bu konuda yardımcı olabilir misiniz?
Genişletmek için tıkla...
C:\Users\selis\Desktop\iş yükü için malzeme durumu\TEMMUZ - 2021\1.07.2021 - MD YENİ.xlsx Dosyayolu bu şekil de mi? Ayrıca "for each dosya In dc" ve "next" satırlarını siliniz ! Diğer dosyaları göndermez burda döngü var. Klasör içindeki tüm dosyaları gönderir
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
askan' Alıntı:
C:\Users\selis\Desktop\iş yükü için malzeme durumu\TEMMUZ - 2021\1.07.2021 - MD YENİ.xlsx Dosyayolu bu şekil de mi? Ayrıca "for each dosya In dc" ve "next" satırlarını siliniz ! Diğer dosyaları göndermez burda döngü var. Klasör içindeki tüm dosyaları gönderir
Genişletmek için tıkla...
evet o sekılde, o zaman o kodu cıkarayım hocam cunku tek dosya almasını ıstıyorum
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Set ds = CreateObject("Scripting.FileSystemObject")
kls = "C:\Users\selis\Desktop\iş yükü için malzeme durumu\" '24.02.2021 dosyasının içinde iki excel ve bir power bi raporu var bunları boş alıyor"
'If Dir(kls) = "" Then MsgBox "Klasor yok": Exit Sub
Set dc = ds.GetFolder(kls).Files

Hocam burda tum dosyaları eklıyor, ben nasıl belirli bir isimdeki exceli ekletebilirim sadece?

Excel adı : 5.07.2021 - Malzeme Durumu
 
Olumlu oy 0 Negatif oyla
selis' Alıntı:
Set ds = CreateObject("Scripting.FileSystemObject")
kls = "C:\Users\selis\Desktop\iş yükü için malzeme durumu\" '24.02.2021 dosyasının içinde iki excel ve bir power bi raporu var bunları boş alıyor"
'If Dir(kls) = "" Then MsgBox "Klasor yok": Exit Sub
Set dc = ds.GetFolder(kls).Files

Hocam burda tum dosyaları eklıyor, ben nasıl belirli bir isimdeki exceli ekletebilirim sadece?

Excel adı : 5.07.2021 - Malzeme Durumu
Genişletmek için tıkla...
Klasördeki dosyalar belli bir isim düzeninde mi karışık mı?
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam dosya ıcınde 1 tane exceli aldırıcam farklı dosya ve exceller var ıcınde ben gonderdıgım ısımdekı excelı eklettırmek ıstıyorum sadece
 
Olumlu oy 0 Negatif oyla
Başta 44 dosya dediniz o yüzden hepsini aldırdım. Dosya yol ve ismini yazarsanız ona göre ayarlanır
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
dosya yolu : C:\Users\selis\Desktop\iş yükü için malzeme durumu\"
excel adı : 5.07.2021 - Malzeme Durumu.xlsx
 
Olumlu oy 0 Negatif oyla
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst