在gmail收件箱中循环浏览gmail电子邮件的Excel vba代码

Question

有人有excel vba代码可以复制并粘贴到gmail收件箱中的gmail电子邮件中吗？

虽然有很多关于

1） 用excel vba发送gmail；

2） 使用outlook中的excelvba循环浏览电子邮件；和

3） 使用其他编程语言在gmail收件箱中循环浏览gmail电子邮件；

我在gmail收件箱中找不到任何可以循环浏览gmail电子邮件的内容。

我知道我实际上是在要求成品。我并不是希望有人能为我写代码，但我希望有人可能已经有了。

在我尝试了所有关于上面1）、2）和3）的代码调整之后，我清楚地意识到，我只需要继续发布这个问题。（谁知道呢，它可能也会帮助很多其他人。）

Answer 1

您只需要使用文件夹的名称，检查以下

Sub SetFlagIcon()
    Dim mpfInbox As Outlook.Folder
    Dim obj As Outlook.MailItem
    Dim i As Integer
    Set mpfInbox = Application.GetNamespace("MAPI").Folders("[e-mail]").Folders("[Gmail]").Folders("Sent Mail")
    ' Loop all items in the InboxTest 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 = "[e-mail]" Then
                    'Set the yellow flag icon
                    obj.FlagIcon = olYellowFlagIcon
                    obj.Save
                End If
            Next Recipient
        End If
    Next
End Sub