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