Bəzən bir neçə qoşma olan e-poçtu yönləndirdiyiniz zaman, yönləndirərkən birbaşa qoşmaların adını dəyişmək istəyə bilərsiniz. Bu məqalə sizə Outlook VBA ilə bunu necə həyata keçirəcəyinizi öyrədəcək.
Varsayılan olaraq, Outlook göndərmə zamanı istifadəçiyə qoşmaların adını dəyişməyə icazə vermir. Buna görə də, onların adını dəyişmək istəyirsinizsə, unikal yol əvvəlcə faylları kompüterinizdə yerli qovluğa saxlamaq, sonra onların adını dəyişmək və sonra onları yönləndirici e-poçta yenidən əlavə etməkdir. Aydındır ki, bu üsul xeyli əziyyətlidir. Üstəlik, bəzən bu fayllar sizin üçün əhəmiyyətsiz ola bilər, ona görə də onları kompüterinizdə saxlamaq istəmirsiniz. Bu vəziyyətdə, birbaşa göndərilən e-poçtlarda əlavə edilmiş faylların adını dəyişməyinizə imkan verən daha sürətli üsula can atmalısınız. Aşağıdakılar Outlook VBA vasitəsilə həyata keçirmək üçün bir yanaşmadır.
E-poçtu Yönləndirərkən Qoşmaların adını dəyişdirin
- Əvvəlcə Outlook-u işə salın və "Developer" sekmesine keçin.
- Sonra tapın və "Visual Basic" düyməsini basın.
- Bundan sonra, yeni açılan pəncərədə “Daxil et” > “Modul” seçərək yeni modul açın.
- Sonradan aşağıdakı VBA kodlarını kopyalayıb ona yapışdırmalısınız.
Sub RenameAttachmentsWhenForwarding()
Dim olItem As MailItem
Dim Att As Attachment
Dim Atts As Attachments
Dim olForward As MailItem
Dim FWAtt As Attachment
Dim FWAtts As Attachments
Dim FSO As Object
Dim TempFPath As Object
Dim FilePath As String
Dim strName As String
Dim strExten As String
Dim strFile As String
Set olItem = Application.ActiveExplorer.Selection.Item(1)
Set Atts = olItem.Attachments
Set olForward = olItem.Forward
olForward.Display
On Error Resume Next
For Each Att In Atts
'Get the path to Temporary Folder
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TempFPath = FSO.GetSpecialFolder(2)
FilePath = TempFPath.Path & "\"
'Rename the attachments
strName = InputBox("Enter a new name for" & vbCrLf & Att.FileName)
'Change "4" based on the length of the attachment file extension
strExten = Right(Att.FileName, 4)
strFile = FilePath & strName & "." & strExten
If strName <> "" Then
'Save the attachments to the Temporary Folder
Att.SaveAsFile (strFile)
'Add the attachments saved in new names from the Temporary Folder
olForward.Attachments.Add (strFile)
Set FWAtts = olForward.Attachments
'Remove the original attachments
For Each FWAtt In FWAtts
If InStr(FWAtt.FileName, Att.FileName) > 0 Then
FWAtt.Delete
End If
Next
End If
Next
End Sub
- Bundan sonra, cari "Visual Basic" pəncərəsindən çıxa və hər zamanki kimi Tez Giriş Alətlər Panelinə yeni makro əlavə etməyə davam edə bilərsiniz.
- Nəhayət, bir cəhd edə bilərsiniz.
- Əvvəlcə e-poçtu seçin və sonra Tez Giriş Alətlər Panelində yeni makro düyməsini basın.
- Sonra yeni yönləndirmə e-poçtu açılacaq. Siz “Əlavə olunur” sətirində əlavə edilmiş faylları orijinal adlarla görə bilərsiniz və həmçinin müəyyən qoşma üçün yeni ad daxil etməyi tələb edən informasiya qutusu ala bilərsiniz.
- Bütün fayllar üçün yeni adlar təyin etdikdən və "OK" düyməsini sıxdıqdan sonra bütün əlavə edilmiş faylların yeni adlarda olduğunu görəcəksiniz.
- Nəhayət, göndərmə e-poçtlarını tərtib edə və mesajı göndərmək üçün "Göndər" düyməsini vura bilərsiniz.
Görünüşünüz üçün bütün potensial təhlükələrə qarşı diqqətli olun
Outlookun korrupsiyaya həssas olduğu qəbul edilir. Beləliklə, Outlook məlumatlarını virus infeksiyası, zərərli proqram hücumu və daxil olmaqla bütün təhdidlərdən qorumaq uzun müddətdir hazırlanmış bir vəzifədir Outlook PST məlumatlarının zədələnməsivə s. Ən vacib addım Outlook məlumatlarınızın müntəzəm olaraq ehtiyat nüsxəsini çıxarmaqdır. Həmçinin, yaxınlıqda ən yüksək səviyyəli təmir alətini saxlamaq ehtiyatlı olmaq lazımdır, məsələn, DataNumen Outlook Repair, bu faydalı olacaq.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş mdf təmiri və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com