Outlook’ta tüm alıcılara orijinal eklerle birlikte nasıl “Tümüne Yanıtla” yapılır?

Outlook’ta hiç “Tümünü Yanıtla”ya bastınız da orijinal ekleri kaybettiniz mi? Çok sinir bozucu! Tümünü yanıtlayıp bu ekleri korumanın bir yolu olduğunu biliyor muydunuz? Evet, mümkün! Yanıtlarınızda orijinal ekleri nasıl dahil edeceğinizi keşfedin; böylece e-posta yönetiminiz sorunsuz ve verimli hale gelir. Takipte kalın!

VBA kodu ile Orijinal Eklerle Tümüne Yanıtla

Kutools for Outlook ile Orijinal Eklerle Tümüne Yanıtla

---

VBA kodu ile Orijinal Eklerle Tümüne Yanıtla

Outlook'ta bu görevi gerçekleştirmek için doğrudan bir özellik bulunmamaktadır; ancak aşağıdaki VBA kodunu uygulayarak hedefinize ulaşabilirsiniz. Lütfen aşağıdaki adımları izleyin:

1. Outlook'u başlatın ve ardından ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Microsoft Visual Basic for Applications penceresinde, modu açmak için Project1 (VbaProject.OTM) bölmesinden ThisOutlookSession öğesine çift tıklayın ve ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın.

VBA kodu: Orijinal eklerle tümünü yanıtla:

Sub ReplyAllWithAttachments()
'Updateby Extendoffice
Dim xItem As Object
On Error Resume Next
Select Case TypeName(Outlook.Application.ActiveWindow)
Case "Explorer"
For Each xItem In Outlook.Application.ActiveExplorer.Selection
GetReplyItem xItem
Next
Case "Inspector"
Set xItem = Outlook.Application.ActiveInspector.CurrentItem
GetReplyItem xItem
End Select
Set xItem = Nothing
End Sub
Sub GetReplyItem(Item As Object)
Dim xReplyMailItem As Outlook.MailItem
On Error Resume Next
If Not Item Is Nothing Then
Set xReplyMailItem = Item.ReplyAll
GetAttachments Item, xReplyMailItem
xReplyMailItem.Display
'xReplyMailItem.Send
Item.UnRead = False
End If
Set xReplyMailItem = Nothing
End Sub
Sub GetAttachments(xSourceItem, xTargetItem)
Dim xFSO As Scripting.FileSystemObject
Dim xTmpPath As String
Dim xAttachment As Attachment
Dim xTmpFile As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTmpPath = CreateObject("shell.Application").NameSpace(5).self.Path & "\TmpAttachments\"
If xFSO.FolderExists(xTmpPath) = False Then
MkDir xTmpPath
End If
For Each xAttachment In xSourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xTmpFile = xTmpPath & xAttachment.FileName
xAttachment.SaveAsFile xTmpFile
xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
xFSO.DeleteFile xTmpFile
End If
Next
If xFSO.FolderExists(xTmpPath) Then
Kill xTmpPath
End If
Set xFSO = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xAttParent As Object
Dim xCID As String, xID As String
Dim xHTML As String
On Error Resume Next
Set xAttParent = Attach.Parent
xCID = ""
xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCID <> "" Then
xHTML = xAttParent.HTMLBody
xID = "cid:" & xCID
If InStr(xHTML, xID) > 0 Then
IsEmbeddedAttachment = True
Else
IsEmbeddedAttachment = False
End If
End If
End Function

3. Ardından Araçlar > Başvurular seçeneğine tıklayın. Açılan Microsoft Visual Basic for Applications penceresinde, Başvurular - Project1 iletişim kutusunda, Microsoft Scripting Runtime seçeneğini Kullanılabilir Başvurular listesinden işaretleyin; ekran görüntüsüne bakın:

4. Ardından kod penceresini Kaydet ve Kapat, ardından makro düğmesini Hızlı Erişim Araç Çubuğuna ekleyebilirsiniz.

5. Ekli olarak tümünü yanıtlamak istediğiniz e-postayı İleti penceresinde açın, ardından Diğer Komutlar seçeneğini Hızlı Erişim Araç Çubuğunu Özelleştir açılır menüsünden seçin; ekran görüntüsüne bakın:

6.Outlook Seçenekleriiletişim kutusunda aşağıdaki işlemleri yapın:

(1.)Makrolarseçeneğini Komutları şuradan seçinaçılır listesinden seçin;

(2.) Az önce eklediğiniz makro adını tıklayın;

(3.) Ardından, makroyu Hızlı Erişim Araç Çubuğunu Özelleştir bölümüne eklemek için Ekle düğmesine tıklayın.

7. Ardından, Tamam düğmesine tıklayarak iletişim kutusunu kapatın. Artık makro düğmesi Hızlı Erişim Araç Çubuğu’na eklenmiştir; ekran görüntüsüne bakın:

8. Şimdi makro düğmesine tıklayın; orijinal eklerle birlikte yanıt mesajı penceresi açılacaktır. Ardından yanıtınızı yazın ve Gönder düğmesine tıklayın; ekran görüntüsüne bakın:

---

Kutools for Outlook ile Orijinal Eklerle Tümüne Yanıtla

Eğer Kutools for Outlook yazılımına sahipseniz, Ekli Tümünü Yanıtla özelliğini kullanarak bunu yalnızca bir tıklamayla “Tümüne Eklerle Yanıtla” yapabilirsiniz.

Kutools for Outlook yüklendikten sonra Kutools for Outlook, lütfen şu şekilde yapın:

1. Tümüne Eklerle Yanıtla istediğiniz iletiyi seçin ve ardından Kutools > Orijinal Ek ile Tümünü Yanıtla seçeneğine tıklayın; ekran görüntüsüne bakın:

2. Ardından, orijinal eklerle birlikte yanıt mesajı penceresi açılacaktır. Mesajınızı yazın, gönderin ve ekran görüntüsüne göz atın:

ŞimdiKutools for Outlook Ücretsiz Sürümünü indirmek için tıklayın!