Aktif sayfa ile mail atma nasıl

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.

VBA:

İndirmek 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:

İndirmek 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:

İndirmek 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:

İndirmek 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:

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

myaccount.google.com

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