Kodları aşağıdaki gibi revize ettim şu an PDF formatında dosyaları dialog kutusundan seçip ekleyerek gönderebiliyorum fakat Excel ve word dosyalarını eklemek mümkün olmuyor. Sorunun nedeni konusunda bilgilendirirseniz çok makbule geçecek. Son olarak öğrenmek istediğim bu dosyada 3 ila 4 bin arası mail adresi olacak. For döngüsü ile tüm mail adreslerini bu şekilde eklemek outlook da sorun olur diye okudum ve her satırdaki ID ye göre başlangıç ve bitiş numarası vererek bir seferde sorunsuz kaç mail gönderebileceğim konusu nasıl çözülebilir fikriniz varsa öğrenmek isterim. Çok teşekkürler.

Private Sub CommandButton2_Click()

On Error Resume Next

Dim son As Integer





son = Range("F65536").End(3).Row

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



For i = 2 To Sayfa1.Range("a65536").End(3).Row

Mail = Mail + ";" + Sayfa1.Cells(i, 7).Value

Next i



    Dim OutlookApp As Object, OutlookMsg As Object

    Dim FSO As Object

    Dim MySignature As Object

    

    Set FSO = CreateObject("Scripting.FilesystemObject")

    

    Set OutlookApp = CreateObject("Outlook.Application")

    Set OutlookMsg = OutlookApp.CreateItem(0)

  

 

  

    With OutlookMsg





.To = Mail

.cC = "buraya cc yazılacak"

.Subject = Sayfa1.Cells(i, 3).Value

.body = "mesajı buraya yazın"

.Attachments.Add ek

.Importance = 2

.Save

.Display

.Send



    End With

  

      

    Set MySignature = Nothing

    Set OutlookMsg = Nothing

    Set OutlookApp = Nothing

    Set FSO = Nothing



End Sub