In My project, I would like to automate The following task in my work place :
- Mails Triaging this task consist to read the email , detect the language of the email and send the email in particular folder in Outlook. lets say the Inbox have two emails one English and another in French .
the program should send the email for example to Jack EN for English emails and Julie FR For french emails.
So far I have this what I have :
Sub TriageEmails() Dim myolApp As Outlook.Application Dim aItem As Object Set myolApp = CreateObject ("Outlook.Application") Set mail = myolApp.ActiveExplorer.CurrentFolder For Each AItem In mail.Items `i guess the code will be here Next aItem End Sub