lesnoagency.blogg.se

'Range("B" & i).Value = olMail. You can see which messages have gone out by looking in your Sent Items folder. 'Range("A" & i).Value = olMail.Subject ' <- output email name to column A If you close Outlook or log off, the messages will not go out. If olMail.Subject Like "*Task Completed*" Then ' check if mail subject contains "Task Completed" in the email title Set Fldr = olNs.GetDefaultFolder(olFolderSentMail)

I've added 2 lines of code, that output all matching emails to your worksheet in Column A and Column B. To look for "Task Completed" string somewhere in the email's title, use If olMail.Subject Like "*Task Completed*" Then (adding the wildcard * before and after the searched string). In order to loop through all items in Sent Items folder, including Calendar events you may have, use the Dim olMail As Object (instead of AS Outlook.MailItem).