Skip to main content

AccessTr.neT


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ı: 352)
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 yazdı: Link açılmıyor.

Hangi link açılmıyor acaba?
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
Task