Sn.Kanakan52  İşlem gerçekleştiğinde otomatik olarak outlooku açmıyor ben manuel olarak outlooku açtığımda mail işleminin gideceği hesapları vs hepsini Taslaklarda görüyorum fakat ekle diyerek dialog kutusundan seçtiğim dosya eklenmiş olarak gözükmüyor. İkinci defa mail göndermek istediğimde ise işlem hiç gerçekleşmiyor.

Private Sub CommandButton2_Click()

On Error Resume Next

Dim son As Integer

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

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



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

Mail = Mail + ";" + Sayfa1.Cells(i, 4).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 dosya

.Importance = 2

.Save

.Display

.Send ' en baştaki tek tırnağı kaldırırsanız doğrudan gönderir



    End With

  

      

    Set MySignature = Nothing

    Set OutlookMsg = Nothing

    Set OutlookApp = Nothing

    Set FSO = Nothing



End Sub