Seçili Sayfaları Kitap Olarak Mail Gönderme

Seçili Sayfaları Kitap Olarak Mail Gönderme

  • Konuyu başlatan Konuyu başlatan Believing
  • Başlangıç tarihi Başlangıç tarihi

Believing

VIP Üye
Kullanıcı
Katılım
1 Haz 2017
Mesajlar
75
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba Değerli Exceldestek.com Kullanıcı Arkadaşlar,

Ekteki örnek çalışmada kodlar ile belirlenmiş excel sayfalarını PDF formatında mail atıyorum.
ListBox'tan seçeceğim sayfaları "Günlük Rapor" isimli bir çalışma kitabının içerisine alarak mail olarak gödermek istiyorum. Senaryolar şöyledir.
1-) "Günlük Raporlar" isimli bir Excel çalışma kitabı oluşturulacaktır.
2-) Günlük Raporlar isimli çalışma kitabını ismine, PARAMETRE_MAILING sayfasının A1 hücresindeki tarih eklenecektir. (Örnek; Günlük Rapor - 02.04.2022)
3-) Listboxtan işaretli olan rapor sayfaları "Günlük Rapor - 02.04.2022" isimli çalışma kitabını içerisine kendi isimleri ile kaydedilecetir.
4-) PARAMETRE_MAILING sayfasındaki mail bilgileri eski örnekte kullanıldığı kibi kullanılarak, E-MAIL GÖNDER butonuna basılınca e-mail gönderilecektir.
Bu senryolara göre mevcut kodu revize edemiyorum, bu konuda yetersiz kalıyorum.
Benim için kıymetli olan yardımlarınızı rica ediyorum.

Saygılarımla,

https://***/fx4mhvc3ue22/ListBox_Seçimli_Mail_Gönder.xlsm.html
 
Yan Sayfadan Yanliş Veri̇ Aliyor
Yan Sayfadan Yanliş Veri̇ Aliyor
Diğer Hücrelerdede Silince Beyazlasın

Ekli dosyalar

  • 2022-04-03_13-57-37.webp
    2022-04-03_13-57-37.webp
    7.3 KB · Görüntüleme: 35
Tarihe göre sırala Oylamaya göre sırala
@Believing

-- UserForm kodlarının olduğu bölümün en tepesine Option Base 1 diye bir satır ekleyin,
-- UserFormdaki CommandButton4'e ait kodları aşağıdaki birinci kodla değiştirin,
-- Boş bir MODULe veya mevcut modullerden birine ikinci kodu yapıştırın.

[REPLY]
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(18 satır)

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(37 satır)
[/REPLY]
 
Oyla 0 Olumsuz oyla
İyi Akşamlar Ömer Bey,

Kodları söylediğiniz şekilde ekleyerek mail gönder butonuna basınca aşağıdaki hataları almaktayım.

HATA-1.webp
HATA-2.webp


Katip1 isminta yeni bir kitap oluşturuyor seçilen sayfaları içerisine ekliyor.
Siz mutlaka test etmişsinizdir. Acaba nerede hata yapıyorum?

Saygılarımla,
 
Oyla 0 Olumsuz oyla
Dosyayı, RAR içerisinden değil, bir klasöre çıkarttıktan sonra açıp,
userformdaki ilgili düğmeye tıklayın. Ben bir sorun görmedim.

Oluşturulan PDF sadece e-postaya ekleniyor. Ekleme sorasında da siliniyor.
PDF belge kalsın derseniz, Kill .... satırını pasif hale getirin.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
İyi Geceler Ömer Bey,

Bu defa mail gövdesine kadar her şey çok güzel çalıştı. İki unsuru düzeltmemiz gerekecek.
1-) Seçilen sayfaları PDF olark değil, bir Excel kitabı içerisine alarak, Kitabın ismi "Günlük Raporlar" olacak, ismin sonuna PARAMETRE_MAILING sayfasının A1 hücresindeki tarih eklenecektir.
2-) Mail detaylarını PARAMETRE_MAILING sayfasından alacaktır.
Yukarıdaki koşulları sağlarsanız çok makbule geçecektir.

Hayırlı geceler,
Saygılarımla,
 
Oyla 0 Olumsuz oyla
Önceki cevabımda verdiğim ikinci kodu aşağıdakiyle değiştirin.
Oluşturulup e-postaya eklenen excel belgesinin silinmesini istemiyorsanız
Kill Yol & isim satırını pasif hale getirin veya silin.

[REPLY]
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(37 satır)
[/REPLY]
 
Oyla 0 Olumsuz oyla
Hayırlı Sabahlar Ömer Bey
Kitap1 isminde bir yeni kitap oluşturuyor. Seçilen sayfaları içerisine ekliyor. Sonrasında aşağıdaki hatayı alıyorum.
Saygılarımla,

HATA-1.webp
HATA-2.webp
 
Oyla 0 Olumsuz oyla
Merhaba Ömer Bey,

Kodları orjinal çalışmama uyguladığım zaman ise aşağıdaki hataları alıyorum.
Saygılarımla,

HATA-1.webp
HATA-2.webp
 
Oyla 0 Olumsuz oyla
@Believing

En iyisi kodların tümünü etkileyebilecek Option Base satırını hiç kullanmayıp,
UserForm kodlarında aşağıda kırmızı işaretlediğim iki satırın arasını şöyle değiştirin.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(13 satır)
 
Oyla 0 Olumsuz oyla
Ömer Bey,
Kodlar çok güzel çalıştı. İstenilen sayfaları bir kataip içerisine aldı.
Sadece PARAMETRE_MAILING sayfasının D sütunundaki e-mail adreslerini Kime satırına, E sütunundaki e-mail adresleri Bilgi satırına yazdırınca konuyu sayenizde sonuçlandırmış olacağız.

Saygılarımla,
 
Oyla 0 Olumsuz oyla
Ellerinize emeğinize ve bilginize sağlık Ömer bey.
ALLAH sizlerden, sevdiklerinizden ve sebep olanlardan razı olsun. Sizlere sıkıntı yüzü göstermesin.
Hkkaınızı helal ediniz lütfen.

Saygılarımla,
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt