Alttaki gibi deneyiniz.Yalnız .cC = "cc yaz" bu satır olursa hata veriyor.

Private Sub CommandButton2_Click()



    Dim objOutlook As Object

    Dim objMail As Object

    Dim maill As String

    Dim i As Long, dosya

    Dim syfAna As Worksheet

    

    Set syfAna = ThisWorkbook.Sheets("Ana_Sayfa")

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

    If dosya = vbNullString Then Exit Sub

    If dosya = False Then Exit Sub



    basla = InputBox("Baþlangýnç No")

    If basla = "" Then Exit Sub

    bitis = InputBox("Bitiþ No")

    If bitis = "" Then Exit Sub

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

    For i = basla To bitis

        maill = maill & syfAna.Range("D" & i) & ";"

    Next

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



        Set objOutlook = CreateObject("Outlook.Application")

        Set objMail = objOutlook.CreateItem(0)

        With objMail

            .To = maill

            .cC = "cc yaz"

            .Subject = "Konu yaz"

            .body = "Sayýn yetkili, Ekte tarafýnýza ait mutabakat mektubu bulunmaktadýr. En kýsa sürede geri dönüþünüzü bekliyoruz. Saygýlarýmýzla,"

            .Attachments.Add dosya

            .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