Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i arbed nifer o negeseuon e-bost dewisol fel ffeiliau MSG mewn swmp yn Outlook?

Mae'n hawdd achub e-bost fel ffeil MSG yn Outlook. Sut allwch chi arbed nifer o negeseuon e-bost dewisol fel ffeiliau MSG unigol mewn swmp yn Outlook? Bydd yr erthygl hon yn dangos dull i chi ei gyflawni.

Arbed nifer o negeseuon e-bost dewisol fel ffeiliau MSG gyda chod VBA


Yn hawdd arbed negeseuon e-bost dewisedig fel ffeiliau fformat gwahanol yn Outlook:

Gyda'r cyfleustodau Save as File o Kutools ar gyfer Outlook, gallwch chi arbed ffeil fformat HTML unigol, ffeil fformat TXT, dogfen Word, ffeil CSV yn ogystal â ffeil PDF yn Outlook fel y dangosir isod.

Kutools ar gyfer Outlook: gyda mwy na 40 Outlook ategol defnyddiol, yn rhad ac am ddim i geisio heb gyfyngiad mewn diwrnodau 45. Lawrlwythwch a threial am ddim Nawr!


Arbed nifer o negeseuon e-bost dewisol fel ffeiliau MSG gyda chod VBA

Gall y cod VBA canlynol eich helpu chi i arbed nifer o negeseuon e-bost dewisol fel ffeiliau MSG unigol mewn swmp yn Outlook. Gwnewch fel a ganlyn.

1. Dewiswch y negeseuon e-bost yr ydych am eu cadw fel ffeiliau MSG. Yna, pwyswch yr allweddi Alt + F11 ar yr un pryd i agor ffenestr Microsoft Visual Basic for Applications.

2. Yn y ffenestr Microsoft Visual Basic for Applications, cliciwch Insert> Module, ac yna copi isod y cod VBA i mewn i ffenestr y Modiwl.

Cod VBA: Arbed negeseuon e-bost dewisol lluosog fel ffeiliau MSG unigol yn Outlook

Public Sub SaveMessageAsMsg () 'Diweddariad gan Extendoffice 2018 / 3 / 5 Dim xMail Fel Outlook.MailItem Dim xObjItem Fel Gwrthwynebiad Dim XPath As String Dim xDtDate Fel Dyddiad Dim xName, xFileName Wrth i String On Error Eilyngu Nesaf Set xShell = CreateObject ("Shell. Cais ") Set xFolder = xShell.BrowseForFolder (0," Dewiswch ffolder: ", 0, strStartingFolder) Os nad yw TypeName (xFolder) =" Dim "Yna Set xFolderItem = xFolder.self xFileName = xFolderItem.Path &" \ "Else xFileName = "" Is-Ddechrau Ymadael Os Ar gyfer pob xObjItem Yn Outlook.ActiveExplorer.Selection Os xObjItem.Class = olMail Yna Set xMail = xObjItem xName = xMail.Subject xDtDate = xMail.ReceivedTime xName = Fformat (xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _ vbUseSystem) a Fformat (xDtDate, "-hhnnss", _ vbUseSystemDayOfWeek, vbUseSystem) a "-" & xName & ".msg" xPath = xFileName + xName xMail.SaveAs xPath, olMSG Diwedd Os Nesaf Diwedd Nesaf

3. Gwasgwch yr allwedd F5 i redeg y cod.

4. Yn y blwch deialu Por Pori Ffolder, rhowch ffolder i gadw'r ffeiliau MSG ac yna cliciwch ar y botwm OK. Gweler y sgrin:

Nawr caiff pob neges e-bost dethol ei chadw fel ffeiliau MSG unigol fel y dangosir y sgrin isod.



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    LBJ · 1 months ago
    When there is a ":" in the subject, this code cannot copy the whole subject to be the name of the saved message, is there any way to solve this problem?
    • To post as a guest, your comment is unpublished.
      Daniel · 27 days ago
      change line 21 to xName="". The saved message filname will not include the subject anymore.