Aktif Excel Sayfasını GMAIL Üzerinden Makroyla Gönderme

AhmetRasim' Alıntı:

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.

Kod:

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

2- Dosya Adı
ComboBox ile seçtiğiniz sayfa ismine Bugünün Tarihini ve Saatini ekleyip "*.xlsx" olarak kayıt edilir.

Kod:

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

3- E-Posta Adresiniz
Aşağıdaki satıra çift tırnak " " arasına Kullandığınız E-Posta Adresini yazınız.

Kod:

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

4- E-Posta Şifreniz
Aşağıdaki satıra çift tırnak " " arasına Kullandığınız E-Posta Adresinin Şifresini yazınız.

Kod:

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

5- E-Posta Mesaj Bölümü
Aşağıdaki satıra çift tırnak " " arasına İletmek istediğiniz Mesajı yazınız.

Kod:

Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

-- 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

https://myaccount.google.com/lesssecureapps

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.

Genişletmek için tıklayın ...