Как вытащить электронную почту из outlook, чтобы преуспеть, не теряя формат таблицы - PullRequest
Новая
       7

Как вытащить электронную почту из outlook, чтобы преуспеть, не теряя формат таблицы

0 голосов
/ 24 августа 2018

У меня есть макрос, который помогает мне получать письма при вводе имени папки. У меня есть контент, но он теряет формат. 

Option Explicit

Sub Outlook_Import()
    Dim O As Outlook.Application
    Set O = New Outlook.Application
    Dim ns As Namespace

    Set ns = GetNamespace("MAPI")
    Dim Inbox As MAPIFolder
    Set Inbox = ns.GetDefaultFolder(olFolderInbox)

    Dim searchFolder As String
    searchFolder = InputBox("What is your subfolder name?")

    Dim subFolder As MAPIFolder

    Dim oMail As Outlook.MailItem
    Set oMail = O.CreateItem(olMailItem)

    Dim FileName As String
    Dim i As Integer
    Dim r As Long
    r = 2

    If searchFolder <> "inbox" Then
        Set subFolder = Inbox.Folders(searchFolder)
        i = 0

        If subFolder.Items.Count = 0 Then
            MsgBox "There are no messages in the Inbox."
            Exit Sub
        End If

        For Each oMail In subFolder.Items
            Cells(r, 1).Value = oMail.ReceivedTime
            Cells(r, 2).Value = oMail.Body
            r = r + 1
            i = i + 1
        Next oMail
    Else
        i = 0
        If Inbox.Items.Count = 0 Then
            MsgBox "There are no messages in the Inbox."
            Exit Sub
        End If

        On Error Resume Next

        For Each oMail In subFolder.Items
            Cells(r, 1).Value = oMail.ReceivedTime
            Cells(r, 2).Value = oMail.Body
            r = r + 1
            i = i + 1
        Next oMail
    End If 
End Sub

Может ли кто-нибудь помочь мне изменить код, чтобы я не терял содержание тела письма. Моя цель - получить письма из определенной папки в outlook на excel, после чего я смогу отслеживать .

Спасибо.

...