نکته: زبانهای دیگر گوگل ترجمه شده اند. شما می توانید از English نسخه این لینک
ورود
x
or
x
x
ثبت نام
x

or

نحوه وارد کردن فایلهای msg از سیستم فایل به پوشه Outlook؟

به طور معمول، با کشیدن و رها کردن می توانید فایلهای msg را از سیستم فایل به یک پوشه Outlook وارد کنید. در این مقاله ما قصد داریم به شما یک روش آسان برای وارد کردن تمام فایل های پیام از یک سیستم فایل به یک پوشه مشخص شده در Outlook جزئیات.

وارد کردن فایل های msg از سیستم فایل به پوشه Outlook با کد VBA


به راحتی ایمیل های انتخاب شده را به عنوان فرمت های مختلف فرمت در Outlook ذخیره کنید.

با استفاده از ابزار ذخیره به عنوان فایل Kutools برای چشم انداز، شما به راحتی می توانید چندین ایمیل انتخاب شده را به صورت یک فایل متنی HTML، فایل فرمت TXT، سند ورد، فایل CSV و همچنین فایل PDF در Outlook ذخیره کنید.

Kutools برای چشم انداز: با بیش از 40 دستی چشم انداز افزوده، آزاد است که بدون محدودیت در روز 45 امتحان کنید. دانلود و محاکمه آزاد اکنون!


وارد کردن فایل های msg از سیستم فایل به پوشه Outlook با کد VBA

لطفا فایلهای msg را از سیستم فایل به یک پوشه مشخص شده در Outlook وارد کنید.

1 مطبوعات دگرساز + F11 کلید برای باز کردن مایکروسافت ویژوال بیسیک برای برنامه پنجره.

2. در مایکروسافت ویژوال بیسیک برای برنامه پنجره، بر روی قرار دادن > ماژول ها. سپس زیر کد VBA را در پنجره Module کپی کنید.

VBA code: وارد کردن فایلهای msg از سیستم فایل به پوشه Outlook

زیر ImportMessagesInFolder () Dim xFSO به عنوان Scripting.FileSystemObject Dim xSourceFld به عنوان Scripting.Folder Dim xSourceFldPath به عنوان String Dim xFileItem به عنوان Scripting.File دومی xMSG به عنوان شیء Dim xMailItem به عنوان MailItem Dim xSaveFld به عنوان Outlook.Folder در خطا رزومه بعدی تنظیم xFSO = جدید اسکریپت. FileSystemObject Set xSelFolder = CreateObject (Shell.Application) BrowseForFolder (0، "انتخاب یک پوشه:"، 0، 0) اگر TypeName (xSelFolder) = "هیچ چیز" پس xSourceFldPath = xSelFolder.self.Path + "\" xSourceFldPath = "" Exit Sub End اگر مجموعه xSourceFld = xFSO.GetFolder (xSourceFldPath) مجموعه xSaveFld = GetObject (""، "Outlook.Application"). GetNamespace ("MAPI"). PickFolder اگر TypeName (xSaveFld) = "هیچ چیز" سپس Exit Sub End اگر برای هر xFileItem در xSourceFld.Files تنظیم xMSG = Session.OpenSharedItem (xFileItem.Path) تنظیم xMailItem = xMSG.Copy xMailItem.Move xSaveFld مجموعه xMailItem = هیچ چیز xMSG.Delete مجموعه xMSG = هیچ چیز بعد xFileItem مجموعه xFileItem = هیچ چیز تنظیم xSourceFld = هیچ چیز تنظیم xFSO = N othing پایان زیر

3 مطبوعات F5 کلید اجرای کد. در باز کردن پوشه را مشخص نمایید کادر محاوره ای، پوشه ای را انتخاب کنید که شامل فایل msg است که به پوشه Outlook وارد می شود، و سپس روی آن کلیک کنید OK دکمه. تصویر را ببینید:

4 حالا یک پوشه را انتخاب کنید کادر محاوره ای ظاهر می شود، لطفا انتخاب کنید چشم انداز پوشه برای ذخیره فایل های پیام وارد شده، و کلیک کنید OK را فشار دهید.

سپس تمام فایلهای msg در یک پوشه خاص در سیستم فایل شما بلافاصله وارد پوشه مشخص شده Outlook می شوند.


مقالات مرتبط:



ابزارهای توصیه شده برای بهره وری

دفتر تب

gold star1 زبانه های مفید برای اکسل و دیگر نرم افزار Office، درست مانند Chrome، Firefox و اینترنت اکسپلورر جدید.

Kutools برای اکسل

gold star1 حیرت آور! بهره وری خود را در دقیقه 5 افزایش دهید. به مهارت های ویژه نیاز نداشته باشید، صرفه جویی در هر ساعت دو ساعت!

gold star1 ویژگی های جدید 300 برای اکسل، اکسل بسیار آسان و قدرتمند:

  • ادغام سلول / ردیف / ستون بدون از دست دادن داده ها.
  • ترکیب و ادغام چندین ورق و کارنامه.
  • مقایسه مقادیر، روندهای چندگانه کپی، تبدیل متن به تاریخ، تبدیل واحد و ارز.
  • شمارش توسط رنگ ها، کلیدهای پیمایش، مرتب سازی پیشرفته و سوپر فیلتر،
  • بیشتر انتخاب / قرار دادن / حذف / متن / فرمت / لینک / نظر / کتاب کار / ابزار برگه ها ...

شات Screen Kutools برای اکسل

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.