[Yardım]  Seçili Alanı Mail Olarak Gönderme

Excel ile MS Outlook, Outlook Express, Gmail vb. programlar ile mail işlemleri hakkındaki bölüm.

Seçili Alanı Mail Olarak Gönderme

İleti#1)  alisrn » 16 Kas 2015 10:59

Merhaba,
VBA'de outlook kullanımı ile ilgili biraz araştırma yaptım ve şu an vba'de belirlediğim alanı mail olarak gönderebiliyorum. Ancak istiyorum ki bir alanı seçeyim, ve bir tuşa basınca hemen göndereyim. İş yerinde benim için oldukça pratik olacaktır. Seçili alanı Userform, inputbox ile uğraşmadan doğrudan gönderebilir miyim?
Kullanıcı avatarı
alisrn
Yeni Başlamış
 
Kayıt: 21 Eyl 2015 09:18
Meslek: öğrenci
Yaş: 28
İleti: 89
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kocaeli

Cevap: Seçili Alanı Mail Olarak Gönderme

İleti#2)  Murat OSMA » 16 Kas 2015 12:02

Bu başlık altında birçok konu mevcut. Biraz göz gezdirin lütfen.

https://excelturkey.com
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14305
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Seçili Alanı Mail Olarak Gönderme

İleti#3)  tuna06 » 24 May 2016 12:20

Murat bey,

Bahsi geçen konu ile ilgili dediğiniz gibi sayfadan bir link paylaşabilir misiniz.

[TESEKKÜR]
Kullanıcı avatarı
tuna06
Yeni Başlamış
 
Kayıt: 29 Nis 2016 00:44
Meslek: bilgisayar
Yaş: 28
İleti: 71
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Mamak

Cevap: Seçili Alanı Mail Olarak Gönderme

İleti#4)  Murat OSMA » 30 May 2016 12:18

Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 33
İleti: 14305
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Seçili Alanı Mail Olarak Gönderme

İleti#5)  tuna06 » 30 May 2016 13:57

Murat Bey,

Yönlendirmeleriniz için teşekkürler. Çok yardımcı oldu.

Bir başka başlık altında farklı bir konu hakkında da yardımlarınızıda rica edeceğim.

Ayrıca yazımda belirtmiş olduğunuz "bey" kelimesi özel isim veya farklı bir anlam ifade etmediğinden büyük harf ile yazılacağını düşünmüyoruz. İkla kurallarında böyle bir yazım kuralı ile hiç karşılaşmadık.

Saygılarımla,
Kullanıcı avatarı
tuna06
Yeni Başlamış
 
Kayıt: 29 Nis 2016 00:44
Meslek: bilgisayar
Yaş: 28
İleti: 71
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Mamak

Cevap: Cevap: Seçili Alanı Mail Olarak Gönderme

İleti#6)  Enes Recep BAĞ » 30 May 2016 14:31

tuna06 yazdı:Ayrıca yazımda belirtmiş olduğunuz "bey" kelimesi özel isim veya farklı bir anlam ifade etmediğinden büyük harf ile yazılacağını düşünmüyoruz. İkla kurallarında böyle bir yazım kuralı ile hiç karşılaşmadık.

http://www.tdk.gov.tr/index.php?option= ... =183:buyuk
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8126
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Seçili Alanı Mail Olarak Gönderme

İleti#7)  tuna06 » 30 May 2016 16:57

Enes Bey,

Paylaşımınız ve aydınlatıcı bilginiz için teşekkürler.
Kullanıcı avatarı
tuna06
Yeni Başlamış
 
Kayıt: 29 Nis 2016 00:44
Meslek: bilgisayar
Yaş: 28
İleti: 71
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Mamak

Cevap: Cevap: Seçili Alanı Mail Olarak Gönderme

İleti#8)  ihsantutkun54 » 17 Oca 2018 18:49

Murat OSMA yazdı:Bu başlık altında birçok konu mevcut. Biraz göz gezdirin lütfen.


merhaba ben seçili alanı otomatik mail olarak gönderdiğim bir kodum vardı 6 aydan bu yana kullandığım bugün ne olduğunu anlamadım ve çalışmamaya başladı. kod aşağıdaki gibi yardımcı olabilirseniz sevinirim. hata aldığım kısım "daralan.Select" ve "Sayfa.Select"

