Skip to main content

AccessTr.neT M.



Excelde Seçili Alanı PDF yaparak Outlook Üzerinden Mail Gönderme

Excelde Seçili Alanı PDF yaparak Outlook Üzerinden Mail Gönderme

#1
Excelde secili alanı rapor olarak PDF formatında outlook üzerinden mail gönderme öncelikle PFD formatına dönüştürmek için klasör içerisinde bulunan SaveAsPDFandXPS.exe dosyasını kurmamız gerekir ve Office 2007 ve üstü formatlarda çalışır.

.rar OutlookMailPDF.rar (Dosya Boyutu: 559,03 KB | İndirme Sayısı: 290)
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
#2
Link açılmıyor.

Cevapla
...........
#3
(23/02/2016 17:15)brhmkrtog Adlı Kullanıcıdan Alıntı: Link açılmıyor.
Hangi link açılmıyor acaba?

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#4
Merhaba,
Hatalı yazım olmuş link değil ek olacaktı.
Fakat açtım eki sıkıntı yok TEŞEKKÜR ederim Img-grin

Sorum şu şekilde ;
Kullanmış olduğum Excel dosyasında belirli olan stunlar jpg formatında yada pdf formatında otomatik olarak belirli saatlerde kişiye mail atacak.
Sayfa kendidi belirli saatlerde yenileyecek ve maili gönderecek.

Bunun için elimde şu formül mevcut ;


Sub zaman()
On Error Resume Next
Application.DisplayAlerts = False
Application.OnTime Now + TimeValue("23:59:59"), "zaman"


Application.OnTime TimeValue("10:30:00"), "PERSONAL.XLSB!aaa"
Application.OnTime TimeValue("10:35:00"), "Send_Range"

Application.OnTime TimeValue("12:00:00"), "PERSONAL.XLSB!aaa"
Application.OnTime TimeValue("12:05:00"), "Send_Range"

Application.OnTime TimeValue("13:00:00"), "PERSONAL.XLSB!aaa"
Application.OnTime TimeValue("13:05:00"), "Send_Range"

Application.OnTime TimeValue("14:00:00"), "PERSONAL.XLSB!aaa"
Application.OnTime TimeValue("14:05:00"), "Send_Range"

Application.OnTime TimeValue("15:00:00"), "PERSONAL.XLSB!aaa"
Application.OnTime TimeValue("15:05:00"), "Send_Range"

Application.OnTime TimeValue("16:00:00"), "PERSONAL.XLSB!aaa"
Application.OnTime TimeValue("16:05:00"), "Send_Range"

Application.OnTime TimeValue("17:25:00"), "PERSONAL.XLSB!AAAA"
Application.OnTime TimeValue("17:26:00"), "Send_Range"

Application.OnTime TimeValue("18:00:00"), "PERSONAL.XLSB!aaa"
Application.OnTime TimeValue("18:05:00"), "Send_Range"

Application.OnTime TimeValue("19:00:00"), "PERSONAL.XLSB!aaa"
Application.OnTime TimeValue("19:05:00"), "Send_Range"

Application.OnTime TimeValue("20:00:00"), "PERSONAL.XLSB!aaa"
Application.OnTime TimeValue("20:05:00"), "Send_Range"

Application.OnTime TimeValue("21:00:00"), "PERSONAL.XLSB!aaa"
Application.OnTime TimeValue("21:05:00"), "Send_Range"

Application.OnTime TimeValue("22:00:00"), "PERSONAL.XLSB!aaa"
Application.OnTime TimeValue("22:05:00"), "Send_Range"

End Sub



otomatik mail ve pdf çevirmeyi yapamadım yadımcı olabilirmsinizi?

Cevapla
...........

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da