Bazı kullanıcılar, gelen her e-postadaki eklerin bilgilerini otomatik olarak kaydetmek ister. Bu makale, kolaylıkla gerçekleştirmek için hızlı bir zamanı paylaşacaktır.
Gelen her Outlook e-postasının ek bilgilerini bir Excel dosyasına aktarmaya alışkınsanız, Outlook'un bu işi otomatik olarak üstlenmesine izin verebilecek bazı yaklaşımları özleyebilirsiniz. Böylece, ekleri manuel olarak izlemekten kurtulabilirsiniz. Neyse ki, Outlook böyle doğrudan bir özellik sağlamasa da, biraz komut dosyası kullanarak bunu başarabilirsiniz. Şimdi size adım adım öğreteceğiz.
Gelen E-postaların Ek Bilgilerini Otomatik Olarak Excel'e Aktarın
- İlk başta, Outlook uygulamasını başlatın.
- Ardından, “Alt + F11” ile VBA editörüne gidin.
- Ardından, aşağıdaki VBA kodunu bir modüle kopyalayın.
Sub AutoExportAttachmentInfo(objMail As Outlook.MailItem)
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet
Dim nLastRow As Integer
Dim objAttachment As Outlook.Attachment
If objMail.Attachments.Count > 0 Then
'Change the path to the specific Excel file
strExcelFile = "E:\Attachment Info.xlsx"
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
Set objExcelWorkbook = objExcelApp.Workbooks.Open(strExcelFile)
Set objExcelWorksheet = objExcelWorkbook.Sheets("Sheet1")
'Export Attachment info to Excel
For Each objAttachment In objMail.Attachments
nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
With objExcelWorksheet
.Cells(nLastRow, 1) = objMail.Subject
.Cells(nLastRow, 2) = objMail.SenderEmailAddress
.Cells(nLastRow, 3) = objAttachment.FileName
.Cells(nLastRow, 4) = objMail.ReceivedTime
End With
Next
objExcelWorksheet.Columns("A:C").AutoFit
objExcelWorkbook.Close True
objExcelApp.Quit
End If
End Sub
- Bundan sonra, VBA editöründen çıkın.
- Ardından, bu makroyu gelen her e-postada otomatik olarak çalıştırmak için bir kural oluşturun.
- Öncelikle, “Dosya” menüsüne gidin.
- Ardından, “Kuralları ve Uyarıları Yönet” düğmesini tıklayın.
- “Kurallar ve Uyarılar” iletişim kutusunda “Yeni Kural”a tıklayın.
- “Kural Sihirbazı” iletişim kutusunda, “Aldığım mesajlara kuralı uygula”yı seçin ve “İleri”ye tıklayın.
- Ardından, ihtiyaçlarınıza göre kural koşullarını ayarlayın ve "İleri" düğmesine basın.
- “Select Actions” adımında “Run a script”i seçin ve “AutoExportAttachmentInfo” scriptini seçin.
- Son olarak, kural kurulumunu tamamlamak için ekrandaki sihirbazları izleyin.
- Bundan sonra, posta kutunuza her yeni e-posta geldiğinde, herhangi bir eki varsa, Outlook ek bilgilerini otomatik olarak önceden tanımlanmış Excel dosyasına aktaracaktır.
Asla Şüpheli Ekleri İndirme
Hiç bilinmeyen göndericilerden gelen ve ekleri olan herhangi bir e-posta aldınız mı? Genellikle, virüslü olabileceği için bu tür eklere kolayca güvenilmemesi önerilir. Bunları indirdiğiniz sürece, Outlook verilerinize virüs bulaşabilir. O noktada, ihtiyacınız olacak Outlook'u düzelt dosya. gibi yetkin bir onarım aracına başvurmazsanız kuşkusuz düğümlüdür. DataNumen Outlook Repair.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. kurtarmak Sql Server ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com