Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
GlobalVarsInit
Dim olns As NameSpace
Dim InboxFolder As MAPIFolder
Dim DstFolder As MAPIFolder
Dim MailItems As Items
Dim MyClause As String
Dim Item As Object
Dim ItemDate As Date
Dim DateStamp As String
Dim FileName As String
Dim LogFile As Object
Dim i As Integer
Set LogFile = FSO.OpenTextFile(FSAPath & LogFileName, 8, True, 0)
Set olns = Application.GetNamespace("MAPI")
Dim varEntryIDs
varEntryIDs = Split(EntryIDCollection, ",")
i = -1
Do While True
lp_10:
If i >= UBound(varEntryIDs) Then
Exit Do
End If
i = i + 1
If varEntryIDs(i) = "" Then
Exit Do
End If
Set Item = Application.Session.GetItemFromID(varEntryIDs(i))
If Not TypeName(Item) = "MailItem" Then
GoTo lp_10
End If
If Item.SenderName = "EUR_AMR_SVC_365CHG" Then
Select Case Item.Subject
Case "Protocol of employee exiting"
ItemDate = Item.SentOn
DateStamp = GetDateStamp(ItemDate)
FileName = Item.Subject & "_" & DateStamp
If Hour(ItemDate) >= 12 Then
FileName = FileName & "_2" & FileExtension
Else
FileName = FileName & FileExtension
End If
Item.SaveAs Path & EmployeeFolderName & FileName, olMSG
Item.UnRead = False
Set DstFolder = olns.Folders(PersonalFolders).Folders("Figaro_Employes")
Item.Move DstFolder
LogFile.WriteLine (DateStamp & ";" & FileName)
Case "Figaro modules downloading"
Dim AnalyseRetValue As Integer
DateStamp = GetDateStamp(Item.SentOn)
FileName = Item.Attachments.Item(1).FileName
Item.Attachments.Item(1).SaveAsFile FSAPath & FileName
AnalyseRetValue = ModulesProtocolAnalyse(FileName)
FileName = Item.Subject & "_" & DateStamp
If AnalyseRetValue = -1 Then
FileName = FileName & "_Error" & FileExtension
Else
FileName = FileName & FileExtension
End If
Item.SaveAs Path & MirrorFolderName & FileName, olMSG
Item.UnRead = False
Set DstFolder = olns.Folders(PersonalFolders).Folders("Figaro_Modules")
Item.Move DstFolder
LogFile.WriteLine (DateStamp & ";" & FileName & ";" & AnalyseRetValue)
If AnalyseRetValue > 0 Then
ForwardModulesProtocol Item
End If
Case "Figaro-Oracle contracts transfering"
FigaroOracleLettersProcessing Item, "Contracts\", "Contracts", LogFile, olns
Case "Figaro-Oracle invoices transfering"
FigaroOracleLettersProcessing Item, "Invoices\", "Invoices", LogFile, olns
Case "Figaro-Oracle export sales transfering"
FigaroOracleLettersProcessing Item, "Export sales\", "Export_Sales", LogFile, olns
End Select
End If
Loop
LogFile.Close
End Sub
|
