Soru PDF Yap Mail Olarak Gönder

[Hsn55]

İyi akşamlar;
Ekli dosyamda PDF sayfasında ki son dolu satıra kadar olan hücrelerdeki verileri buton ile PDF dosyayı yapıp ek olarak E7 hücresi gönderen, E8 hücresi Alıcı, E9 hücresi Konu ve 10 Hücresi içerik olarak mail olarak göndermek istiyorum. Bu konuda desteğinize ihtiyacım var. Yardımcı olursanız sevinirim saygılar.

İndir PUHANTAJ

Dosyayı indir PUHANTAJ

dosya.co

 

[Korhan Ayhan]

Daha önce forumda bu konu işlenmişti.

PDF olarak mail göndermek.

merhabalar ekteki excelde tek sayfa bulunmaktadır. Bir buton ve makro yardımıyla o sayfayı pdf olarak ataçlayıp outlook üzerinden göndermek istiyorum. Fakat direk göndermeyeceğim. Görüntüleyip birşeyler yazıp ben kendim göndereceğim. Mümkünse mail imzamında otomatik gelmesi güzel olur. EKLİ DOSYA

www.excel.web.tr

ilgili sayfayı belirlenen sütundaki mail adreslerine PDF gönder

Anasayfada bulunan mail adreslerine sadece "yazdir" sayfasını PDF olarak göndermek istiyorum. Ekli dosyada ".xlsx" olarak gönderme makrosu var. Düzenleme şansımız var mıdır arkadaşlar.

www.excel.web.tr

Buton ile otomatik pdf çevir/kaydet ve mail gönder.

Arkadaşlar Merhaba, Ekte göndermiş olduğum dosyada sağda oluşturmuş olduğum butonlar ile aşağıdaki işlemleri oluşturmaya çalışıyorum. 1.Buton (Create Pdf File ) taralı bölgeye butonların altında oluşturmuş olduğum kutucuklara yazacağım dosya ismini verecek pdf çevierecek ve masa üstüne kayıt...

www.excel.web.tr

pdf yaparak otomatik mail gönderme

Herkese merhaba. Üzerinde çalıştığım excel dosyasını pdf olarak outlook üzerinden makro aracılığıyla otomatik olarak göndermek istiyorum. Kod yazma konusunda pek bilgim yok internette ve kıymetli forumumuzda yaptığım araştırma neticesinde otomatik mail gönderme konusunda tam olarak işimi gören...

www.excel.web.tr

Makro ile pdf ve HTLM ile Mail atma

Merhaba Arkadaşlar Aşağıdaki mail ata biliyorum. ancak Sablon1 dekini de PDF olarak göndermek istiyorum. şimdiden yardımlarınız için teşekkürler Mail olarak ata biliyorum. Aşağıdaki mailde PDF olarak göndermek istiyorum.

www.excel.web.tr

toplu olarak pdf mail atma

Kolay gelsin, Bir konuda daha bilgi ve yardımlarınıza ihtiyacım var. Ekli excelde bir fiyat teklif formatı var.İçerisindeki alanlara açıklamaları yazdım.Belirli sabit bir yazı formatı var ve şirket logosu ekli.Toplam 2 sayfa olucak.Bilgileri gönderen ve firmalar sayfalarından alacak. Gönderen...

www.excel.web.tr

 

[Hsn55]

Korhan bey merhabalar;
Ekli dosyada uyarlamış olduğum dosyada ki makro ile;
1. Buton Masa Üstüne PDF dosyası oluşturuyorum.
2.Buton ile Bu dosyayı seçiyorum.
3.Buton ile ise bu seçmiş olduğum dosyayı gönderiyorum.
Benim yapmak istediğim bu işlem tek butona düşürüp Masa üstüne PDF dosyası oluşturmadan ve dosya seçme işlemi yapmadan Mail Gönder butonuna bastığımız zaman sadece PDF sayfasını son satırdaki veriye göre Veri sayfasındaki E7 hücresindeki isimle PDF oluşturup E8 hücresinde mail adresi yazılı olan kişiye gönderebilir miyiz?
Dosya link :

İndir MAİL xlsb

Dosyayı indir MAİL xlsb

dosya.co

 

[Korhan Ayhan]

Verdiğim linkleri inceleyiniz. Benzer uygulamaların olması gerekiyor.

 

[Hsn55]

