• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Excelden mail gönderme, her adrese farklı ek (pdf)

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

oner

Yeni Üye
Katılım
1 Ağu 2018
Mesajlar
2
En iyi yanıt
0
Puanları
3
Yaş
45
Konum
istanbul
Ad Soyad
Öner Berber
Merhabalar,
Aşağıdaki makroyu düzenleme şansımız var mı? klasör olarak değilde her mail adresinin karşısında ayrı bir pdf dosyası vs. olacak

2559_Sütundaki_Adreslere_Klasördeki_Dosyaları_Mail_Göndermek

PHP:
Sub Mail()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim strFile As String
    Dim mm As Worksheet
    Set mm = Sheets("Sayfa1")
    aa = mm.Range("B65536").End(3).Row
    For a = 2 To aa
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
        On Error Resume Next
        With OutMail
            .To = mm.Range("b" & a).Value
            .CC = ""
            .BCC = ""
            .Subject = mm.Range("c" & a).Value
            .Body = mm.Range("d" & a).Value
            klasoryolu = mm.Range("e" & a).Value
            Set evn = CreateObject("scripting.filesystemobject")
            Set klasor = evn.GetFolder(klasoryolu)
            For Each Dosya In klasor.Files
                .Attachments.Add Dosya.path
            Next
            .Send
        End With
        On Error GoTo 0
        Set OutMail = Nothing
        Set OutApp = Nothing
    Next a
End Sub
 

Ekli dosyalar

  • 2559_Sütundaki_Adreslere_Klasördeki_Dosyaları_Mail_Göndermek.xls
    53.5 KB · Görüntüleme: 177
Moderatör tarafında düzenlendi:

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,486
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Merhaba @oner,

Kodlardaki With ... End With aralığını bu şekilde değiştirebilirsiniz.
PHP:
        With OutMail
            .To = mm.Range("b" & a).Value
            .CC = ""
            .BCC = ""
            .Subject = mm.Range("c" & a).Value
            .Body = mm.Range("d" & a).Value
            .Attachments.Add mm.Range("e" & a).Value
            .Send
        End With
 

enesyildiz

Yeni Üye
Katılım
19 Tem 2018
Mesajlar
3
En iyi yanıt
0
Puanları
3
Konum
Sivas
Ad Soyad
Enes
Office Vers.
Office 2019 Pro TR
ben çalştırdığımda aa = mm.Range("B65536").End(3).Row burada hata alıyorum neden acaba . pencerede can't find project or library hatası veriyor
 
Son düzenleme:

oner

Yeni Üye
Katılım
1 Ağu 2018
Mesajlar
2
En iyi yanıt
0
Puanları
3
Yaş
45
Konum
istanbul
Ad Soyad
Öner Berber
Tamamdır sıkıntı yok çalışıyor..teşekkürler..
Enes Bey bana da Murat Bey söylemişti..sayfayı açın makroları görüntüleden mail makrosunu seçip düzenle deyin yukarıdan tools / reference den missing ile başlayan outlook eklentisi kutucuğu işaretlidir kaldırın..
 

enesyildiz

Yeni Üye
Katılım
19 Tem 2018
Mesajlar
3
En iyi yanıt
0
Puanları
3
Konum
Sivas
Ad Soyad
Enes
Office Vers.
Office 2019 Pro TR
sağolasın oner dönüş için teşekkürler mail düştü :D
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt