Mail gönderirken dosya ekleme ve teslim bilgileri nasıl uygulanır?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Sayın Korhan Ayhan hocanın 18.09.2015 teki çalışması arka arkaya istenen sayıda adrese mail atabiliyor.

Option Explicit

Sub Mail_Gonder()
    Dim Alan As Range, Veri As Range, Adres As String

    On Error GoTo Son

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

    Set Alan = Range("A1:G20")

    For Each Veri In Range("R1:R5")
        If Veri.Value <> "" Then
            If Adres = "" Then
                Adres = Veri.Value
            Else
                Adres = Adres & ";" & Veri.Value
            End If
        End If
    Next

    With Alan
        ActiveWorkbook.EnvelopeVisible = True
        With .Parent.MailEnvelope
            .Introduction = ""
            With .Item
                .To = Adres
                .CC = "ugomortr@yahoo.com"
                .BCC = "ugomortr@yahoo.com"
                .Subject = "Online Satış Kargo Bilgileriniz"
                .Send
            End With
        End With
    End With

Son:
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    ActiveWorkbook.EnvelopeVisible = False
End Sub

Denedim, sorunsuz çalışıyor. Bir kere daha teşekkür ederim.

.Attachments.Add ThisWorkbook.Path & "\" & Cells(2, "Z").Value

dosya ekleme satırını nereye eklemeliyim?
Bir de bu koda nasıl teslim bilgisi isteme, okundu bilgisi isteme eklenebilir?
Saygılarımla

 

[Zeki Gürsoy]

İlaveleri vurguladım, inceleyin.

[SIZE=2]Sub Mail_Gonder()
    Dim Alan As Range, Veri As Range, Adres As String

    On Error GoTo Son

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

    Set Alan = Range("A1:G20")

    For Each Veri In Range("R1:R5")
        If Veri.Value <> "" Then
            If Adres = "" Then
                Adres = Veri.Value
            Else
                Adres = Adres & ";" & Veri.Value
            End If
        End If
    Next

    With Alan
        ActiveWorkbook.EnvelopeVisible = True
        With .Parent.MailEnvelope
            .Introduction = ""
            With .Item
                [B][COLOR=Blue].Importance = 1 [/COLOR]                           [COLOR=DarkGreen]' ÖNEM: 0=Düşük, 1=Normal, 2=Yüksek[/COLOR]
                [COLOR=Blue].OriginatorDeliveryReportRequested = True[/COLOR]  [COLOR=DarkGreen]' Teslim bilgisi iste[/COLOR]
                [COLOR=Blue].ReadReceiptRequested = True [/COLOR]              [COLOR=DarkGreen]' Okundu bilgisi iste 
                [/COLOR][/B][/SIZE][SIZE=2][B][COLOR=DarkGreen][SIZE=2][COLOR=Blue].Attachments.Add ThisWorkbook.Path & "\" & Cells(2, "Z").Value[/COLOR][/SIZE][/COLOR][/B]     
          
                .To = Adres
                .CC = "ugomortr@yahoo.com"
                .BCC = "ugomortr@yahoo.com"
                .Subject = "Online Satış Kargo Bilgileriniz"
                
                .Send
            End With
        End With
    End With

Son:
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    ActiveWorkbook.EnvelopeVisible = False
End Sub[/SIZE]

 

[Tevfik_Kursun]

Sayın Zeki Gürsoy Hocam,
Çok teşekkür ederim.
Saygılarımla

 

[Tevfik_Kursun]

Sayın Zeki Gürsoy Hocam,
Tekrar teşekkür ederim.
Acaba gönderilen kişileri gizlemek mümkün mü? Gönderilen kişiye sadece kendi adresi görünsün.
Saygılarımla

 

[Asri]

Sayın Zeki Gürsoy Hocam,
Tekrar teşekkür ederim.
Acaba gönderilen kişileri gizlemek mümkün mü? Gönderilen kişiye sadece kendi adresi görünsün.
Saygılarımla

Hocam,

aşağıdaki konuda kişiye özel toplu mail gönderimi programı var.
@Zeki Gursoy un vermiş olduğu kodlar programa eklendi.

kişiye özel gönderim olduğu için gizli gönderim kullanmanıza gerek kalmıyor.

http://www.excel.web.tr/f52/excel-ki-iye-zel-toplu-mail-gonderimi-t156176.html