Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 23-01-2018, 19:26   #1
mustafakoker
Altın Üye
 
Giriş: 20/06/2008
Şehir: İstanbul/Maltepe
Mesaj: 644
Excel Vers. ve Dili:
Office 2010
Varsayılan Excel Pdf Dosyası Kayıt Yapıp Mail göndersin

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.
Eklenmiş Dosyalar
Dosya Türü: rar PDF yap mail gönder.rar (283.4 KB, 8 Görüntülenme)
__________________
Yolu,
Doğru Olanın.....
Yüküde,
Ağır Olur....!
mustafakoker Çevrimdışı   Alıntı Yaparak Cevapla
Eski 23-01-2018, 22:44   #2
Tevfik_Kursun
Altın Üye
 
Giriş: 30/07/2012
Şehir: Antakya
Mesaj: 1,195
Excel Vers. ve Dili:
2010 - Türkçe 64 Bit
Varsayılan

Merhaba,
Asri Akdeniz hocanın sitesini ziyaret ediniz. www.asriakdeniz.com
İstediğinizden daha güzelini orada bulacaksınız
İyi çalışmalar
Tevfik_Kursun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-01-2018, 09:15   #3
mustafakoker
Altın Üye
 
Giriş: 20/06/2008
Şehir: İstanbul/Maltepe
Mesaj: 644
Excel Vers. ve Dili:
Office 2010
Unhappy

Alıntı:
Tevfik_Kursun tarafından gönderildi Mesajı Görüntüle
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.
__________________
Yolu,
Doğru Olanın.....
Yüküde,
Ağır Olur....!
mustafakoker Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-01-2018, 10:25   #4
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: K.Maraş
Mesaj: 1,975
Excel Vers. ve Dili:
2010-2016
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
excel 2010- türkçe

Bu mesaj en son " 24-01-2018 " tarihinde saat 10:31 itibariyle askm tarafından düzenlenmiştir....
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 24-01-2018, 14:26   #5
mustafakoker
Altın Üye
 
Giriş: 20/06/2008
Şehir: İstanbul/Maltepe
Mesaj: 644
Excel Vers. ve Dili:
Office 2010
Varsayılan

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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.
__________________
Yolu,
Doğru Olanın.....
Yüküde,
Ağır Olur....!
mustafakoker Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-01-2018, 14:46   #6
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: K.Maraş
Mesaj: 1,975
Excel Vers. ve Dili:
2010-2016
Varsayılan

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")
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 24-01-2018, 16:38   #7
mustafakoker
Altın Üye
 
Giriş: 20/06/2008
Şehir: İstanbul/Maltepe
Mesaj: 644
Excel Vers. ve Dili:
Office 2010
Varsayılan

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
__________________
Yolu,
Doğru Olanın.....
Yüküde,
Ağır Olur....!
mustafakoker Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-01-2018, 16:41   #8
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: K.Maraş
Mesaj: 1,975
Excel Vers. ve Dili:
2010-2016
Varsayılan

Kaydediyor. Gönderdikten sonra pdf evrağı siliyor. Kill dosyam komutu ile.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 24-01-2018, 17:07   #9
mustafakoker
Altın Üye
 
Giriş: 20/06/2008
Şehir: İstanbul/Maltepe
Mesaj: 644
Excel Vers. ve Dili:
Office 2010
Varsayılan

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
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
__________________
Yolu,
Doğru Olanın.....
Yüküde,
Ağır Olur....!
mustafakoker Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-01-2018, 17:22   #10
mustafakoker
Altın Üye
 
Giriş: 20/06/2008
Şehir: İstanbul/Maltepe
Mesaj: 644
Excel Vers. ve Dili:
Office 2010
Varsayılan

.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
__________________
Yolu,
Doğru Olanın.....
Yüküde,
Ağır Olur....!
mustafakoker Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 06:17


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden