Excel vba-код для пересылки сообщений электронной почты gmail в почтовых ящиках gmail

Question

Есть ли у кого-нибудь код excel vba для копирования и вставки в электронные письма gmail в почтовом ящике gmail?

Хотя есть тонны там про:

1) отправка Gmail с Excel VBA;

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

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