Excel Pdf Dosyası Kayıt Yapıp Mail göndersin

[mustafakoker]

Arkadaşlar merhaba,
sitede çok araştırdım fakat attamech olayını beceremedim.

ekli dosyayı siteden indirdim benim dosyam çok büyük boylu olduğu için ekleyemedim ama ekli dosya da yapmak istediklerimi yazdım.

İstediğim mail gönder butonuna bastığımda ekli dosyadaki gibi
mail adresi konu cc mail adresi bilgilerini sayfadan alacak
bu excel hangi klasörde ise o klasörün içine tedarikçi firma ismi adıyla .PDF olarak kayıt yapacak sonra outlook ile o pdf dosyasını P18-P19 daki mail adreslerine ek olarak gönderecek.

 

[Tevfik_Kursun]

Merhaba,
Asri Akdeniz hocanın sitesini ziyaret ediniz. www.asriakdeniz.com
İstediğinizden daha güzelini orada bulacaksınız
İyi çalışmalar

 

[mustafakoker]

Merhaba,
Asri Akdeniz hocanın sitesini ziyaret ediniz. www.asriakdeniz.com
İstediğinizden daha güzelini orada bulacaksınız
İyi çalışmalar

Tevfik bey merhaba
Asri hocamızın sayfasını inceledim. Hatta kendisinin BA BS excel tablosunu kullanmaktayım kendisine bu vesile ile bir kez daha teşekkür ederim.

Fakat benim istediğim konu hakkında yardımcı olacak forum üyelerinden destek bekliyorum.

 

[askm]

Sub ASKM_PDF_MAIL_GONDER()
    Dim Outlook_App As Object
    Dim Outlook_Mail As Object
    
    Dim dosya As String
    Set Outlook_App = CreateObject("Outlook.Application")
    Dim alan As Range
    sonsatir = Cells(Rows.Count, "A").End(3).Row
    Set alan = Range("A1:K50")
    
    dosya = ThisWorkbook.Path & "\" & Format(Now, "dd-mm-yy h-mm-ss")
    alan.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=dosya, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

Application.Wait Now + TimeValue("00:00:05")
dosyam = dosya & ".pdf"
            Set Outlook_Mail = Outlook_App.CreateItem(0)
            With Outlook_Mail
                .Attachments.Add dosyam
                .To = Range("P18")
                .CC = Range("P19")
                .Subject = Range("P17")
                .display
                Kill dosyam
                .Save
'                .send

            End With
    
    Set S1 = Nothing
    Set Outlook_Mail = Nothing
    Set Outlook_App = Nothing

    MsgBox "Gönderdik gitti..", vbInformation, "ASKM"
    
End Sub

 

[mustafakoker]

Sub ASKM_PDF_MAIL_GONDER()
    Dim Outlook_App As Object
    Dim Outlook_Mail As Object
    
    Dim dosya As String
    Set Outlook_App = CreateObject("Outlook.Application")
    Dim alan As Range
    sonsatir = Cells(Rows.Count, "A").End(3).Row
    Set alan = Range("A1:K50")
    
    dosya = ThisWorkbook.Path & "\" & Format(Now, "dd-mm-yy h-mm-ss")
    alan.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=dosya, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

Application.Wait Now + TimeValue("00:00:05")
dosyam = dosya & ".pdf"
            Set Outlook_Mail = Outlook_App.CreateItem(0)
            With Outlook_Mail
                .Attachments.Add dosyam
                .To = Range("P18")
                .CC = Range("P19")
                .Subject = Range("P17")
                .display
                Kill dosyam
                .Save
'                .send

            End With
    
    Set S1 = Nothing
    Set Outlook_Mail = Nothing
    Set Outlook_App = Nothing

    MsgBox "Gönderdik gitti..", vbInformation, "ASKM"
    
End Sub

kodlar için teşekkür ederim;

D17 deki firma ismi ile önce bu excelin kayıtlı olduğu klasöre pdf oluştursa sonra bu oluşturduğu Pdf dosyasını maile firma ismi ile gönderse hangi kodları değiştirmem gerekiyor

yani gönderdiğim PDF dosyalarını Firma isimleri ile saklamak istiyorum


dosya = ThisWorkbook.Path & "\" & Format(Now, "dd.mm.yyyy")

bu yol sadece tarih şeklinde pdf e dosya ismi veriyor D17 deki firma ismi ile pdf oluşması için ne yapabilirim.

 

[askm]

dosya = ThisWorkbook.Path & "\" & Format(Now, "dd-mm-yy h-mm-ss")
Burada zaten dosyanın olduğu klasörde işlem yapıyor. Burada ismin önüne D17 eklemek isttiyorsanız dosya = ThisWorkbook.Path & "\" & [D17] & Format(Now, "dd-mm-yy h-mm-ss")

 

[mustafakoker]

dosya = ThisWorkbook.Path & "\" & [C17] & Format(Now, "dd-mm-yy h-mm-ss")
bu yol doğru fakat
oluşturduğu PDF dosyasını Kendi klasörünün içine kaydetmiyor drek outlook e ekleyip gönderiyor

 

[askm]

Kaydediyor. Gönderdikten sonra pdf evrağı siliyor. Kill dosyam komutu ile.

 

[mustafakoker]

Kaydediyor. Gönderdikten sonra pdf evrağı siliyor. Kill dosyam komutu ile.

Teşekkürler
son olarak mailin gövdesine

Firmamızın ihtiyacı olan aşağıdaki malzemeleri satınalmak üzere teklifinizi almak istiyoruz. Teslim süresini, birim fiyatlarını, tarafımıza bildirmenizi, firmanızı temsil ve yetkili olanlarca imzalanmış olarak iadesini rica eder, başarılar dileriz. Saygılarımızla...

gibi metini yazdırmak istiyorum
bunun için kod öneriniz var mı?

.HTMLBody = "Sayın, " & alan.Range("C17") & "<BR>" & "Muhasebe Servisi Dikkatine!" & "<BR><BR> gibi

 

[mustafakoker]

.Body = "Bu e-mail deneme amacıyla gönderilmiştir."
bir kod buldum bunun içini düzelterek işimi çözeceğim teşekkürler yardımların için