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 19-04-2017, 17:55   #1
Bsybsy
 
Giriş: 19/04/2017
Şehir: İstanbul
Mesaj: 5
Excel Vers. ve Dili:
Ingilizce excel 2016
Varsayılan excel sheetin belli bir bolumunu coklu mail atma

Selam,

A3 hucresinden asagiya dogru 50 satir boyunca devam eden mail adreslerine ayri ayri ilgili mail adresinin saginda 50 sutun ( c1, d1, e1 ... Olarak devam ediyor- bu arada rakamlarin uzerindeki basliklarda alinmali) boyunca devam eden bilgileri outlook ile excel eki olarak yollamak istiyorum. Bu arada b sutununda yer alan konu kisminin mailin konusunda yazili olmasi ve mailin icerik kisminda da kucuk bir aciklama eklemeliyim.

Excelin icine yerlestirilmis gonder butonuna bastigimda sirayla ilgili maile sadece kendisinin rakamlarini mail atabilirsem super olur.

Destek olabilecek, bu makroyu yazabilecek exceli konusturan bir prof. cikarsa cook mutlu,mesut, bahtiyar olurum.)

Excelim ingilizcedir.
Saygilar
Bsybsy Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-04-2017, 18:36   #2
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 958
Excel Vers. ve Dili:
2010-2016
Varsayılan

Örnek dosya eklerseniz yardımcı olmaya çalışalım. Ek dosya excel formatında mı istiyorsunuz, yoksa mailin gövdesinde yapıştırılacak şekilde mi istiyorsunuz.
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-04-2017, 18:56   #3
Bsybsy
 
Giriş: 19/04/2017
Şehir: İstanbul
Mesaj: 5
Excel Vers. ve Dili:
Ingilizce excel 2016
Varsayılan Bsybsy excel sheetin belli bir bolumunu coklu mail atma

Selam
Ek dosya mailin ekinde excel olarak olursa cok iyi olur..
Bsybsy Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-04-2017, 19:47   #4
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 958
Excel Vers. ve Dili:
2010-2016
Varsayılan

Başka üstat bakmazsa yarın gün içerisinde kod eklerim.
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-04-2017, 22:23   #5
Bsybsy
 
Giriş: 19/04/2017
Şehir: İstanbul
Mesaj: 5
Excel Vers. ve Dili:
Ingilizce excel 2016
Varsayılan

Cok minnettar olurum..tsk ler.
Bsybsy Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-04-2017, 10:10   #6
hoguz2
 
Giriş: 06/10/2004
Şehir: Antalya
Mesaj: 153
Excel Vers. ve Dili:
MSOffice 2010 TR
Varsayılan

merhaba,

Bu işle daha once ugrasmis biri olarak bir konuyu daha düşünmenizi tavsiye ederim.

outlook dan ya da her neyse bir mailden 50-60 kişiye aynı anda ya da arkasi arkasina ayrı ayrı mailler dahi olsa gondermeye kalktiginiz zaman mailleriniz spam a duser ve bunu sık sık yapmaya devam ederseniz kara liste bile olabilir. normal mailleriniz bile spam olur.

dolayısıyla bence kodlar su sekilde dusunulmeli : zamanlanmis gorevle belli araliklarla calistirarak ya da Application.OnTime vs yontemlerle mailler parti parti gonderilmesi gerekir. Ayrica outlook unda guvenlik ayarini dusurmek gerekecektir. VBA dan outlook a emir gonderdiginizde dis program otomatik mail gondermeye calisiyor diye uyari verir...

iyi calismalar,
hoguz2 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-04-2017, 10:51   #7
Bsybsy
 
Giriş: 19/04/2017
Şehir: İstanbul
Mesaj: 5
Excel Vers. ve Dili:
Ingilizce excel 2016
Varsayılan

Selam
Peki makro yazabilir misiniz dedigim sekilde
Bsybsy Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-04-2017, 13:24   #8
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 958
Excel Vers. ve Dili:
2010-2016
Varsayılan

Örnek dosyanızı eklerseniz daha iyi olacaktı. Aşağıdaki kodlar ile deneyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub ASKM_Mail_Secim()
    Dim SecimAlani As Range
    Dim Kitap1 As Workbook
    Dim Kitap2 As Workbook
    Dim GeciciDosyaYeri As String
    Dim GeciciDosyaAdi As String
    Dim Uzanti As String
    Dim FileFormatNum As Long
    Dim OutApp As Object
    Dim OutMail As Object
    Dim SonSat As Long

SonSat = Range("A" & Rows.Count).End(xlUp).Row


For i = 2 To SonSat
    Set SecimAlani = Nothing
    On Error Resume Next
    Set SecimAlani = Range("C1:J1,C" & i & ":J" & i) 'C ile J aralığını mail atıyor.
    On Error GoTo 0
    Alici = Cells(i, "B").Value

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    Set Kitap2 = ActiveWorkbook
    Set Kitap1 = Workbooks.Add(xlWBATWorksheet)
    SecimAlani.Copy
    With Kitap1.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial Paste:=xlPasteValues
        .Cells(1).PasteSpecial Paste:=xlPasteFormats
        .Cells(1).Select
        Application.CutCopyMode = False
    End With

    GeciciDosyaYeri = Environ$("temp") & "\"
    GeciciDosyaAdi = "Seçili Alan " & Kitap2.Name & " " _
                 & Format(Now, "dd-mmm-yy h-mm-ss")

    If Val(Application.Version) < 12 Then
        Uzanti = ".xls": FileFormatNum = -4143
    Else
        Uzanti = ".xlsx": FileFormatNum = 51
    End If

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With Kitap1
        .SaveAs GeciciDosyaYeri & GeciciDosyaAdi & Uzanti, _
                FileFormat:=FileFormatNum
        On Error Resume Next
        With OutMail
            .To = Alici
            .CC = ""
            .BCC = ""
            .Subject = "Gönderilecek Olan Mailin Konusu"
            .Body = "Mail içerisinde eklenecek ifadeler..."
            .Attachments.Add Kitap1.FullName
            
            '.Display 'Bekletmek için
            .Send 'Direkt göndermek için
        End With
        On Error GoTo 0
        .Close SaveChanges:=False
    End With

    Kill GeciciDosyaYeri & GeciciDosyaAdi & Uzanti
    Cells(i, "L").Value = "Mail Gönderildi."
    
    Set OutMail = Nothing
    Set OutApp = Nothing
    
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    Application.Wait Now + TimeValue("00:00:03")
Next
MsgBox "İşlem Tamam!...", vbInformation, "ASKM"
End Sub
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-04-2017, 20:25   #9
Bsybsy
 
Giriş: 19/04/2017
Şehir: İstanbul
Mesaj: 5
Excel Vers. ve Dili:
Ingilizce excel 2016
Varsayılan

Cok tesekkurler..super..
Bsybsy Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 06:27   #10
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 958
Excel Vers. ve Dili:
2010-2016
Varsayılan

Rica ederim.
__________________
excel 2010- türkçe
askm Ç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 05:43


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - invest in turkey - Hurda - Tekirdağ Samsung - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Baskı- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat- Çorlu Sürücü Kursu- Çorlu Rehabilitasyon- Edirne Su Arıtma- Çorlu Perde Yıkama-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden