(ÇÖZÜLDÜ) Excel den maile tabloyu aktarsın ama göndermesin

[dgdizayn]

Merhabalar,

Aşağıdaki eklediğim mail kodu gayet güzel çalışıyor. Tabloya verileri girip to ve cc bölümüne mailleri eklediğimde göndere tıklayınca mail gidiyor. Fakat benim istediğim gönder dediğimde mail içerisine eklesin ama göndermesin. Çünkü içerisine ekler ekleyip ondan sonra kendim göndermek istiyorum. Bunu yapmak mümkün mü.
Teşekkürler

Private Sub CommandButton1_Click()
Dim Sayfa As Worksheet
Dim Alan As Range
Dim daralan As Range

If Cells(2, 2) = "" Then GoTo HATA

On Error GoTo HATA

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

saydir = WorksheetFunction.CountIf(Range("c:c"), "<>") + 1
DinamikAlan = "D2:" & "G" & saydir
Set Alan = Worksheets("Sayfa1").Range(DinamikAlan)

Set Sayfa = ActiveSheet

With Alan

.Parent.Select
Set daralan = ActiveCell

.Select
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope

.Introduction = ""

With .Item
.To = Cells(2, 2)
.CC = Cells(3, 2)
.Subject = Cells(1, 2)
.bcc = ""
.Send
End With

End With

daralan.Select
End With

Sayfa.Select

HATA:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With


End Sub

 

[askm]

.send kısmını .display olarak değiştirin.

 

[dgdizayn]

.send kısmını .display olarak değiştirin.

Süpersin çok teşekkür ederim. Bende open olarak değiştirdim salladım ama olmadı. Display çok işime yaradı.Tekrar tşkler konu çözüldü

 

[askm]

Rica ederim. Kolay gelsin.