Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 14-05-2018, 14:21   #1
Sinan2618
Altın Üye
 
Giriş: 17/08/2016
Mesaj: 109
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan Toplu mail gönderiminde farklı adreslere farklı dosya eki göndermek

Merhaba,

Benim mail olarak göndermem gereken 550'ye yakın excel dosyam var amacım sabit bir önyazı ile cc'ye kendi mailimi yazarak bcc şekilde tüm dosyaları tanımladığım farklı mail adresilerine göndermek. örneğin dosya1'i yanına yazacağım maile dosya2'yi yine sadece onun yanına yazacağım maile göndermek istiyorum.

Önyazım ve mail imzam sabit olacak sadece dosyaları doğru ekleyecek bir kod var mıdır?
Sinan2618 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-05-2018, 16:15   #2
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 23,234
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Merhaba,

Bu konu forumda işlendi. Lütfen arama yapınız.
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-05-2018, 16:24   #3
Sinan2618
Altın Üye
 
Giriş: 17/08/2016
Mesaj: 109
Excel Vers. ve Dili:
2013 Türkçe
Unhappy

Alıntı:
Korhan Ayhan tarafından gönderildi Mesajı Görüntüle
Merhaba,

Bu konu forumda işlendi. Lütfen arama yapınız.
Korhan bey merhaba,

oldukça fazla aradım ancak bulamadım bulduklarımda ek dosya sabit 1 adet olup çoklu mail adresine gönderim seçeneği vardı. Çoklu mail'e farklı dosya eki göndermeyi bulamadım
Sinan2618 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-05-2018, 17:04   #4
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 23,234
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Örnek dosya ekleyiniz.
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-05-2018, 21:38   #5
Sinan2618
Altın Üye
 
Giriş: 17/08/2016
Mesaj: 109
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Alıntı:
Korhan Ayhan tarafından gönderildi Mesajı Görüntüle
Örnek dosya ekleyiniz.

Özyazım sabit olacak ister excel içerisine isterse koda ekleyebiliriz. tek istediğim benim eşleştirmiş olduğum mail adresine eşleştirdiğim dosyanın gönderilmesi. ayrı ayrı maillere göndermem gereken 500'e yakın dosyam var desteğinizi rica ederim.
Eklenmiş Dosyalar
Dosya Türü: xlsx Kitap1.xlsx (9.4 KB, 21 Görüntülenme)
Sinan2618 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-05-2018, 01:07   #6
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 23,234
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Deneyiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Toplu_Mail_Yolla()
    Dim Uygulama As Object, Yeni_Mail As Object
    Dim S1 As Worksheet, Mesaj As String, Imza As String, Signature As String
    Dim Cevap As Integer, Son As Long, Veri As Range
    
    Mesaj = "Mail gönderim işlemini onaylıyor musunuz?"
    Cevap = MsgBox(Mesaj, vbOKCancel + vbQuestion)
    If Cevap = vbOK Then
        Yol = Environ("appdata") & "\Microsoft\Signatures\"
        Imza = Dir(Yol & "*.htm")
        
        If Imza <> "" Then
            Signature = Get_Signature(Yol & Imza)
        Else
            Signature = ""
        End If
        
        Application.ScreenUpdating = False
                
        Set S1 = Sheets("Sayfa1")
        Set Uygulama = CreateObject("Outlook.Application")
        
        Son = S1.Cells(Rows.Count, 1).End(3).Row
        
        For Each Veri In S1.Range("A2:A" & Son)
            If S1.Cells(Veri.Row, "A") <> "" And S1.Cells(Veri.Row, "B") <> "" And S1.Cells(Veri.Row, "C") <> "" Then
                Set Yeni_Mail = Uygulama.CreateItem(0)
                With Yeni_Mail
                    .To = S1.Cells(Veri.Row, "B").Value
                    .Cc = "Kendi Mail Adresinizi Yazınız"
                    .Subject = "Mail Konusunu Yazınız"
                    .HTMLBody = S1.Cells(Veri.Row, "A").Value & "<br>" & Signature
                    .Attachments.Add S1.Cells(Veri.Row, "C").Value
                    '.Display
                    .Send
                    Say = Say + 1
                End With
                Set Yeni_Mail = Nothing
            End If
        Next
        
        Set Uygulama = Nothing
        
        Application.ScreenUpdating = True
        
        MsgBox "İşleminiz tamamlanmıştır." & vbNewLine & "Toplam gönderilen mail sayısı ; " & Say
    End If
End Sub

Function Get_Signature(ByVal Imza_Dosyasi As String) As String
    Dim Dosya_Sistemi As Object
    Dim Dosya As Object
    Set Dosya_Sistemi = CreateObject("Scripting.FileSystemObject")
    Set Dosya = Dosya_Sistemi.GetFile(Imza_Dosyasi).OpenAsTextStream(1, -2)
    Get_Signature = Dosya.Readall
    Dosya.Close
End Function
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-05-2018, 16:32   #7
Sinan2618
Altın Üye
 
Giriş: 17/08/2016
Mesaj: 109
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Hocam Ellerinize sağlık Tam aradığım şey oldu
Sinan2618 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-05-2018, 12:23   #8
metince54
 
Giriş: 08/12/2009
Mesaj: 56
Excel Vers. ve Dili:
türkçe
Varsayılan

Alıntı:
Sinan2618 tarafından gönderildi Mesajı Görüntüle
Hocam Ellerinize sağlık Tam aradığım şey oldu
hocam bunu kod görüntüleye yapıştırıp oradan mı çalıştırma yapacaz
metince54 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-05-2018, 23:41   #9
Sinan2618
Altın Üye
 
Giriş: 17/08/2016
Mesaj: 109
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Alıntı:
metince54 tarafından gönderildi Mesajı Görüntüle
hocam bunu kod görüntüleye yapıştırıp oradan mı çalıştırma yapacaz
Kod görüntüle dedikten sonra insert modulü deyip kodu yapıştırın kaydettikten sonra excelde Ekle > Şekiller kısmında kare veya yuvarlanmış şekil ekleyin içine gönder butonu vs yazıp sağ tıkladıktan sonra makro ata ile bu kodu tanımlayın butona tıklayınca işlemi yapıyor. Eğer takılırsanız örnek dosyada oluşturup eklerim.
Sinan2618 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-05-2018, 08:51   #10
u.L.a.s
 
Giriş: 07/09/2008
Şehir: İstanbul
Mesaj: 573
Excel Vers. ve Dili:
2010 İngilizce
Varsayılan

örnek excel dosyasını bizlerinde göreceği şekilde buraya yükleyebilir misiniz. bu kod nasıl bir şablona göre hazırlandı görmek incelemek istiyorum. Teşekkür ederim
u.L.a.s Ç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 04:34


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- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat- Çorlu Su Arıtma- Çorlu Kompresör- İstanbul İnşaat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden