Makro ile Farklı kişilere Farklı içerikte E-mail Göndermek

[japonbaba]

Değerli Excel Web Üstatları Konu ile alakalı sitede bir sürü örnekler mevcut fakat kişilerin ihtiyacına göre uygulamalar değiştiğinden dolayı ve makroya yeni başladığımdan dolayı sizlerden yardım taleb ediyorum istediğim kısaca şu;
Bir Raporlar sayfam mevcut ve müşterilerin anlık extrelerini bu sayfada filtreliyerek makro ile pdf formatına klasöre çıkartıyorum. Aşağıda makro mevcut bu ek olarak ----->>>
Mail Adresi : C8 Hücresinde
Mail Konusu : S5 Hücresinde(Değişiklik olabilir)
Mail Bilgisi (cc) : S10 Hücresinde (Değişiklik olabilir)
Mail İçeriği : S11 Hücresinde (Değişiklik olabilir)
Mail Eki olarak : Makronun Pdf Formatına Çevirdiği Dosya

Resimdende anlaşılacağı gibi bir çok cari hesabın extre sayfası birleşik giriş kutusundaki bilgiye göre cariler değişiyor ve mail adresleri ve bilgilerde tabi bu yüzden hücrelere bağlı olması gerektiği kanaatindeyim. mail göndermem istediğim carinin extresi mail eki olarak yazdırma alanımı resimdede gördüğünüz gibi sayfa yazdır butonuna tıkladığımda belirli bir klasörün içine PDF dosyası olarak atıyor isterseninz klasörden göndersin isterseniz yazdırma alanından size bağlı şimdiden yardımlarınız için teşekkür ederim umarım açıklama yeterli gelir

Sub SayfayıYazdır()

'
' sayfayazdır Makro
'

'

Dim Yazdır As String

Yazdır = MsgBox("Hesap Exresi Formu Yazdırılacak Onaylıyormusunuz..!", vbQuestion + vbYesNo, "   Dikkat...!")

If Yazdır = vbYes Then

Dim pdfName As String, FolderName As String, FullName As String

pdfName = Range("R1").Text
FolderName = Range("L14").Text
FullName = "C:\Users\Bilal\Desktop\7.Bölge Hesaplar\Hesap Extreleri\" & FolderName & "\" & pdfName & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FullName _
, Quality:=xlQualityMedium, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
    
MsgBox "Dosyanız Başarı İle C:\Users\Bilal\Desktop\7.Bölge Hesaplar\Hesap Extreleri\ Mevcut Ayın Klasörüne Kaydedilmiştir..!", vbInformation, " İşlem Başarılı...!"

End If
End Sub

Yardımcı olabilecek arkadaş varsa memnun olurum..

 

[japonbaba]

Yardımcı olabilecek arkadaşlar olduğuna Eminim

 

[Korhan Ayhan]

Aşağıdaki linkte benzer bir konu var. İncelerseniz faydası olabilir.


PDF kaydet ve mail gönder

 

[japonbaba]

Teşekürler inşaalah olur