Код Excel vba для перебора писем gmail в папке «Входящие» gmail

У кого-нибудь есть код excel vba для копирования и вставки, чтобы перебирать электронные письма Gmail в папке «Входящие» Gmail?

В то время как есть тонна там о:

1) отправка gmail с помощью excel vba;

2) перебирать электронные письма с помощью excel vba в Outlook; а также

3) перебирать электронные письма Gmail в папке «Входящие» Gmail с использованием других языков программирования;

Я не мог найти ничего, чтобы перебирать электронные письма Gmail в почтовом ящике Gmail.

Я знаю, что на самом деле прошу вполне готовый продукт. Не то чтобы я надеялся, что кто-нибудь будет так любезен написать код для меня, но я надеюсь, что у кого-то он уже есть.

После всех моих попыток настроить код, который я смог найти относительно 1), 2) и 3) выше, мне стало ясно, что мне просто нужно продолжить и опубликовать этот вопрос. (Кто знает, это может помочь и множеству других людей.)


gmail excel vba inbox
person h10b    schedule 04.05.2016    source источник
comment
Этот вопрос может лучше подходить для SuperUser.com, чем для SO. Как вы сказали, вы просите какой-то код, который у кого-то есть. У вас также есть три вопроса - 1 возможен, у Google много результатов для этого 2, вероятно, возможно, просто используйте VBA в Outlook (зачем использовать Excel?), 3, вероятно, довольно сложно, поскольку почтовый ящик gmail находится в Интернете. Кроме того, какой код вы пробовали? Пожалуйста, опубликуйте, что вы сделали, так как SO не является кодом для меня, или дайте мне сайт типа кода. См. как спросить.   -  person BruceWayne    schedule 04.05.2016

Ответы (1)


arrow_upward
0
arrow_downward

Вам просто нужно использовать имена папок, проверьте следующее

Sub SetFlagIcon()
    Dim mpfInbox As Outlook.Folder
    Dim obj As Outlook.MailItem
    Dim i As Integer
    Set mpfInbox = Application.GetNamespace("MAPI").Folders("[email protected]").Folders("[Gmail]").Folders("Sent Mail")
    ' Loop all items in the Inbox\Test Folder
    For i = 1 To mpfInbox.Items.Count
        If mpfInbox.Items(i).Class = olMail Then
            Set obj = mpfInbox.Items.Item(i)
            For Each Recipient In obj.Recipients
                If Recipient.Address = "[email protected]" Then
                    'Set the yellow flag icon
                    obj.FlagIcon = olYellowFlagIcon
                    obj.Save
                End If
            Next Recipient
        End If
    Next
End Sub
person Jeanno    schedule 04.05.2016