טיפ: שפות אחרות הן Google-Translated. אתה יכול לבקר את English גרסה של קישור זה.
התחבר
x
or
x
x
הירשם
x

or

כיצד לייבא קבצי הודעות ממערכת הקבצים לתיקיית Outlook?

בדרך כלל, אתה יכול לייבא קבצי msg ממערכת הקבצים לתיקייה של Outlook על ידי גרירה ושחרור. במאמר זה, אנחנו הולכים להראות לך שיטה קלה לייבא את כל קבצי msg ממערכת הקבצים לתיקיית Outlook שצוין בפירוט.

ייבוא ​​קבצי הודעות ממערכת הקבצים לתיקיית Outlook עם קוד VBA


שמור בקלות הודעות דוא"ל שנבחרו כקובצי פורמטים שונים ב- Outlook:

עם שמירה בשם קובץ השירות של Kutools עבור Outlook, אתה יכול בקלות לשמור מספר רב של הודעות דוא"ל נבחרות בפורמט HTML, קובץ בפורמט TXT, מסמך Word, קובץ CSV, כמו גם קובץ PDF ב- Outlook כמו המסך הבא הראה.

Kutools עבור Outlook: עם יותר מ 40 שימושי תוספות Outlook, ללא תשלום כדי לנסות ללא הגבלה 45 ימים. הורד ניסיון ללא תשלום עכשיו!


ייבוא ​​קבצי הודעות ממערכת הקבצים לתיקיית Outlook עם קוד VBA

בצע את הפעולות הבאות כדי לייבא קובצי הודעות ממערכת הקבצים לתיקייה שצוינה ב- Outlook.

1. לחץ על אחר + F11 מפתחות כדי לפתוח את Microsoft Visual Basic עבור יישומים חלון.

2. בתוך ה Microsoft Visual Basic עבור יישומים חלון, לחץ על הַבלָעָה > מודול. ואז להעתיק מתחת קוד VBA לתוך חלון מודול.

קוד VBA: ייבוא ​​קבצי הודעות ממערכת הקבצים לתיקיית Outlook

תת ImportMessagesInFolder () Dim xFSO כפי Scripting.FileSystemObject דים xSourceFld כפי Scripting.Folder דים xSourceFldPath כמחרוזת דים xFileItem כפי Scripting.File דים xMSG כאובייקט דים xMailItem כפי MailItem דים xSaveFld כפי שגיאה Outlook.Folder קורות חיים הבא Set xFSO = חדש Scripting. . FileSystemObject סט xSelFolder = CreateObject ( "Shell.Application") BrowseForFolder (0, "בחר תיקייה:", 0, 0) אם לא TypeName (xSelFolder) = "שום דבר" ואז xSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" End Sub Exit אם סט xSourceFld = xFSO.GetFolder (xSourceFldPath) סט xSaveFld = GetObject ( "", "Outlook.Application"). GetNamespace ( "MAPI"). PickFolder אם TypeName (xSaveFld) = "שום דבר" לאחר מכן עבור כל xFileItem ב xSourceFld.Files הגדר xMSG = Session.OpenSharedItem (xFileItem.Path) קבע xMailItem = xMSG.Copy xMailItem.Move xSaveFld קבע xMailItem = שום דבר xMSG.Delete הגדר xMSG = כלום הבא xFileItem הגדר xFileItem = שום דבר Set xSourceFld = none set xFSO = N סוף סוף

3. לחץ על F5 מקש להפעלת הקוד. בפתיחה תחפש את התיקייה תיבת הדו-שיח, בחר את התיקיה המכילה את קבצי msg שתייבא לתיקיית Outlook ולאחר מכן לחץ על OK לַחְצָן. ראה צילום מסך:

4. עכשיו א בחר תיקייה תיבת הדו-שיח נפתחת, בחר ב Outlook כדי לשמור את קובצי ההודעות המיובאים ולחץ על OK לַחְצָן.

לאחר מכן כל קבצי msg בתיקייה מסוימת במערכת הקבצים שלך מיובאים מיידית לתיקיית Outlook שצוינה.


מאמרים קשורים:



כלי פרודוקטיביות מומלצים

הכרטיסייה 'משרד'

כוכב זהב תביא כרטיסיות שימושיות ל- Excel ולתוכנות Office אחרות, בדיוק כמו Chrome, Firefox ו- Internet Explorer החדש.

Kutools עבור Excel

כוכב זהב מדהים! הגדל את הפרודוקטיביות שלך ב- 5 דקות. לא צריך שום כישורים מיוחדים, לשמור שעתיים כל יום!

כוכב זהב 300 תכונות חדשות עבור Excel, להפוך את Excel הרבה יותר קל ורב עוצמה:

  • מיזוג תאים / שורות / עמודות מבלי לאבד נתונים.
  • שלב ולאחד מספר גיליונות וחוברות עבודה.
  • השווה טווחים, העתק טווחים מרובים, המרת טקסט עד תאריך, יחידת המרת מטבע.
  • ספירה לפי צבעים, סכימות החלפה, מתקדם מיון ו סופר מסנן,
  • עוד בחר / הוסף / מחק / טקסט / עיצוב / קישור / תגובה / חוברות עבודה / גליונות עבודה ...

צילום מסך של Kutools עבור Excel

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.
    Amey Thombre · 10 months ago
    This is amazing and just does what i was looking for. just make sure that you have Microsoft System Runtime library selected in the references of the VBA project as Scripting object is from that library.