Toplu Mail Gönderim Dosyası Oluşturma

üstteki satırı alttaki kod bloğunda kendinize uygun olacak şekilde revize edersiniz.

İmzanız varsa Outlook'ta sanırım otomatik ekleniyordu zaten.

Üstad malesef ben yapamıyorum sanırım.

"C:\Users\Lenovo\Documents\2021\DB\2021 Haziran" pdf dosyalarının olduğu klasörün yolu

bu klasörün içinde de "deneme" adında bir pdf dosyası olduğunu sayıp ilgili kod satırının yazımında destek olabilir misiniz?

Outlook'da otomatik imza var lakin mail açmadan excelden otomatik gönderildiği için imza eklenmiyor olabilir?

Attachments.Add "C:\Users\Lenovo\Documents\2021\DB\2021 Haziran\deneme.pdf"

mobilden yazıyorum, üstteki gibi olması lazım.
İmza kısmını direk send yapmadan display yapın sonra send yapın belki ekler imzayı.

Üstadım vaktinizi alıyorum ama benim anlatımım eksik olmuş olabilir. göndermiş olduğum örnek dosyada tek bir satır örnek olarak verilmiştir. Normalinde bu excel dosyası içinde 350 küsur satır olacak ve hepsinin farklı mail adresi ve farklı pdf dosyası olup makro'nun çalıştırılması ile 350 mail yaratılıp aynı anda gönderiliyor olması gerekmektedir.

Belirtmiş olduğunuz kod satırı sadece tek pdf dosyasının eklenmesinde işe yarar sanırım.

@Feyzullah konuyu fark ederse, cevapsız bırakmayacaktır.

@Onur2021,

Sanırım şöyle olması lazım (outlook kullanmadığım için deneme şansım yok).
-- Koddaki İMZA blokuna ait YOL bilgisini kendi bilgisayarınızdaki YOL bilgisine göre düzenlersiniz.
Set Signature = XDfso . OpenTextFile("C:\Users\*.htm", 1)
İmza olayında sorun yaşansanız, mevcut imza dosyasını silip yeniden oluşturarak tekrar deneyin.
-- Ayrıca E sütununda eklenecek PDF belgenin yol bilgisi ve adının tam olarak doru olduğundan emin olmalısınız.
Örneğin Şöyle : D:\ÖMER BARAN\ABC_AS_01_2021.pdf
-- Denemelerinizde sorun kalmayınca, .Display satırını .Send olarak değiştirin.

fark eder mi abi?

Evet dediğinize istinaden sabit dosya sandım.

Yazdığınız kodlardaki yol alanında dosya adı olmadığı için normal olarak bir dosya eklemek mümkün olmayacaktır.
Bu alandaki değişkenin ürettiği sonuç şu şekildedir:
C:\Users\Lenovo\Documents\.........\...........\..........\..........

Eğer oradaki hücreye dosya adını da yazacak şekilde verilerinizi revize ederseniz sorun bitecektir.
Dosya adı sabit ise kodu aşağıdaki gibi değiştirin:

İmza kısmı için deneme yapmak lazım, Ömer hocamın verdiği kodları denemenizi öneririm.

Üstadım öncelikle destekleriniz için teşekkürler.
Ayrıca Outlook hesabında 4 farklı aktif mail çalışmaktadır. Varsayılan olarak atanan mail hesabından değilde 2.sıradaki mail hesabından bu maillerin gönderilmesini sağlamak mümkün olur mu?

Outlook kullanmadığımı daha evvel belirtmiştim.
Bu nedenle son duruma çözüm önermem pek mümkün değil.
Tahmin yürütüp, zaman almak/gereksiz yazışmalar yapmak doğru olmaz.

İkincil hesabın kullanımıyla ilgili de bir şey söyleyemiyorum.
İMZA yol bilgisini, yeni bir İMZA eklemeyi deneyerek bulabilirsiniz diye düşünüyorum.
Muhtemelen varsayılan bir konum vardır ama outlook kullanmadığımdan yorum yapamıyorum.
Gövde metni ve imza için şöyle de bir deneyin isterseniz.
.HTMLBody = mm.Range("d" & a).Value & Signature.ReadAll
.

Bu iş epey karışıkmış, İmza ve Gönderici Ekleme Seçenekli Mail Gönderme linkte örneklendirdik.

Dosyayı buraya eklemem mümkün olmayacak ama yöntemini söyleyebilirim. Öncesinde display ile mail metnini getirip, daha sonra replace ile hem imza hem html metnini değiştirmek şeklinde çözümledim.

dosyayı indirdim excel içindeki bilgileri kendi bilgilerim ile değiştirdim ama bende çalışmadı hata verdi. mailinizi paylaşmanız halinde dosyanın gerçek bilgiler ile son halini paylaşabilirim.

İlgileniyorum Onur bey dosyanızla.
Kısa sürede döneceğim.