Soru Mail Gönderme

[murat338]

Merhabalar,
Linkdeki tablomda basitçe mail gönderebiliyorum ama tablomdaki bilgileri de göndermem gerekli.
Makroda yeni olduğumdan dolayı yardımcı olabilirseniz çok sevinirim.
Teşekkürler.
https://dosya.co/2bsipqjlz3mp/SİPARİŞ-2.xlsm.html

 

[acar6783]

İki başlık açmışsınız?

https://www.excel.web.tr/threads/excel-mail-goenderme.180622/

Detaylı anlatısanız yardımcı olmaya çalışayım.
Dosya eki olarak mı eklenecek?

 

[murat338]

Merhaba,
Kusura bakmayın diğerini yanlış başlık altına açtım diye tekrar makro kısmına açma gereği duydum.
Buton ekleyip mail göndermeye çalışıyorum, mail gidiyor ama excel tablosunda ki bilgileri ekleyemiyorum mail içeriğine.

 

[Korhan Ayhan]

Tam olarak yapmak istediğinizi açıklar mısınız?

Neyi nereye eklemek istiyorsunuz?

 

[acar6783]

Merhaba,
Kusura bakmayın diğerini yanlış başlık altına açtım diye tekrar makro kısmına açma gereği duydum.
Buton ekleyip mail göndermeye çalışıyorum, mail gidiyor ama excel tablosunda ki bilgileri ekleyemiyorum mail içeriğine.

 .display
'.Send

Göndermek için ' kaldırın. Display mesajın ön izlemesini yapar. denemelerde mutlaka onu kullanın.
Dosyanız ektedir.

 

[bjk55]

Merhaba, bunu direk mail olarak değilde Pdf te çevirip mail olarak nasıl atabiliriz

 

[acar6783]

Pdf olarak kaydettiğinizi varsayarsam sadece;

.HTMLBody = RangetoHTML(rng)

satırını kaldırın

.Attachments.Add "C:\......"

Kodlarını ekleyin.

"C:\......" pdf dosyasının bulunduğu dizin...

 

[murat338]

İlginiz için çok teşekkür ediyorum.
Kod halinde paylaşabilir misiniz ? Paylaştığınız dosyayı görebilmem için altın üyelik gerekiyor. Şirket bilgisayarlarında olduğumuz için engelliyor üyelik için yönlendirilen siteyi.
Tekrar teşekkürler.
İyi günler dilerim.

 

[acar6783]

Bence altın üye olun

Link:
https://yadi.sk/i/KIfMFJUCXGv10g

 

[bjk55]

Pdf olarak kaydettiğinizi varsayarsam sadece;

.HTMLBody = RangetoHTML(rng)

satırını kaldırın

.Attachments.Add "C:\......"

Kodlarını ekleyin.

"C:\......" pdf dosyasının bulunduğu dizin...

ama önce belirlediğim sütünü pdf ye çevirmesi gerek sonra da mail de dosya eki yapması gerek

 

[acar6783]

Range("A1:AS60").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    yol & "/" & isim & ".pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

Bu kodu kendinize göre uyarlayın.
A1:AS60 aralığını sayfanın yazdırılacak alanı olarak belirleyin

Kaydettikten sonra pdfdosyasının açılmasını istemiyorsanız, "True" yazan yeri False yapın.