Question

有没有人有excel vba代码来复制和粘贴到gmail收件箱中的gmail电子邮件循环？

虽然有很多关于：

1）使用excel vba发送gmail;

2）在Outlook中使用excel vba循环播放电子邮件;和

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("john.smith@gmail.com").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 = "myfriend@hotmail.com" Then
                    'Set the yellow flag icon
                    obj.FlagIcon = olYellowFlagIcon
                    obj.Save
                End If
            Next Recipient
        End If
    Next
End Sub

Excel vba代码在gmail收件箱中循环播放gmail电子邮件

1 个答案: