Feraz Hocam Çok Teşekkür ederim PDF belgeleri sorunsuz gönderiliyor. Word ve Excel dosyalarının maile neden eklenemediği ile ilgili bir fikriniz var mı acaba bu dosya türlerinde hata veriyor.

G1 hücresindeki E_MAIL yazisini gönderilecek mail listesinden çıkarmak için ne yapmalıyım. Range"G" değerini 1 den itibaren aldığı için ilk hücredeki E_MAIL yazısınıda gönderilecek maillerin arasında ilk sırada yazıveriyor döngü yüzünden."G2:G" şeklinde yazdığımda ise type mistmatch hatası veriyor. Çok önemli değil baştan siliveriyorum sorun olmuyor ama hiç çıkmasa daha iyi olur tabiki.

(09/04/2021, 23:56)Oğuz Türkyılmaz yazdı: Feraz Hocam Çok Teşekkür ederim PDF belgeleri sorunsuz gönderiliyor. Word ve Excel dosyalarının maile neden eklenemediği ile ilgili bir fikriniz var mı acaba bu dosya türlerinde hata veriyor.

Rica ederim abey.
Dosya türlerini denememiştim deneyip haber ederim ayrıca ouotlokk gönderirken izin ver ve engelle gibi çıkan mesajı kapatmak için resimdeki gibi yapın.Outlook yönetici olarak açılmalı.

---

Denedim şimdi.Bende Excel ve word gönderiyor abey.

---

(09/04/2021, 23:56)Oğuz Türkyılmaz yazdı: Feraz Hocam Çok Teşekkür ederim PDF belgeleri sorunsuz gönderiliyor. Word ve Excel dosyalarının maile neden eklenemediği ile ilgili bir fikriniz var mı acaba bu dosya türlerinde hata veriyor.

G1 hücresindeki E_MAIL yazisini gönderilecek mail listesinden çıkarmak için ne yapmalıyım. Range"G" değerini 1 den itibaren aldığı için ilk hücredeki E_MAIL yazısınıda gönderilecek maillerin arasında ilk sırada yazıveriyor döngü yüzünden."G2:G" şeklinde yazdığımda ise type mistmatch hatası veriyor. Çok önemli değil baştan siliveriyorum sorun olmuyor ama hiç çıkmasa daha iyi olur tabiki.

Hangi kodu kullandınız ayrıca Email yazan yer heralde başlık.Döngü için başlık olmayan satırdan başlatın.

---

(09/04/2021, 23:56)Oğuz Türkyılmaz yazdı: G1 hücresindeki E_MAIL yazisini gönderilecek mail listesinden çıkarmak için ne yapmalıyım. Range"G" değerini 1 den itibaren aldığı için ilk hücredeki E_MAIL yazısınıda gönderilecek maillerin arasında ilk sırada yazıveriyor döngü yüzünden."G2:G" şeklinde yazdığımda ise type mistmatch hatası veriyor. Çok önemli değil baştan siliveriyorum sorun olmuyor ama hiç çıkmasa daha iyi olur tabiki.

Hangi kodu kullandınız ayrıca Email yazan yer heralde başlık.Döngü için başlık olmayan satırdan başlatın.

(09/04/2021, 23:56)Oğuz Türkyılmaz yazdı: ."G2:G"

Kodun tamamını bir yazın buraya yazdığınız gibi olmaz bence

Ben başlangıç ve bitiş yazarken A sütunundaki ID değerine göre aldığını düşünmüştüm oysaki satır numaralarına göre alıyormuş. Başlangıç değerini 2 verdimmi sorun kalmadı fakat outlooku dediğiniz gibi yapamıyorum öünkü işaretlediğiniz bölüm bende değiştirilemiyor. Excel ve word dosyalarını ise kesinlikle gönderemiyorum hata veriyor. bir yerde bir ayar yapılmasımı gerekiyor anlamadım ki.

(10/04/2021, 00:34)Oğuz Türkyılmaz yazdı: işaretlediğiniz bölüm bende değiştirilemiyor.

Outlook a sağ tık ile yönetici olarak açmazsanız olmaz.

---

Ayrıca Excel felan gönderiliyor denedim sizde kodsuz olarak normal bir Excel göndermeyi deneyin manuel olarak program ile.

Feraz Hocam Teşekkürler.başlangıc ve bıtıs değerleri verildiğinde aiağıdaki kod PDF Excel ve word dosyalarını maile sorunsuz olarak ekliyor.

Private Sub CommandButton2_Click()



    Dim objOutlook As Object

    Dim objMail As Object

    Dim maill As String

    Dim i As Long, ek

    Dim syfAna As Worksheet

    Dim basla, bitis

   

    Set syfAna = ThisWorkbook.Sheets("Ana_Sayfa")

    ek = Application.GetOpenFilename("Files (*.**)," & "*.**", 1, "Select File", "Open", False)

    If ek = vbNullString Then Exit Sub

    If ek = False Then Exit Sub



    basla = InputBox("Başlangıç ID numarasını Giriniz.")

    If basla = 1 Then Exit Sub

    If basla = "" Then Exit Sub

    bitis = InputBox("Bitiş ID numarasını Giriniz.")

    If bitis = "" Then Exit Sub

    

    If IsNumeric(basla) = False Then Exit Sub

    If IsNumeric(bitis) = False Then Exit Sub

    If basla > bitis Then Exit Sub

    

    If WorksheetFunction.CountA(syfAna.Range("G2:G" & Rows.Count)) = 0 Then GoTo son

    For i = basla To bitis

        If Trim(syfAna.Range("G" & i).Value) = "" Then GoTo devam

        maill = maill & syfAna.Range("G" & i).Value & ";"

       

devam:

    Next

 

    maill = Left(maill, Len(maill) - 1)



        Set objOutlook = CreateObject("Outlook.Application")

        Set objMail = objOutlook.CreateItem(0)

        With objMail

            .To = maill

'            .cC = ""

            .Subject = "2021 WINPERAX Teknik Ürün Kataloğu"

            .body = "Sayın yetkili, Ekte 2021 WINPERAX Teknik Ürün Kataloğu bulunmaktadır. İyi Çalışmalar Dileriz.Saygılarımızla,"

            .Attachments.Add ek

            .Importance = 2

            .Save

            .Display

            '.Send ' gönder

        End With

        MsgBox "Gönderildi..", vbInformation, "Bilgi"

var:

    Set objMail = Nothing

    Set objOutlook = Nothing

    Set syfAna = Nothing

    Exit Sub

son:

MsgBox "Hata oldu", vbCritical, "Hata"



GoTo var



End Sub