Aktif Sayfayı PDF Olarak Mail Gönderme

Bu dosya, açık olan çalışma sayfasını PDF biçiminde geçici klasöre kaydeder, Outlook üzerinden e-postaya ekleyip gönderir ve gönderimden sonra PDF dosyasını klasörden siler. Yolladığınız e-posta adreslerini kod içinden değiştirmeniz yeterlidir.

Dosyanın içeriği​

• Sheet1: A1:K17 aralığında örnek bir tablo bulunur. Sütun başlıkları "Sütun 1", "Sütun 3" gibi, satırlar ise "Satır 1", "Satır 2" gibi örnek metinlerden oluşur. Sayfada formül yoktur. Sayfadaki CommandButton1 düğmesi makroyu çalıştırır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

• CommandButton1_Click (Sheet1): Düğmeye tıklandığında Email_ActiveSheet_As_PDF makrosunu çalıştırır.
• Email_ActiveSheet_As_PDF (Module1): Önce ekran yenilemeyi ve olayları kapatır. Sayfa adı ile tarih ve saatten oluşan bir dosya adı üretir ve PDF'yi kullanıcının temp klasörüne ExportAsFixedFormat ile aktarır. Ardından Outlook uygulamasını başlatır, yeni bir e-posta oluşturur, PDF'yi ek olarak ekler ve e-postayı gönderir. Gönderimden sonra Kill komutuyla geçici PDF dosyasını siler, ayarları eski haline getirir ve "E-Posta Gönderildi!" mesajını gösterir. Bir hata olursa hata açıklamasını mesaj olarak verir.

Güvenlik notu: Makro, yalnızca kendi oluşturduğu geçici PDF dosyasını siler. Başka dosyalara dokunmaz. E-posta Outlook üzerinden, kodda yazılı adreslere gönderilir. Kodda alıcı, bilgi (CC) ve gizli bilgi (BCC) alanlarında örnek olarak info@exceldepo.com adresi tanımlıdır. Göndermeden önce bunları kendi adreslerinizle değiştirmelisiniz. Aksi halde e-postalar bu adrese gider.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F11 ile VBA düzenleyicisini açın, Module1 içindeki .To, .CC ve .BCC satırlarına kendi e-posta adreslerinizi yazın.
3. .Subject ve .Body satırlarındaki konu ve gövde metnini ihtiyacınıza göre düzenleyin.
4. PDF olarak göndermek istediğiniz sayfayı aktif hale getirin.
5. Sayfadaki düğmeye tıklayın. Bilgisayarınızda Outlook kurulu ve ayarlı olmalıdır.

Not: Makro, sayfanın yazdırma alanını dikkate alır. Yazdırma alanı tanımlıysa PDF'ye yalnızca o alan aktarılır.