[Yardım]  Klasör içerisindeki dosyaları maile ekleme

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

Klasör içerisindeki dosyaları maile ekleme

İleti#1)  batuk9 » 05 Şub 2019 07:26

Merhaba. Aşağıdaki kod ile mail işlemi gerçekleştirmeye çalışıyorum. AA sütununda klasör adı AB sütununda ise mail adresleri var. Döngü ile sırasıyla mail atmaya çalışıyorum. Birinci maile ekleri ekleyip gönderiyor. İkinciye geçtiğinde run-time error öğe taşınmış ya da silinmiş demektedir. Ve .To = Cells(i, 28).Value bu kısımda hata vermektedir.



Kod: Tümünü seç
Sub postala()

Sheets("KULLANIM").Select
    Dim strLocation As String
Dim StrFile As String

    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
   
        Dim lastRow As Long
lastRow = Range("AA" & Rows.Count).End(xlUp).Row
    For i = 2 To lastRow
        .To = Cells(i, 28).Value
        '.CC = ""
        '.BCC = ""
        .Subject = "E-FATURALAR"
        .Body = "E-Faturalar?n?z ektedir. L?tfen en k?sa s?rede kontrol edip i?lemenizi rica ederiz."
       
a = ThisWorkbook.Path & "\" & Cells(i, 27) & "\"  '& "*"
'MsgBox a

StrFile = Dir(a)  'location of files to send
'MsgBox StrFile
        Do While Len(StrFile) > 0
            .Attachments.Add (a & StrFile)  'insert your file path here too no Asterisk *
            StrFile = Dir
        Loop

        .Send
       
        Next
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
   
    MsgBox "E-Posta g?nderilmi?tir.", vbInformation, "Tamamland?"

End Sub
Kullanıcı avatarı
batuk9
Siteye Alışmış
 
Adı Soyadı:mehmet batuk
Kayıt: 01 Kas 2010 12:38
İleti: 375
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Klasör içerisindeki dosyaları maile ekleme

İleti#2)  tasad » 05 Şub 2019 15:57

Örnek bir dosya ekleyin.
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 539
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Klasör içerisindeki dosyaları maile ekleme

İleti#3)  batuk9 » 07 Şub 2019 22:51

AA sütunu klasör adıdır. AB sütunu mail adresleri. Klasör içerisinde ne dosya varsa hepsini ekleyip mail gönderecek. Mailler döngü ile sırasıyla gönderilecek.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
batuk9
Siteye Alışmış
 
Adı Soyadı:mehmet batuk
Kayıt: 01 Kas 2010 12:38
İleti: 375
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Klasör içerisindeki dosyaları maile ekleme

İleti#4)  tasad » 08 Şub 2019 11:10

Dosyadaki kodları orjinal dosyanıza kaydedin.Mail isimli kodu çalıştırın.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 539
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

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

Cevap: Klasör içerisindeki dosyaları maile ekleme

İleti#5)  batuk9 » 12 Şub 2019 23:30

Elinize sağlık hocam. Winrar olarak eklemesi benim için farklı bir tecrübe oldu beklemiyordum. Teşekkür ederim.
Kullanıcı avatarı
batuk9
Siteye Alışmış
 
Adı Soyadı:mehmet batuk
Kayıt: 01 Kas 2010 12:38
İleti: 375
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

Cevap: Klasör içerisindeki dosyaları maile ekleme

İleti#6)  batuk9 » 12 Şub 2019 23:55

Hocam 2 sorunum var. 1.si mail gönderdikten sonra son işlem yaptığı klasörü serbest bırakmalı. İşlem bitiyor ama hala klasörü meşgul ediyor. 2.si ise mailgonder kodunda şartımız klasör varsa mail gönder yerine 2 denetleme olmalı. Klasör var ve içinde dosya varsa mail gönder şeklinde. Yoksa dosya boş ise boş mail gönderiyor. Yardımcı olabilir misiniz.
Kullanıcı avatarı
batuk9
Siteye Alışmış
 
Adı Soyadı:mehmet batuk
Kayıt: 01 Kas 2010 12:38
İleti: 375
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Klasör içerisindeki dosyaları maile ekleme

İleti#7)  tasad » 13 Şub 2019 11:47

1. sorunuzdan pek bir şey anlamadım.2.sorunuzda ise kendi dosyamda deneme yaptım,boş olan klasörleri mail olarak göndermiyor.
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 539
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Klasör içerisindeki dosyaları maile ekleme

İleti#8)  batuk9 » 13 Şub 2019 17:28

1.soru klasörleri silme işlemi yaptırdığımda son sıradaki klasör silinmiyor. Hata vermiyor. Ama manuel silmek istediğimde excel kullanıyor görünüyor. Klasör içi boş şekilde kalıyor. 2.soruda sizde göndermeyip bende göndermesi ilginç. Boş mail oluşturuyor.
Kullanıcı avatarı
batuk9
Siteye Alışmış
 
Adı Soyadı:mehmet batuk
Kayıt: 01 Kas 2010 12:38
İleti: 375
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adana


Forum Excel ile Mail İşlemleri

Online Kullanıcılar

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

Bumerang - Yazarkafe