Mail göndermek hk.

[kaya41]

Günaydın.

Aşağıda belirttiğim kod ile mail gönderiyorum. (Göndertiyorum vs.)
Yapmak istediğim şu; mail gönderirken kim mail gönderiyorsa kendisine de aynı mail gitsin.
Nerede nasıl bir değişiklik yapmak lazım.

Birde Outlook kapalı iken mail gitmesi mümkün mü?

Şimdiden teşekkürler.

Sub mailgonder()
'
'

'
Application.ScreenUpdating = False

   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("D:D"), "<>") + 1
    DinamikAlan = "D2:" & "q" & saydir
    Set Alan = Worksheets("mail").Range(DinamikAlan)
    
    Set Sayfa = ActiveSheet

    With Alan

        .Parent.Select
        Set daralan = ActiveCell

        .Select
        ActiveWorkbook.EnvelopeVisible = True
        With .Parent.MailEnvelope
        'reklam
          .Introduction = " Onaylamanız üzere bilgilerinize sunarım. "

            With .Item
                .To = "se.bi@ak.com.tr" 'Cells(2, 2)
                .CC = "vah.ya@ak.com.tr " 'Cells(3, 2)
                .Subject = "Onay bekleyen iş emirleri hk." 'Cells(1, 2)
                '.bcc = "  "
                .Send
            End With

    End With

        daralan.Select
    End With
    
    Sayfa.Select

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

 

[kaya41]

Herkese hayırlı Cumalar diliyorum.
Konu hakkında yardımlarınızı rica ediyorum.