e-mail gönderme

[ERMAN SAYINALP]

Merhabalar,

Ekte orjinalini gönderdiğim dosyadaki sayfayı D2 hücresinde kayıtlı e-mail adresine gönderme Makrosuna ihtiyacım var.

Değerli yardımlarınız lütfen.

KURALLAR :
1- Alıcı e-mail adresini, D2 hücresinden alacak
2- Gönderici e-mail adresini, Microsoft Outlook varsayılan adresi olarak kullanacak
3- Gönderilecek Sayfanın C14-I14 aralığından aşağısını ve...
4- Gönderilecek Sayfanın Dolu olan son satırına kadar olan bölümünü belirleyecek
5- Gönderim formatı PDF ve XLSX olacak

Not: Forumda yer alan benzer konu çözümlerini, kendime uyarlayamadım !

 

[Ömer BARAN]

Merhaba.

Belge ekte.
Belge yenilendi ( 05.02.2019 16:14 )

 

[ERMAN SAYINALP]

Ömer beycim merhaba,

Her zamanki gibi harikasınız. Ancak, bir pürüzümüz var, sizin de VBA'ya not ettiğiniz gibi,

('////// BURADAN SONRASINI, YANİ E-POSTA OLUŞTURMA VE GÖNDERME KISMINI DENEME ŞANSIM YOK //////
'////// BU NEDENLE, D2 HÜCRESİNE KENDİ E-POSTA ADRESİNİZİ YAZARAK DENEYİNİZ. ////// )

e-mail adı/adresi değiştirildiğinde, kod çalışmıyor. Ayrıca,

'renk = Workbooks("CARİ HESAP TAKİBİ.xlsm").Sheets("CARİ HESAP").Range(adres1).DisplayFormat.Interior.ColorIndex
'yazi = Workbooks("CARİ HESAP TAKİBİ.xlsm").Sheets("CARİ HESAP").Range(adres1).DisplayFormat.Font.Color

satırları da hata veriyor, PASİF ettiğimde çalışabiliyor.

Ek isteklerimle ilgili KURALLAR'ı aşağıda maddeliyorum.

1- Mail Konusu olarak, Tarih ve Mail Adresi kullanılmasın, bunu yerine sadece "CARİ HESAP EKSTRENİZ" yazılması yeterli olacaktır.
2- Mail eki olarak oluşturulan *.xlsx ve *.pdf dosya isimleri de "Cari Hesap Ekstresi.xlsx" ve " Cari Hesap Ekstresi.pdf" olması yeterli olacaktır.
3- Mail eki olarak oluşturulan Dosyalar, aynı dizin altında kayıt edildikçe birikmelere neden olacağından, işlem sonunda silinmelidir. Yada belki Dosya İsmi "Cari Hesap Ekstresi" olacağından, her seferinde üzerine yazacaktır.
4- Mail metninde de Tarih ve Mail adresi kullanılmasın, bunun yerine "Cari Hesap Ekstreniz ...........(devamı) " yeterli olacaktır.

Verdiğim ve vereceğim zahmetler için tekrar teşekkür ediyorum.

Görüşmek üzere..

 

[Ömer BARAN]

Kodun tetiklenmesi için sayfaya konumlandırılmış bir düğme kullanılacağını varsaymıştım.
Bunun yerine D2 değiştiğinde otomatik çalışma için,
forumda "hücre içeriği değişince makro çalışsın" şeklinde arama yaparsanız istediğine ulaşabilirsiniz.
renk/yazi hususları dışındakileri bence kendiniz halledebilirsiniz diye düşünüyorum.
renk/yazı konusuna bakayım.

 

[ERMAN SAYINALP]

Sevgili üstadım,

Çalıştım da beceremedim. Malumunuz, bu mecrada bir sizler varsınız, bir de bizler. Beni kırmayacağınızı ümit ediyorum.
Sevgilerimle.

 

[ERMAN SAYINALP]

Sevgili üstadım,

Çalıştım da beceremedim. Malumunuz, bu mecrada bir sizler varsınız, bir de bizler. Beni kırmayacağınızı ümit ediyorum.
Sevgilerimle.

 

[Ömer BARAN]

Önceki cevabımın ekindeki belgeyi yeniledim.
Sayfayı yenileyerek önceki cevabımı kontrol ediniz.

 

[ERMAN SAYINALP]

Önceki cevabımın ekindeki belgeyi yeniledim.
Sayfayı yenileyerek önceki cevabımı kontrol ediniz.

Harikulade, tekrar teşekkür ediyorum.
Görüşmek üzere...

 

[Ömer BARAN]

Eyvallah.
Kolay gelsin.
.