Excel VBA-Code zum Durchschleifen von Gmail-E-Mails im Gmail-Posteingang

Question

Hat jemand Excel VBA-Code zu kopieren und einfügen, um Gmail-E-Mails in einem Gmail-Posteingang durchlaufen?

während es eine Tonne heraus dort über:

1) das Senden gmail mit Excel VBA;

2) Durchlaufen von E-Mails mit Excel VBA in Outlook; und

3) Durchschleifen von Gmail-E-Mails in einem Gmail-Posteingang mit anderen Programmiersprachen;

Ich konnte nichts finden, um Gmail-E-Mails in einem Gmail-Posteingang zu durchlaufen.

Ich weiß, ich frage eigentlich nach dem fertigen Produkt. Es ist nicht so, dass ich hoffe, dass jemand so freundlich wäre, den Code für mich zu schreiben, aber ich hoffe, dass es jemand schon hat.

Nach all meinen Versuchen, den Code zu optimieren, den ich relativ zu 1), 2) und 3) oben finden konnte, wurde mir klar, dass ich nur weitermachen und diese Frage posten muss. (Wer weiß, kann es auch eine Menge anderer Leute helfen.)

Answer 1

Sie müssen nur die Namen des Ordners verwenden, überprüfen Sie die folgenden

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