Kod: Tümünü seç
Dim Alan As Range
    Dim daralan As Range


   If Cells(1, 12) = "" Then GoTo HATA

    On Error GoTo HATA

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
   
    Sheets("ÖTELİ-SAPMALI").Select
   

    saydir = WorksheetFunction.CountIf(Range("M:M"), "<>")

  Dinamikalan = "A1:" & "O" & saydir

Set Alan = Worksheets("ÖTELİ-SAPMALI").Range(Dinamikalan)
   
    Set Sayfa = ActiveSheet

    With Alan

        .Parent.Select
        Set daralan = ActiveCell

        .Select
        ActiveWorkbook.EnvelopeVisible = True
        With .Parent.MailEnvelope

            .Introduction = "açıklama metni"
                           

            With .Item
                .To = "aa@aa.com.tr" & ";" & "bbb@bb.com.tr"
                .CC = "aa@aa.com.tr" & ";" & "bbb@bb.com.tr"
                .Subject = Format(Date, "DD.MM.YYYY") & " - ÖTELİ VE SAPMALI DURUMDAKİ PARÇALARIN BİLGİSİ HK."
                .bcc = ""
                .Send
            End With

        End With

        daralan.Select
    End With
   
    Sayfa.Select

HATA:
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
Kullanıcı avatarı
ihsantutkun54
 
Kayıt: 17 Oca 2018 18:38
Meslek: robot teknisyeni
Yaş: 28
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Sakarya

Cevap: Seçili Alanı Mail Olarak Gönderme

İleti#9)  Tarkan VURAL » 20 Oca 2018 20:53

Merhaba,
Kodlarda bir sıkıntı görünmüyor. Hatanın ne olduğunu bilirsek bir fikrimiz olabilir. Malum, yüzlerce çeşit hata dönebiliyor.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26745
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: Seçili Alanı Mail Olarak Gönderme

İleti#10)  ihsantutkun54 » 22 Mar 2018 17:41

Tarkan VURAL yazdı:Merhaba,
Kodlarda bir sıkıntı görünmüyor. Hatanın ne olduğunu bilirsek bir fikrimiz olabilir. Malum, yüzlerce çeşit hata dönebiliyor.



tarkan bey konu ile ilgili hatayı çözdüm ancak şuanda da atılan otomatik mailin arka rengi yeşil oluyor ve yazılar tablolar resimdeki gibi ortalanıyor. ancak benim kodumda böyle birşey neden yapıyor olabilir? birde arada diğer resimdeki gibi siyah yapıyor içerik görünmüyor. yardımlarınızı rica ediyorum

Sheets("AKY-ANK_TALEP").Select
kltpsay = Cells(Rows.Count, 18).End(xlUp).Row

Sheets("AKY-ANK_TALEP").Range("r1:v" & kltpsay).Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Sayın Kalite İlgilileri," & Chr(13) & Chr(13) & Format(Date, "DD.MM.YYYY") & " tarihli kritik listede yer alıp KALİTE BİLGİLERİ' bulunan parça listesi aşağıdaki gibidir. Parçaların 'OK' veya 'RED' bilgilerinin aynı mail üzerinden paylaşılmasını rica ederim."
.item.To = "aaaa@aaa.com.tr"
.item.CC = "bbbb@bbb.com.tr"
.item.Subject = Format(Date, "DD.MM.YYYY") & " TARİHLİ KRİTİK LİSTEDEKİ KALİTE PARÇALARI HK."
.item.Send
End With
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
ihsantutkun54
 
Kayıt: 17 Oca 2018 18:38
Meslek: robot teknisyeni
Yaş: 28
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Sakarya

Cevap: Seçili Alanı Mail Olarak Gönderme

İleti#11)  ihsantutkun54 » 27 Mar 2018 17:28

merhaba konu ile ilgli yardımcı olabilecek yok mu? Konu ile ilgli ciddi sorun yaşıyorum. Yardımlarınız çok önemli...
Kullanıcı avatarı
ihsantutkun54
 
Kayıt: 17 Oca 2018 18:38
Meslek: robot teknisyeni
Yaş: 28
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Sakarya


Forum Excel ile Mail İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe