Tümü Outlook'ta orijinal eklerle nasıl yanıtlanır?
Normalde, Outlook'taki tüm alıcılara iletiyi yanıtlamak için Tümünü Yanıtla işlevini uyguladığınızda, orijinal ekler otomatik olarak kaybolur. Outlook'ta tümüne yanıt verirken orijinal ekler eklemek mümkün müdür?
Tüm orijinal ekleri VBA kodu ile yanıtlayın
Outlook için Kutools ile tümünü orijinal eklerle yanıtlayın
Tüm orijinal ekleri VBA kodu ile yanıtlayın
Outlook'ta bu görevin üstesinden gelmek için doğrudan bir özellik yoktur, ancak bunu başarmak için aşağıdaki VBA kodunu uygulayabilirsiniz. Lütfen aşağıdaki adımları uygulayın:
1. Outlook'u başlatın ve ardından ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. In Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu OutlookOturumu itibaren Proje1 (VbaProject.OTM) bölmesini açın ve ardından aşağıdaki kodu kopyalayıp boş modüle yapıştırın.
VBA kodu: Tümünü orijinal ahhachments ile yanıtlayın:
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. Ve sonra tıklayın Tools > Referanslar içinde Uygulamalar için Microsoft Visual Basic pencere, dışarı çıkmış Referanslar-Proje1 iletişim kutusu, işaretleyin Microsoft Komut Dosyası Çalışma Zamanı seçeneği Mevcut Referanslar liste kutusu, ekran görüntüsüne bakın:
4. Ardından kod penceresini kaydedip kapatın ve ardından makro düğmesini Hızlı Erişim Araç Çubuğu.
5. Ekli olarak yanıtlamak istediğiniz e-postayı açın. Mesaj pencere, sonra seçin Daha Komutlar itibaren Hızlı erişim araç çubuğunu özelleştir açılır, ekran görüntüsüne bakın:
6. In Outlook Seçenekleri iletişim kutusunda aşağıdaki işlemleri yapın:
(1.) Seçin Makrolar itibaren Komutları seçin açılır liste;
(2.) Şu anda eklediğiniz makro adına tıklayın;
(3.) Ve sonra tıklayın Ekle makroyu eklemek için düğme Hızlı erişim araç çubuğunu özelleştir.
7. Sonra tıklayın OK iletişim kutusunu kapatmak için, şimdi makro düğmesi Hızlı Erişim Araç Çubuğu, ekran görüntüsüne bakın:
8. Şimdi, makro düğmesine tıklayın; orijinal ekleri içeren yanıtlama mesajı penceresi açılır, ardından yanıtlayan mesajı oluşturun ve Gönder düğmesi, ekran görüntüsüne bakın:
Outlook için Kutools ile tümünü orijinal eklerle yanıtlayın
Eğer varsa Outlook için Kutools, Onun ile Tümünü Ekle Yanıtla özelliği, sadece tek bir tıklama ile tüm ekleri yanıtlayabilirsiniz.
Outlook için Kutools : 100'den fazla kullanışlı Outlook eklentisi ile 60 günde sınırlama olmaksızın ücretsiz olarak deneyin. |
Kurduktan sonra Outlook için Kutoolslütfen şunu yapın:
1. Tüm ekleriyle yanıtlamak istediğiniz mesajı seçin ve ardından Kutools > Ek ile yanıtla > Tümünü Ekle Yanıtla, ekran görüntüsüne bakın:
2. Ve cevap mesajı penceresi orijinal eklerle açılır, ardından mesajınızı oluşturun ve gönderin, ekran görüntüsüne bakın:
Kutools for Outlook'u indirmek ve şimdi ücretsiz deneme için tıklayın!
En İyi Ofis Üretkenlik Araçları
Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik
🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...
???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Planla / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik İletme (Gelişmiş Kurallar) / Otomatik Karşılama Ekleme / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...
📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın / Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin / Yinelenen E-postaları Silin / gelişmiş Arama / Klasörleri Birleştir ...
📁 Ekler Pro: Toplu Kaydetme / Toplu Ayır / Toplu Sıkıştırma / Otomatik kaydet / Otomatik Ayır / Otomatik Sıkıştır ...
🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji / Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın / Outlook'u Kapatmak Yerine Küçültün ...
👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla / Kimlik Avına Karşı E-postalar / 🕘Gönderenin Saat Dilimini Göster ...
👩🏼🤝👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme / Kişi Grubunu Bireysel Gruplara Bölme / Doğum Günü Hatırlatıcılarını Kaldır ...
üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.