Таңдалған тіркемелермен электрондық поштаны тек Outlook VBA арқылы қалай жылдам жіберуге болады

Тіркемелері бар Outlook электрондық поштасын қайта бағыттаған кезде, кейде барлығының орнына тек таңдалған тіркемелерді сақтағыңыз келуі мүмкін. Енді, осы мақалада біз сізге тек таңдалған тіркемелері бар хатты жылдам қайта жіберуді үйретеміз.

Стандартты жолмен, Outlook электрондық поштасын қайта жіберген кезде, барлық түпнұсқа тіркемелер қайта жіберіледі. Дегенмен, кейде барлығының орнына тек кейбір тіркемелерді қайта жібергіңіз келеді. Әдетте, электрондық поштаны әдеттегідей қайта жіберіп, қажетсіз тіркемелерді қолмен жоюға болады. Дегенмен, бұл біраз қиындық тудырады. Сондықтан, біз сізге тек таңдалған тіркемелермен электрондық поштаны қайта жіберудің әлдеқайда жылдам әдісін ұсынамыз.

Тек таңдалған тіркемелермен электрондық поштаны жылдам қайта жіберу

1. Ең басында Outlook VBA редакторын «Alt + F11» таңбашасы арқылы іске қосыңыз.
2. Содан кейін жобаға немесе модульге келесі кодты көшіріп, қойыңыз.

Sub ForwardMailWithSelectedAttachmentsOnly()
    Dim objMail As Outlook.MailItem
    Dim strTempFolder As String
    Dim strFile As String
    Dim objSelectedAttachments As Outlook.AttachmentSelection
    Dim objAttachment As Outlook.Attachment
    Dim objForward As Outlook.MailItem
 
    'Get the selected email
    Set objMail = Outlook.Application.ActiveExplorer.Selection.Item(1)
 
    'Get the selected attachments
    Set objSelectedAttachments = Outlook.Application.ActiveExplorer.AttachmentSelection
    If objSelectedAttachments.Count > 0 Then
       'Forward this email
       Set objForward = objMail.Forward
       objForward.Display
 
       'Delete all the forwarded attachments
       Do Until objForward.Attachments.Count = 0
          objForward.Attachments.Item(1).Delete
       Loop
 
       On Error Resume Next
       strTempFolder = "E:\Temp" & Format(Now, "yyymmddhhmmss") & "\"
       MkDir (strTempFolder)
 
       'Re-attach the selected attachments to the forward mail
       For Each objAttachment In objSelectedAttachments
           strFile = strTempFolder & objAttachment.FileName
           objAttachment.SaveAsFile (strFile)
           objForward.Attachments.Add (strFile)
       Next
 
       Kill strFile
    End If
End Sub

3. Содан кейін VBA редакторынан шығыңыз.
4. Осыдан кейін алдыңғы беттегі «Қосымша қадамды» орындаңызost «Outlook бағдарламасында VBA кодын қалай іске қосуға болады«Бұл макросты жылдам қол жетімді құралдар тақтасына немесе таспаға қосу үшін.
5. Ақыр соңында, сіз осы макросты көре аласыз.

• Алдымен оқу тақтасының қосулы екеніне көз жеткізіңіз.
• Содан кейін, қайта жіберу керек электрондық поштаны және тіркемелерді таңдаңыз.
• Одан кейін Жылдам кіру құралдар тақтасындағы немесе таспадағы макрос түймесін басыңыз.
• Бірден жаңа электрондық пошта көрсетіледі. Көріп отырғаныңыздай, бұл тек таңдалған тіркемелері бар қайта жіберу электрондық поштасы.

Knotty Outlook деректерінің бүлінуін түзетіңіз

Сіз Outlook апатына тап болдыңыз ба? Мұндай апаттар PST деректерінің бұзылуына әкелді ме? Егер сіз осындай мәселелерге тап болсаңыз, олардың қаншалықты қиын және қиын екенін түсінген боларсыз. Әдетте кішігірім мәселелерді Кіріс жәшігін жөндеу құралы арқылы шешуге болады. Бірақ, ауыр қиындықтар үшін, сияқты Сыбайлас жемқорлық көрінісісияқты қуаттырақ қызметтік бағдарламаны пайдалану керек DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. SQL Server бекіту және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com