• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hepsi Bir arada Mail atma Tablosu

M

McDregin

Katılım
2 Eylül 2011
Mesajlar
146
Excel Vers. ve Dili
Office Professional Plus 2016 / 32 Bit / Türkçe
Değerli uzman arkadaşlar,
forumdaki E-posta atma çalışmalarını inceledim.
Farklı Farklı isteklere göre çalışmalar olmuş.
Hepsi değerli hepsi güzel.
Fakat içlerinde basit anlamda bir E-Posta atma tablo bileşeni göremedim.
Bazılarındaki etken özellikleri alarak bir tablo yapısı oluşturdum.
Ticari kullanıma uygun.
Ana mantığı ;

***BU TABLODA ARZU EDİLEN YAZILI OLAN MAİL ADRESLERİNE BİR MACRO BUTONU İLE OTOMATIK MAİL ATMAK.
***BU İŞLEM İÇİN KONU YAZISINI VE MAİL İÇERİK YAZISINI YANDAKİ TANITIM YAZILAR SAYFASINDAN ALMASI
***AYRICA AYNİ SAYFADA BİR RESİM UZANTISI VAR İSE BUNU DA EKLEMESİ
***BU İŞLEMİ E-POSTA GÖNDER ONAY İKONU OLAN SATIRLARDAKİ MAİL ADRESLERİ İÇİN YAPMASI VE GÖNDERİM SONRASI TARİH & SAAT İŞLEYEREK GÖNDERİLDİ İKONU BELİRMESİ..

Bu tablo için gerekli macro yazılım hususunda uzman hocalarımızın yardımlarını rica ederim.
Şimdiden teşekkürler.
Kolay gelsin.
 

Ekli dosyalar

Son düzenleme:
. . .

Dosyanız ektedir.
...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
http://yadi.sk/d/gHXE41wFKh4mT
Genişletmek için tıkla ...

Kod: 
Sub KOD()
[COLOR="Green"]'MAİL GÖNDERİMİ BAŞLANGIÇ
'NOT: TOOLS-REFERENCES TIKLA
'MİCROSOFT OUTLOOK 12.0 İŞARETLİ OLMALI[/COLOR]

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

    Dim S1     As Worksheet
    Dim S2     As Worksheet
    Set S1 = Sheets("MÜŞTERİLER LİSTE")
    Set S2 = Sheets("TANITIM YAZILAR")

    Dim Fs     As Object
    Set Fs = CreateObject("Scripting.FileSystemObject")
    If Fs.FileExists(S2.Range("B17")) Then
        ek = S2.Range("B17")
    Else
        ek = ""
    End If

    For i = 3 To S1.[A65536].End(3).Row
        If S1.Cells(i, "U") = "Q" Then

            Dim xlOutlook As Object
            Dim xlMail As Object
            Set xlOutlook = CreateObject("Outlook.Application")
            Set xlMail = xlOutlook.CreateItem(0)

            With xlMail
                .to = S1.Cells(i, "O") & ";" & S1.Cells(i, "P")
                .CC = S1.Cells(i, "Q") & ";" & S1.Cells(i, "R")
                .BCC = S1.Cells(i, "S") & ";" & S1.Cells(i, "T")
                .Subject = S2.Range("B1")
                .Body = S2.Range("B3") & Chr(10) & S2.Range("B4") & Chr(10) & _
                        S2.Range("B5") & Chr(10) & S2.Range("B6") & Chr(10) & _
                        S2.Range("B7") & Chr(10) & S2.Range("B8") & Chr(10) & _
                        S2.Range("B9") & Chr(10) & S2.Range("B10") & Chr(10) & _
                        S2.Range("B11") & Chr(10) & S2.Range("B12") & Chr(10) & _
                        S2.Range("B13") & Chr(10) & S2.Range("B14") & Chr(10) & _
                        S2.Range("B15")
                If ek <> "" Then
                    .Attachments.Add ek
                End If

                .Importance = 2
                .Save
                [COLOR="Green"]'.Display ' Mail Görüntüle[/COLOR]
                .Send  '[COLOR="Green"] Gönder[/COLOR]
            End With
            S1.Cells(i, "V") = Now
            S1.Cells(i, "W") = "J"
        End If
    Next i

    Set xlMail = Nothing
    Set xlOutlook = Nothing

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
    MsgBox " B i t t i "
End Sub

. . .
 

Ekli dosyalar

Üstad eline emeğine sağlık 0n numara olmuş.
Yanlız Bcc bölümünü test mailin attım kendime göremedim.
Bir kontrol edermisin.
Ben mi bir şey atladım.
Tüm mail bölümlerine kendi mail adresimi yazarak gönderdim ama...
Teşekkürler.
 
. . .

Gizli mail adreslerini S ve T sütunlarından alıyor.
Deneme yaptım. Ayırt edebilmek için hepsinde farklı mail adreslerini kullandım. Gizli bilgi adresine mail geldi.

. . .
 
