Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String) On Error GoTo EH Dim arrEID As Variant, varEID As Variant, olkItem As Object arrEID = Split(EntryIDCollection, ",") Dim Atmt As Attachment Dim FileName As String Dim MYDOC_DIR As String: MYDOC_DIR = Environ("userprofile") & "\Documents" For Each varEID In arrEID Set olkItem = Session.GetItemFromID(varEID) If olkItem.Class = olMail Then If InStr(olkItem.Subject, "Drilling Data") > 0 Then 'Your code goes here' For Each Atmt In olkItem.Attachments FileName = MYDOC_DIR & "\Lesedi Drilling Data\" & Convert_Email(olkItem.SenderEmailAddress) & "_" & Atmt.FileName Atmt.SaveAsFile FileName Next Atmt oLoop End If If InStr(olkItem.Subject, "New Holes") > 0 Then 'Your code goes here' For Each Atmt In olkItem.Attachments FileName = MYDOC_DIR & "\Lesedi Drilling Data\New Holes\" & Convert_Email(olkItem.SenderEmailAddress) & "_" & Atmt.FileName Atmt.SaveAsFile FileName Next Atmt oNewHole End If End If Next Set olkItem = Nothing Exit Sub EH: MsgBox "There was an error processing an incoming email! " & Err.Description End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.