Diğer işlemleri yaptım. Fakat dosyayı kaydetmeden direk olarak PDF olarak gönderilmesini çözemedim

 

[Korhan Ayhan]

Aşağıdaki yöntemle tüm makrolarınızı peşpeşe çalıştırabilirsiniz.

Sub Tumunu_Calistir()
Call Birinci Makronuzun Adı
Call İkinci Makronuzun Adı
Call Üçüncü Makronuzun Adı
End Sub

 

[Hsn55]

Call İkinci Makroda dosya seçme yolu var .Yine dosya seçmeye işlemi yapmak gerekiyor.

 

[Korhan Ayhan]

Dosyanın adını E9 hücresinden aldırmışsınız.

Orada Tekkeköy yazıyor. Dosyanızın adı bu mu olacak?

 

[Hsn55]

Evet

 

[Korhan Ayhan]

Sayfadaki TextBox nesnesinde ise aşağıdaki isim yazıyor.

GELEMEN -PUHANTAJ CETVELİ.pdf

Tam olarak dosyanızın ismi ne olacak yazar mısınız?

 

[Hsn55]

Korhan Bey dosyanın ismini veri sayfasında ki E7 hücresinden alacak

 

[Korhan Ayhan]

Kendinize göre düzenlersiniz.

Bir butona kodu tanımlayp kullanabilirsiniz.

Diğer kodlarınızı silebilirsiniz.

Option Explicit

Sub MAIL_GONDER()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim Uygulama As Object, Yeni_Mail As Object
    Dim Yol As String, Dosya_Adi As String, Son As Long
   
    Set S1 = Sheets("PDF")
    Set S2 = Sheets("VERİ")
   
    Yol = ThisWorkbook.Path & Application.PathSeparator
    Dosya_Adi = S2.Range("E3").Value & "-" & S2.Range("E7").Value & ".pdf"

    Son = S1.Cells(S1.Rows.Count, "B").End(xlUp).Row
   
    S1.Range("A1:AR" & Son).ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Yol & Dosya_Adi, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
   
    On Error Resume Next
    Set Uygulama = GetObject(, "Outlook.Application")
    On Error GoTo 0
  
    If Uygulama Is Nothing Then Call Shell("Outlook.exe", vbHide)
  
    Set Uygulama = CreateObject("Outlook.Application")
    Set Yeni_Mail = Uygulama.CreateItem(0)

    With Yeni_Mail
        .Display
        .To = S2.Range("E8").Value
        .Subject = S2.Range("E9").Value
        .HtmlBody = S2.Range("E10").Value & vbCr & .HtmlBody
        .Attachments.Add Yol & "\" & Dosya_Adi
        .Save
        .Send
    End With
   
    Set S1 = Nothing
    Set S2 = Nothing
    Set Uygulama = Nothing
    Set Yeni_Mail = Nothing
   
    MsgBox "Mail gönderilmiştir.", vbInformation
End Sub

 

[Hsn55]

Korhan bey şöyle bir uyarı çıkıyor. "Bir program sizin adınıza e-posta iletisi göndermeye çalışıyor. Bu beklenmiyordu, Reddet 'e tıklayın ve virüsten koruma yazılımınızın güncel olduğunu doğrulayın. " Neden olabilir ?

 

[Korhan Ayhan]

Hangi Excel sürümünü kullanıyorsunuz?

 

[Hsn55]

Office 2010 sürüm Korhan bey

 

[Korhan Ayhan]

Eğer 2003 kullansaydınız uyarı için normal diyebilirdim. Ama bende 2010 versiyonda denemiştim. Dediğiniz uyarıyı almıyorum.

Peki sizin paylaştığınız kod bu uyarıyı veriyor muydu?

 

[Hsn55]

Vermiyordu Hocam

 

[Korhan Ayhan]

Otomatik gönderimi virüs saldırısı gibi algılayabiliyor.

Bu durumda benim önerdiğim kod bloğunda aşağıdaki satırı bir sonraki satır gibi değiştirip deneyiniz.

.Send

Olması gereken;

SendKeys "%G", True

 

[Korhan Ayhan]

Ek olarak dosyanızda PUHANTAJ olarak kullanım yapmışsınız. Doğrusu PUANTAJ olması gerekir. Düzeltirseniz iyi olur.

 

[Hsn55]

Korhan bey yine aynı uyarıyı veriyor