Ինչպե՞ս փրկել բազմաթիվ ընտրված էլփոստերը որպես MSG ֆայլեր մեծ մասամբ Outlook- ում:

Outlook- ում էլփոստը որպես MSG ֆայլ պահպանելը հեշտ է: Ինչպե՞ս կարող եք Outlook- ում զանգվածաբար պահպանել բազմաթիվ ընտրված էլփոստեր `որպես առանձին MSG ֆայլեր: Այս հոդվածը ցույց կտա ձեզ դրան հասնելու մեթոդ:

Պահպանեք բազմաթիվ ընտրված էլփոստերը որպես MSG ֆայլեր VBA կոդով

Պահպանեք բազմաթիվ ընտրված էլփոստերը որպես MSG ֆայլեր VBA կոդով

Հաջորդ VBA կոդը կարող է օգնել ձեզ Outlook- ում զանգվածաբար պահպանել բազմաթիվ ընտրված էլփոստեր `որպես առանձին MSG ֆայլեր: Խնդրում եմ, արեք հետևյալ կերպ.

1. Ընտրեք էլփոստերը, որոնք ցանկանում եք պահպանել որպես MSG ֆայլեր: Դրանից հետո միաժամանակ սեղմեք Alt + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհանը բացելու համար:

2. Microsoft Visual Basic հավելվածների համար պատուհանում կտտացրեք Տեղադրել> Մոդուլը և այնուհետև պատճենել ներքևում գտնվող VBA կոդը Մոդուլի պատուհանում:

VBA կոդ. Outlook- ում պահեք բազմաթիվ ընտրված էլփոստեր `որպես առանձին MSG ֆայլեր

Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFileName = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
    If xObjItem.Class = olMail Then
        Set xMail = xObjItem
        xName = xMail.Subject
        xDtDate = xMail.ReceivedTime
        xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
          vbUseSystem) & Format(xDtDate, "-hhnnss", _
          vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
        xPath = xFileName + xName
        xMail.SaveAs xPath, olMSG
    End If
Next
End Sub

3. Սեղմեք F5 ստեղնը ՝ կոդն աշխատեցնելու համար:

4. Փնտրել թղթապանակի երկխոսության վանդակում խնդրում ենք նշել MSG ֆայլերը պահելու թղթապանակը, այնուհետև սեղմել OK կոճակը: Տեսեք սքրինշոթը՝

Այժմ բոլոր ընտրված նամակները պահվում են որպես առանձին MSG ֆայլեր, ինչպես ցույց է տրված ստորև նշված սքրինշոթը:

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար

🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...

📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար)  /  Ժամանակացույց ուղարկել նամակներ  /  Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով  /  Ավտոմատ փոխանցում (Ընդլայնված կանոններ)   /  Ավտոմատ ավելացնել ողջույնները   /  Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...

📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները  /  Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց  /  Deleteնջել կրկնօրինակ նամակները  /  Ընդլայնված որոնում  /  Համախմբել Թղթապանակները ...

📁 Հավելվածներ Pro: Խմբաքանակի պահպանում  /  Խմբաքանակի անջատում  /  Խմբաքանակային կոմպրես  /  Auto Save- ը   /  Ավտոմատ անջատում  /  Ավտոմատ սեղմում ...

🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ   /  Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով  /  Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...

???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով  /   Հակաֆիշինգի էլ. նամակներ  /  🕘Ցուցադրել ուղարկողի ժամային գոտին ...

👩🏼‍🤝‍👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ  /  Կոնտակտային խումբը բաժանեք առանձին խմբերի  /  Հեռացնել ծննդյան հիշեցումները ...

Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար:

Կարդալ ավելին       Անվճար ներբեռնում      Ձեռք բերել