2016-05-04 12 views
0

Gmailの受信トレイにあるGmailのメールをループしてコピーするには、Excelのvbaコードは、Gmailの受信トレイにあるGmailのメールをループします。

トン、約そこにあるが:エクセルVBAでGmailを送信

1)。

2)OutlookでExcel vbaを使用して電子メールでループする。他のプログラミング言語を使用してgmailの受信トレイにGmailメールをループする。

Gmailの受信トレイにあるGmailのメールをループするものが見つかりませんでした。

私は実際に完成した製品を求めています。誰かが私のためにコードを書くほど親切であることを望んでいるわけではありませんが、誰かがそれをすでに持っていることを望んでいます。

上記の1)、2)および3)に関連するコードを修正しようとした私の試みがすべて終わり、この質問を投稿するだけで済むことが明らかになりました。 (それはあまりにも他の人々のトンを助けるかもしれない、知っている。)

+0

、フォルダの名前を使用する必要があります](http://superuser.com/)よりも優れています。あなたが述べたように、あなたは誰かが持っているコードを要求しています。あなたにも3つの質問があります.1つは可能ですが、[Google](https://www.google.com/search?q=VBA+gmail&oq=VBA+gmail)には十分な結果があります。おそらく2つあります.VBAをOutlook(なぜExcelを経由するの?)は、gmailの受信トレイがWebベースであるため、おそらくかなり難しいでしょう。また、どのようなコードを試しましたか? SOは "私のためのコード"や "私にコードを渡す"タイプのサイトではないので、あなたがやったことを投稿してください。 [質問する方法](http://stackoverflow.com/help/how-to-ask)を参照してください。 – BruceWayne

答えて

0

あなたはちょうどこの質問は[SuperUser.comに適しかもしれ下記をご確認ください

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 
関連する問題