Anladım Hocam.
Tek Bcc yi bıraktım normal olarak geldi.
Yani ekstradan Kime + Bilgi + Gizli olarak değil direkt Kimden olarak ve "Bu ileti Yüksek Önem Düzeyinde Gönderilmiş" yazısı ile geldi.
Anladım.
Bcc gönderim mantığı bu şekilde çalışıyor demek.
Bcc göndermişliğim çok ama ilk defa Kendime Gizli aldım.. :)
Tekrar Teşekkürler.
 
Ek li dosyanın özelliğine göre sonuna .xls veya .jpg yazmak gerekiyor sanırım.
Doğru değil mi ?
 
. . .

Mail ekine klasör eklenemez. Bu outlook ile ilgili bir kural.
Bu yüzden uzantısı olması gerekiyor.
PDF XLS RAR vs.
Tespitiniz doğru.

. . .
 
Hüseyin hocam merhaba,
Bu sisteme haricen kimden bölümü ekleyebili rmiyiz.
Sistem otomatik olarak Varsayılan üzerinden atma yapısında.
Fakat tanıtım mail için info uzantılı filan kullanacağım. Sistem de sabit olmayan bir mail..
Bir yere gönderici mail tanımlayabilir miyiz ?
Mümkün müdür ?
Teşekkürler.
 
merhabalar,

Aradım ama bulamadım sanırım,

aradığım şu ... =eğer(a1-a2=3; e-mail göndersin istiyorum


mümkünmüdür.
Yani koşul sağladığında e-mail göndermesini istiyorum?
 
McDregin' Alıntı:
Hüseyin hocam merhaba,
Bu sisteme haricen kimden bölümü ekleyebili rmiyiz.
Sistem otomatik olarak Varsayılan üzerinden atma yapısında.
Fakat tanıtım mail için info uzantılı filan kullanacağım. Sistem de sabit olmayan bir mail..
Bir yere gönderici mail tanımlayabilir miyiz ?
Mümkün müdür ?
Teşekkürler.
Genişletmek için tıkla ...
. . .

Gönderim yapmak istediğiniz mail adresi outlookunuzda kurulu olmalı. Gönderim yapmadan önce o hesabı varsayılan yapmanız gerekiyor.

. . .
 
ucanterlikk' Alıntı:
merhabalar,
Aradım ama bulamadım sanırım,
aradığım şu ... =eğer(a1-a2=3; e-mail göndersin istiyorum
mümkünmüdür.
Yani koşul sağladığında e-mail göndermesini istiyorum?
Genişletmek için tıkla ...
. . .

Kodları incelediyseniz zaten bir şarta göre gönderim yapıyor.
If S1.Cells(i, "U") = "Q" Then

if range("A1")-range("A2")=3 then olarak kullanabilirsiniz.

. . .
 
teşekkürler.

çok teşekkür ederim ama ,
birşey daha sorabilirmiyim.

01.02.2014 ve 04.02.2014 arasındaki fark 3 olunca e-mail gelecek ya,

excell kapalıyken dosya hiç açılmasa o tarihler yine çalışır mı?
 
ucanterlikk' Alıntı:
teşekkürler.
çok teşekkür ederim ama ,
birşey daha sorabilirmiyim.
01.02.2014 ve 04.02.2014 arasındaki fark 3 olunca e-mail gelecek ya,
excell kapalıyken dosya hiç açılmasa o tarihler yine çalışır mı?
Genişletmek için tıkla ...
. . .

Yukarıdaki kodlar mail gelmesi için değil, mail göndermek içindir.
Excel tablosu açık değilse ve kodlar çalıştırılmazsa gönderim yapmayacaktır.

. . .
 
Hüseyin Hocam selam,
Ek dosyayı 2 adede çıkarmak için kodda nasıl bir değişiklik yapmak gerekir ?
 
Hüseyin Hocam Selamlar,

benim sorum bu muhteşem dosya üzerine, eğer biz birden fazla farklı mail adresine,farklı farklı ekler ekleyerek (pdf formatında) mail atmak istersek nasıl bir işlem yapmamız gerekir?

Şöyle izah edeyim;
örneğin;

müşteriler listesine sırayla , a-b-c-d-e müşterilerine; yine eş sıralama ile 1,2,3,4 nolu pdf'leri seri olarak yollamak istiyorum.

Nasıl yapabilirim.

Kıymetli yardımlarınız ricadır.

Teşekkür ederim.
 
cifciugur' Alıntı:
Hüseyin Hocam Selamlar,

benim sorum bu muhteşem dosya üzerine, eğer biz birden fazla farklı mail adresine,farklı farklı ekler ekleyerek (pdf formatında) mail atmak istersek nasıl bir işlem yapmamız gerekir?

Şöyle izah edeyim;
örneğin;

müşteriler listesine sırayla , a-b-c-d-e müşterilerine; yine eş sıralama ile 1,2,3,4 nolu pdf'leri seri olarak yollamak istiyorum.

Nasıl yapabilirim.

Kıymetli yardımlarınız ricadır.

Teşekkür ederim.
Genişletmek için tıkla ...
. . .

Örnek dosya yüklerseniz üzerinde çalışalım.

. . .
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst