Çözüldü Seçili Sayfaları Kitap Olarak Mail Gönderme

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

Believing

Yıllık Site Üyesi
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
 
@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:
You must log in to view content
(18 satır)

VBA:
You must log in to view content
(37 satır)
[/REPLY]
 
İ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,
 
Moderatörün son düzenlenenleri:
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

İ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,
 
Ö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:
You must log in to view content
(37 satır)
[/REPLY]
 
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
 
Moderatörün son düzenlenenleri:
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
 
Moderatörün son düzenlenenleri:
@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:
You must log in to view content
(13 satır)
 
Ö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,
 
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,
 
Üst