Outlook 2003 de Ekli Gelen Maillerin Yanıtla Dendiğinde Ek inin de Gelmesi.

Varsayılan olarak böyle bir ayar bulunmuyor sadece aşağıdaki macro ile yapılabiliyor.

Araçlar > Makro ->Visual Basic Editor.

Insert->Module.

Aşağıdaki kodu modülün içerisinde yapıştıralım

Yeni Mail butonunu tıkalyalım

Görünün > Araç Çubukları > Özelleştir ( Özelleştir seçeneği pasif geliyorsa metin biçiminde word kullan satırlarındaki işaretleri kaldırın )

Komutlar

Komutları Yeniden Düzenle

Araç Çubuğu radyo butonunu tıklayın

Karşısında standart yazdığını doğrulayın

Ekle

Makroyu seçin ve sağtaraftaki menüden Project1.ReplyWithAttach ekleyin

tamam

Public Sub ReplyWithAttach()

    ‘Make declarations

    Dim myOlApp As Outlook.Application

    Dim myInspector As Outlook.Inspector

    Dim myItem As Outlook.MailItem

    Dim myReplyItem As Outlook.MailItem

    Dim myAttachments As Outlook.Attachments

    Dim myReplyAttachments As Outlook.Attachments

    Dim fso

    Dim TempFolder As String

    Set fso = CreateObject(“Scripting.FileSystemObject”)

    TempFolder = fso.GetSpecialFolder(2)

    Set myOlApp = CreateObject(“Outlook.Application”)

    Set myInspector = myOlApp.ActiveInspector

    ‘Create variable to store files names 10 max if you need more then 10, change the value below

    Dim filenames(10) As String

    If Not TypeName(myInspector) = “Nothing” Then

        If TypeName(myInspector.CurrentItem) = “MailItem” Then

            Set myItem = myInspector.CurrentItem

            Set myAttachments = myItem.Attachments

            If myAttachments.Count > 0 Then

                For Count = 1 To myAttachments.Count

                    myAttachments.Item(Count).SaveAsFile “c:” & myAttachments.Item(Count).DisplayName

                    filenames(Count) = myAttachments.Item(Count).DisplayName

                Next

                Set myItem = myInspector.CurrentItem

                Set myReplyItem = myItem.ReplyAll

                Set myReplyAttachments = myReplyItem.Attachments

                For Count = 1 To myAttachments.Count

                    myReplyAttachments.Add “c:” & filenames(Count), olByValue, 1, “4th Quarter 1996 Results Chart”

                    myReplyItem.Display

                    fso.DeleteFile “c:” & filenames(Count)

                Next

            End If

        Else

            MsgBox “The item is of the wrong type.”

        End If

    End If

End Sub

Makale ile ilgili görüş, öneri ve yardım taleplerini bilgi@cangunes.com adresinden bana e-posta olarak iletebilirsiniz. Bana e-posta olarak gönderdiğiniz sorulara elimden geldiğince cevap vermeye çalışacağım. Yoğun olarak çalıştığım için farklı kanallardan ulaştırdığınız sorularınızı maalesef cevaplayamayacağım.