Sekiranya anda ingin membuat e-mel baru dan menambahkan semua lampiran dalam beberapa e-mel lain ke e-mel baru, anda boleh menggunakan kaedah yang diperkenalkan dalam artikel ini. Ia akan mengajar anda untuk menggunakan VBA untuk menjadikannya seperti angin.
Kadang kala, anda mungkin perlu menyalin semua lampiran dari banyak e-mel ke e-mel baru. Sudah tentu, anda boleh memilih untuk melakukannya secara manual, hanya dengan menyimpannya ke pemacu tempatan dan kemudian melampirkannya ke e-mel yang baru dibuat satu persatu. Namun, nampaknya, dengan cara ini, ia akan menjadi tugas yang cukup membosankan. Oleh itu, mengapa anda tidak menggunakan VBA untuk merealisasikannya dengan cepat? Berikut ini, kami akan memaparkan operasi terperinci dan kod VBA yang sesuai untuk anda.
Batch Salin Semua Lampiran dari Beberapa E-mel ke E-mel Baru
- Pada mulanya, mulakan program Outlook anda seperti biasa.
- Selanjutnya di tetingkap utama Outlook, tekan butang kekunci "Alt + F11".
- Di tetingkap "Microsoft Visual Basic for Applications" berikutnya, masukkan modul baru atau buka modul yang tidak digunakan.
- Kemudian salin dan tampal kod VBA berikut ke dalam modul sedemikian.
Sub NewEmailwithAttachmentsinSeveralEmails()
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim objAttachment As Outlook.Attachment
Dim objFileSystem As Object
Dim strFilePath As String
Dim objNewMail As Outlook.MailItem
Set objSelection = Outlook.Application.ActiveExplorer.Selection
Set objNewMail = Outlook.Application.CreateItem(olMailItem)
On Error Resume Next
For Each objMail In objSelection
For Each objAttachment In objMail.attachments
'Save all the attachments to temporary folder
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
objAttachment.SaveAsFile (strFilePath)
'Add the attachments to the new email
objNewMail.attachments.Add (strFilePath)
'Delete the temporary files
objFileSystem.DeleteFile (strFilePath)
Next
Next
'Show the new email
objNewMail.Display
End Sub
- Selepas itu, anda harus terus menambahkan projek VBA baru ke Toolbar Akses Pantas. Anda boleh melengkapkannya dalam "Pilihan Outlook".
- Nanti anda harus menukar tahap keselamatan makro Outlook anda menjadi rendah.
- Akhirnya anda boleh mencuba.
- Pertama, tekan kekunci "Ctrl" dan pilih beberapa e-mel yang lampirannya ingin anda salin.
- Kemudian tekan butang makro baru di Bar Alat Akses Pantas.
- Segera, e-mel baru akan muncul dengan semua lampiran dilampirkan.
Mencabar Isu PST Outlook Kerap
Oleh kerana masalah Outlook PST dapat berlaku sekarang dan seterusnya, anda harus menghabiskan banyak usaha untuk melindungi data PST anda. Sebagai contoh, anda sebaiknya membuat sandaran data PST anda secara berkala, sehingga anda dapat memperolehnya kembali Outlook rosak data dari sandaran tanpa berpeluh. Selain itu, anda harus menyimpan alat yang bereputasi di sekitar, seperti DataNumen Outlook Repair.
Pengenalan Pengarang:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk baiki mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com