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