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

or
0
0
0
s2smodern

כיצד לייצא טקסט דואר אלקטרוני של Outlook לגיליון אלקטרוני של Excel?

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

ייצוא Outlook טקסט בגוף הטקסט לגיליון אלקטרוני של Excel עם קוד VBA

Kutools עבור Outlook: 100 + כלים מתקדמים חדשים עבור Outlook.
הכרטיסייה 'משרד': אפשר עריכת לשוניות וגלישה ב- Office, בדיוק כמו Chrome, Firefox, IE 8 / 9 / 10.
תפריט קלאסי: הבא תפריטים ישנים סרגלי כלים חזרה אל 2007, 2010, 2013, 2016 ו- 2019.

ייצוא Outlook טקסט בגוף הטקסט לגיליון אלקטרוני של Excel עם קוד VBA<

הפעל את קוד ה- VBA שלהלן כדי לייצא טקסט גוף נבחר של דוא"ל Outlook ל- Excel.

1. פתח את הודעת האימייל, בחר את גוף הדוא"ל שברצונך לייצא לגיליון האלקטרוני של Excel, ולאחר מכן לחץ על אחר + F11 מפתחות כדי לפתוח את Microsoft Visual Basic עבור יישומים חלון.

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

קוד VBA: ייצוא דואר אלקטרוני של Outlook בגוף הטקסט לגיליון אלקטרוני של Excel

Sub ExportToExcel()
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim xInspector As Inspector
Dim xItem As Object
Dim xMailItem As MailItem
Dim xDoc As Document
Dim xShell As Object
Dim xFilePath As String
On Error Resume Next
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseForFolder(0, "Select a Folder:", 0, 0)
    If TypeName(xFolder) = "Nothing" Then Exit Sub
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    Set xItem = Outlook.Application.ActiveExplorer.Selection.item(1)
    If xItem.Class <> olMail Then Exit Sub
    Set xMailItem = xItem
    Set xInspector = xMailItem.GetInspector
    Set xDoc = xInspector.WordEditor
    xDoc.Application.Selection.Range.Copy
    xInspector.Close olDiscard
    Set xExcel = New Excel.Application
    Set xWb = xExcel.Workbooks.Add
    Set xWs = xWb.Sheets.item(1)
    xExcel.Visible = False
    xWs.Activate
    xWs.Paste
    xWs.SaveAs xFilePath & "Email body.xlsx"
    xWb.Close True
    xExcel.Quit
    Set xWs = Nothing
    Set xWb = Nothing
    Set xExcel = Nothing
End Sub

הערות: בקוד, "אימייל body.xlsx"הוא שם חוברת העבודה שתיצור עם טקסט גוף הדוא"ל שנבחר. אתה יכול לשנות את זה על פי הצורך.

3. קליק כלים > הפניות. ואז לבדוק את שניהם ספריית אובייקטים של Microsoft Excel ו ספריית אובייקטים של Microsoft Word תיבות ב - הפניות - פרויקט תיבת דיאלוג. ראה צילום מסך:

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

עכשיו חוברת בשם "גוף הדוא"ל"נוצר ונשמר בתיקייה מסוימת. פתח את חוברת העבודה, תוכל לראות את הטקסט שנבחר בגוף הטקסט מיוצא ל- Sheet1 של חוברת העבודה.


100 + כלים ותכונות רבי עוצמה עבור Outlook 2010 / 2013 / 2016 / 2019 / Office 365:

לי כתוםתואם ל- Outlook 2010 / 2013 / 2016 / 2019 / Office 365 (32 / 64);

לי כתוםתואם עם Windows XP, Windows Vista, Windows 7 / 8 / 10, Windows Server 2003 / 2008, מערכת Citrix ו- Windows Terminal (שולחן עבודה מרוחק) שרת;

לי כתוםללא תשלום ללא הגבלה תכונה 45 ימים!

קרא עוד | הורדה חינם | קנה עכשיו

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.