AccessTr.neT

Tam Versiyon: Excel Hücresindeki Bilgiyi Toplu Maillere Otomatik Ekleme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
Merhaba
Uygulamada toplu mail gönderiyorum. Bu mailleri gönderirken her mailin başına hitaben o mail adresinin bulunduğu satırın C hücresindeki Firma Unvan bilgisinin eklenmesini sağlamak istiyorum. Bu işlem normalde Office WORD uygulaması yardımıyla çözülüyor. Fakat uzun zaman alıyor.

Kodda .Body = ifadesinin devamında yer alan

"Sayın yetkili, Ekte 2021 WINPERAX Teknik Ürün Kataloğu dikkatinize sunulmuştur. İlginizi çekeceğini ümit ederek, firmalarımız arasında kalıcı bir işbirliği oluşması temennisi ile sağlıklı günler dileriz."

tümcesinde ki Sayın Yetkili ifadesinin Resimdeki bilgilere göre C sütununda yer alan Unvanlara göre değişmesini sağlamak istiyorum.


Sn.FIRATEX Alimünyum ve Camlama Sistemleri

Ekte 2021 WINPERAX Teknik Ürün Kataloğu dikkatinize sunulmuştur. İlginizi çekeceğini ümit ederek, firmalarımız arasında kalıcı bir işbirliği oluşması temennisi ile sağlıklı günler dileriz."

Sn.WINPERAX CAM BALKON SİSTEMLERİ AŞ.

Ekte 2021 WINPERAX Teknik Ürün Kataloğu dikkatinize sunulmuştur. İlginizi çekeceğini ümit ederek, firmalarımız arasında kalıcı bir işbirliği oluşması temennisi ile sağlıklı günler dileriz."

[Resim: do.php?img=10892]
Alttaki gibi düzenleyebilirsiniz yada htmlbody olarakta yapılabilr

        .body = "Sayýn yetkili," _
                & vbNewLine & vbNewLine & "Ekte 2021 WINPERAX Teknik Ürün Kataloðu dikkatinize sunulmuþtur." _
                & vbNewLine & vbNewLine & "Ýlginizi çekeceðini ümit ederek," _
                & vbNewLine & vbNewLine & "firmalarýmýz arasýnda kalýcý bir iþbirliði oluþmasý temennisi ile saðlýklý günler dileriz."
Yada alttaki gibi olur.br ile alt boşluk yapılıyor.

      .htmlBody = "Sayýn yetkili<br><br>" & _
                  "Ekte 2021 WINPERAX Teknik Ürün Kataloðu dikkatinize sunulmuþtur.<br><br>" & _
                  "Ýlginizi çekeceðini ümit ederek,<br><br>" & _
                  "firmalarýmýz arasýnda kalýcý bir iþbirliði oluþmasý temennisi ile saðlýklý günler dileriz.<br><br>" & _
                  "<br><br><br><br><br><br>Saygýlar"
Feraz Hocam Eksik ifade ettim sanırım. Sayın "yetkili" İbaresini kaldırmak onun yerine satırda C sütununda yazan unvan bilgisini değişken olarak getirmem gerekiyor.

1.mail
.body = "Sayın " " WINPERAX CAM BALKON SİSTEMLERİ AŞ," _
                & vbNewLine & vbNewLine & "Ekte 2021 WINPERAX Teknik Ürün Kataloðu dikkatinize sunulmuþtur." _
                & vbNewLine & vbNewLine & "Ýlginizi çekeceðini ümit ederek," _
                & vbNewLine & vbNewLine & "firmalarýmýz arasýnda kalýcý bir iþbirliði oluþmasý temennisi ile saðlýklý günler dileriz."

2.mail
.body = "Sayın " "Yurt Cam Ayna ve Dekorasyon," _
                & vbNewLine & vbNewLine & "Ekte 2021 WINPERAX Teknik Ürün Kataloðu dikkatinize sunulmuþtur." _
                & vbNewLine & vbNewLine & "Ýlginizi çekeceðini ümit ederek," _
                & vbNewLine & vbNewLine & "firmalarýmýz arasýnda kalýcý bir iþbirliði oluþmasý temennisi ile saðlýklý günler dileriz."



3.mail
.body = "Sayın " "Esenyurt Cam Balkon Tozanlı," _
                & vbNewLine & vbNewLine & "Ekte 2021 WINPERAX Teknik Ürün Kataloðu dikkatinize sunulmuþtur." _
                & vbNewLine & vbNewLine & "Ýlginizi çekeceðini ümit ederek," _
                & vbNewLine & vbNewLine & "firmalarýmýz arasýnda kalýcý bir iþbirliði oluþmasý temennisi ile saðlýklý günler dileriz."

Şeklinde her mail adresine o mail adresinin geçtiği ID nin C sütunundaki unvanı eklemek istiyorum.
Tamam abey zaten kodlar var müsait olunca hallederim.
Sanırım işler karışacak.Çünkü mesela her mod 50 için nasıl satır bulunacak gibi.Diziye felan alınıp yapılabilir diye ümit ediyorum.
Sayfalar: 1 2 3