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

or

כיצד לפתוח תיקיית Outlook ספציפית מ- Excel?

האם אי פעם ניסית לפתוח תיקיית Outlook ספציפית מקובץ Excel, כגון פתיחת תיקיית דואר נכנס, תיקיית אנשי קשר או כל תיקיה אחרת? מאמר זה, אני אדבר על איך לפתוח את תיקיית Outlook הרצוי מתוך חוברת עבודה של Excel?

פתח תיקיית Outlook ספציפית מקובץ Excel עם קוד VBA


פתח תיקיית Outlook ספציפית מקובץ Excel עם קוד VBA

קוד ה- VBA הבא יכול לעזור לך לפתוח תיקיית Outlook ספציפית מגליון Excel, אנא בצע את הפעולות הבאות:

1. ב- Excel, החזק את המקש ALT + F11 מפתחות כדי לפתוח את Microsoft Visual Basic עבור יישומים חלון.

2. לחץ הַבלָעָה > מודול, ולהדביק את המאקרו הבא חלון מודול.

קוד VBA: לפתוח תיקיית Outlook ספציפית מקובץ Excel:

Sub OpenOutlookFolder()
    Dim xOutlookApp As Outlook.Application
    Dim xNameSpace As Outlook.Namespace
    Dim xFolder As Outlook.Folder
    Dim xFolderType As OlDefaultFolders
    On Error Resume Next
    Set xOutlookApp = New Outlook.Application
    Set xNameSpace = xOutlookApp.Session
    Set xFolder = xNameSpace.GetDefaultFolder(olFolderInbox)
    xFolder.Display
    Set xFolder = Nothing
    Set xNameSpace = Nothing
    Set xOutlookApp = Nothing
    Exit Sub
End Sub

הערות: בקוד לעיל, אתה יכול לשנות את תיבת הדואר הנכנס ב הגדר xFolder = xNameSpace.GetDefaultFolder (olFolderInbox) סקריפט לכל שם תיקייה אחרת שברצונך לפתוח.

3. לאחר מכן, לחץ על כלים > הפניות ב Microsoft Visual Basic עבור יישומים חלון, בחצי הפניות-Project1 תיבת הדו שיח, לבדוק ספריית אובייקטים של Microsoft Outlook אפשרות מתוך הפניות זמינות רשימה, ראה צילום מסך:

פתח את התיקייה

4. ואז, לחץ OK כדי לסגור את תיבת הדו - שיח ולחץ על F5 מפתח להפעלת קוד זה, ותיקייה 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.

Be the first to comment.