Skip to main content

AccessTr.neT


Pdf olarak mail gönderme

Pdf olarak mail gönderme

#1
Arkadaşlar merhaba aşağıdaki kodda boş sütunları doldurma uyarısı butona bağlı aynı buton ile xps olarak yada pdf olarak mailde atabilirmiyim? ekleme yapılması gerekiyosa nası bi yol izlemem gerek bilgi verirseniz sevinirim.

Private Sub Komut44_Click()
On Error Resume Next
If IsNull(Me.Tarih) Or Me.Tarih = "" Then
MsgBox ("Tarih Eksik!")
Exit Sub
ElseIf IsNull(Me.Firma_Adı) Or Me.Firma_Adı = "" Then
MsgBox ("Firma Adı Eksik!")
Exit Sub
ElseIf IsNull(Me.Konu) Or Me.Konu = "" Then
MsgBox ("Konu Eksik!")
Exit Sub
End If
Dim MyForm As Form
Set MyForm = Screen.ActiveForm
DoCmd.RunCommand acCmdSelectRecord
DoCmd.PrintOut acSelection
End Sub
Cevapla
#2
sayın Çevik,

bahsettiğiniz talebinize yönelik olarak;

her siz de takdir edersiniz ki,durum gidişatına göre olması gerekçesi ile,
Site Kuralları gereği içeriğinde farazi gerçek dışı veriler olacak şekilde örnek uygulamanızı eklemeyi ihmal etmeyiniz.

son olarak;
site arama sayfasında benzer içeriklerde çeşitli konular ve örnekleri mevcut.inceleme durumunuz oldu mu acaba?

ilk aklıma gelen,

"pdf gönder" ya da "mail gönder" benzeri ifadeleri aratmayı deneyiniz.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
Atoz bey merhaba şuan araştırdım ama benım mevcut butonumda uygulama olduğu için kodu bozmak istemedim. Şu an mevcut makro ile bi yol buldum ancak hespini pdf olarak veriyor.
Cevapla
#4
sayın Çevik,

örnek uygulamanızı eklemeyi ihmal etmeyiniz.

ayrıca,
hangi raporu pdf olarak göndermek istediğinizi de beyan etmeyi unutmayınız.

"DoCmd.SendObject" veya "DoCmd.OutputTo acReport" komutlarını araştırmayı deneyiniz.

bu ya da harici mail gönderme komutları,bahsini yaptığınız kodlara zarar vermez veya değişimine neden olmaz.diğer işlemlerin bitiminde en son kısımda bu komut kullanabilirsiniz.

KONU BAŞLIĞI;
(içeriği itibarı ile)

"Mail Atma Hk." ifadesi yerine,
"Pdf olarak mail gönderme" olarak değiştirilmiştir.


bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#5
Atoz bey merhaba tekrar bir formda birden fazla konu var yani seçmek istediğim sayfayı yazdırıcam amacım o araştırdım ancak bulamadım. Örnek formu ekledim.
.rar Yeni Microsoft Access Veritabanı.rar (Dosya Boyutu: 62,31 KB | İndirme Sayısı: 8)
Cevapla
#6
sayın çevik,

öncelikle;
bir hususu netleştirmekte fayda var kanısındayım.

Alıntı:aşağıdaki kodda boş sütunları doldurma uyarısı butona bağlı aynı buton ile xps olarak yada pdf olarak mailde atabilirmiyim?

yukarıda yazılı ve ilk mesajınızda konuyu açmanıza neden olan talebiniz,mail göndermek üzerineydi fakat 5.mesajda ise,

Alıntı:seçmek istediğim sayfayı yazdırıcam amacım o

ifadeniz ile,sayfa yazdırma talebinde bulunmaktasınız.eğer "...amacım o..." diyorsanız,o zaman;konunuzun gidişatı ve işleyişi değişmektedir.

mail gönderme işlemi söz konusu değilse,bu durumda,kaldı ki;eklediğiniz örnek uygulama incelendiğinde herhangi bir raporun olmadığı görülmektedir.dolayısı ile de,mail gönderme işlemini eğer rapor şeklinde sağlamak istiyorsanız,raporunuzu da içeriğind ehangi alanları barındırmasını tercih ediyorsanız buna göre oluşturmalısınız.

bu arada,herhangi bir rapor olmadığına göre,sanırım (yanılıyorsam lütfen gerekli bilgilendirmeyi de yaparsınız);formu ve formda seçili olan kaydı yazdırmak istiyorsunuz.eğer bu geçerliyse;

Private Sub Komut44_Click()
On Error Resume Next
If IsNull(Me.Tarih) Or Me.Tarih = "" Then
MsgBox ("Tarih Eksik!")
Exit Sub
ElseIf IsNull(Me.Firma_Adı) Or Me.Firma_Adı = "" Then
MsgBox ("Firma Adı Eksik!")
Exit Sub
ElseIf IsNull(Me.Konu) Or Me.Konu = "" Then
MsgBox ("Konu Eksik!")
Exit Sub
End If




'ATOZ112
'AŞAĞIDAKİ KODLAR DAHİL EDİLMİŞTİR.








Dim MyForm As Form
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, MyForm.Name, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
    
'*******************************************
'ATOZ112
'AŞAĞIDAKİ KODLAR İPTAL EDİLMİŞTİR.
    
'Dim MyForm As Form
'Set MyForm = Screen.ActiveForm
'DoCmd.RunCommand acCmdSelectRecord
'DoCmd.PrintOut acSelection
End Sub

yukarıda yazılı kodları kullanmayı deneyiniz.eğer konunuzda mail gönderme durumu söz konusu değilse,bunu da beyan ediniz.

ayrıca;

Alıntı:e) Örnek uygulamanızın adını veya rar/zip adını “örnek”, “deneme”, “yeni microsoft Access veritabanı”, “database”, “proje”, “yeni klasör”, “soru” vs. isimlerle göndermeyiniz, kullanıcı adınızı ve/veya kısa başlık giriniz. 

Site Kuralları sayfasında ilgili yukarıdaki madde gereği lütfen,uygulama tanımlarken,bunlara da riayet etmeye gayret ediniz.teşekkürler.
bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task