Merhabalar Sn.
@sedat2161;
Aktif sayfa olarak değil de
Seçilen Sayfayı Mail Gönderme olarak bir çalışma hazırladım.
Çalışma şekli şöyle;
-- MailGönder isimli sayfadaki ComboBox ile sayfa seçimi yapılıyor.
-- Hedef E-Posta adresini yazdıktan sonra Kayder ve Gönder düğmesine tıkladığınız zaman,
Seçtiğiniz sayfa,
ayrı bir Excel dosyası olarak kayıt ediliyor ve E-Posta ekine bu dosya ekleniyor.
Mail gönderme işleminden önce yapılması gerekenler şu şekilde;
-- Modüle içerisinde bulunan kodlarda değiştirilmesi gereken bölümler:
1- Dosya Kayıt Klasörü
Aşağıdaki satır, seçilen sayfanın Excel olarak kayıt edileceği klasör yolunu gösteriyor.
İsteğinize göre bu yolu değiştirebilirsiniz. Yolu değiştirmeden kullanırsanız
İndirilenler Klasörüne kayıt eder.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
2- Dosya Adı
ComboBox ile seçtiğiniz sayfa ismine
Bugünün Tarihini ve Saatini ekleyip "*.xlsx" olarak kayıt edilir.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
3- E-Posta Adresiniz
Aşağıdaki satıra
çift tırnak " " arasına Kullandığınız E-Posta Adresini yazınız.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
4- E-Posta Şifreniz
Aşağıdaki satıra
çift tırnak " " arasına Kullandığınız E-Posta Adresinin Şifresini yazınız.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
5- E-Posta Mesaj Bölümü
Aşağıdaki satıra
çift tırnak " " arasına İletmek istediğiniz Mesajı yazınız.
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
-- Excel Seçeneklerinden değiştirilmesi gereken bölüm:
1. Microsoft Office (Dosya) düğmesi' ni tıklatın ve sonra Excel Seçenekleri' ni tıklatın.
2. Güven Merkezi seçeneğini tıklatın.
3. Güven Merkezi Ayarları' nı tıklatın.
4. Makro ayarları' nı tıklatın.
5. VBA projesi nesne modeli erişimine güven onay kutusunu seçmek için tıklatın.
6. Excel Seçenekleri iletişim kutusunu kapatmak için
Tamam ' ı tıklatın.
Ekli dosyayı görüntüle 8860
** Excel Seçeneklerinde bu işlemi yapmazsanız karşılaşacağınız hata resmi
Ekli dosyayı görüntüle 8856
-- Gmail Hesabında verilmesi gereken izin:
Gmail Hesabınızda oturum açtıktan sonra şu adresi açınız
Kapalı olan
Daha az güvenli uygulama erişim iznini Açık olarak değiştiriniz.
Ekli dosyayı görüntüle 8858
Ekli dosyayı görüntüle 8859
** Gmail Hesabında bu işlemi yapmazsanız karşılaşacağınız hata resmi
Ekli dosyayı görüntüle 8857
Yukarıdaki işlemleri yaptıktan sonra Seçilen Sayfayı belirtilen adrese gönderebilirsiniz.
Sonuç görüntüsü
Ekli dosyayı görüntüle 8861
Faydalı olması dileği ile.
Saygılarımla, iyi çalışmalar.