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

Егер сіз жаңа электрондық пошта жасағыңыз келсе және бірнеше басқа электрондық поштадағы барлық тіркемелерді жаңа поштаға қосқыңыз келсе, осы мақалада енгізілген әдісті қолдануға болады. Бұл сізге VBA-ны жел сияқты сезіну үшін қолдануға үйретеді.

Кейде сізге бірнеше электрондық поштадағы барлық тіркемелерді жаңа электрондық поштаға топтамалық түрде көшіру қажет болуы мүмкін. Әрине, мұны қолмен жасауға болады, алдымен оларды жергілікті дискіге сақтап, содан кейін жаңадан жасалған электрондық поштаға бір-бірлеп қосу арқылы таңдауға болады. Алайда, шамасы, бұл өте қиын жұмыс болады. Сондықтан неге оны тез түсіну үшін VBA-ны қолданбайсыз? Келесіде біз сізге күрделі операциялар мен тиісті VBA кодтарын ұсынамыз.

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

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

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

5. Осыдан кейін сіз жылдам қол жеткізу тақтасына жаңа VBA жобасын қосуға кірісуіңіз керек. Сіз оны «Outlook параметрлері» бөлімінде аяқтай аласыз.
6. Кейінірек сіз Outlook макроқауіпсіздік деңгейіңізді төмен деңгейге өзгертуіңіз керек.
7. Соңында сіз көріңіз.

• Біріншіден, «Ctrl» пернесін басып, тіркемелерін көшіргіңіз келетін бірнеше электрондық поштаны таңдаңыз.
• Содан кейін жылдам қол жеткізу құралдар тақтасындағы жаңа макро батырманы басыңыз.
• Бірден, барлық тіркемелермен бірге жаңа электрондық пошта пайда болады.

PST-ке қатысты жиі кездесетін мәселелер

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

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

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