by Clint Brown
I was recently asked for some help with emailing Inventor Part files for review, and I came up with a bit of iLogic code to help.
The idea is to first check that the current document is a part file, to then roll up the end of part, as this reduces the file size ( if you are not familiar with this principle, see Autodesk MFG Blog for more info), and to then attach the file to an email automatically.
The file type check I have used is very simple, yet effective, in my code, I look for the document type "
kPartDocumentObject" which tells me that this is indeed a part file.
Rolling up the EOP is relatively simple. The code below will do this for you, incidentally, if you change the (True) at the end of the line to (False), it will roll it back down for you.
On the email front, I based my code on some work that Curtis Waguespack did in his blog post "Using Inventor iLogic to Create E-Mail Notifications with Outlook" I have formatted the email in such a way that the user does not need to specify anything more than the name of the person they wish to email, and their email address, the code does the rest.
The video below shows how the code works, and the code is located at the bottom of the blog post.
'------- Start of iLogic code ------------------- 'Email Part of the Code adapted by Clint Brown @ClintCadline from Curtis Waguespack's blog 'http://inventortrenches.blogspot.co.uk/2011/04/using-inventor-ilogic-to-create-e-mail.html 'Ensure that this is a part file, exit on other files oDoc = ThisDoc.ModelDocument If oDoc.DocumentType = kPartDocumentObject OType = 1 Else OType = 0 End If If OType = 0 MessageBox.Show("Email Code will only run on Part files", "Cadline") Return End If 'Roll up end of Part ThisDoc.Document.ComponentDefinition.SetEndOfPartToTopOrBottom(True) 'Create Email Contents oPerson = InputBox("Specify name of person you are sending the email to", "Cadline", "") oEmailAddress = InputBox("Specify Email address", "Cadline", "") oOApp = CreateObject("Outlook.Application") oOMail = oOApp.CreateItem(olMailItem) oAdressee = "Dear " + oPerson & vbLf & vbLf & "Attached please find '" oFileName = ThisDoc.FileName + "' for review" & vbLf & vbLf & "Kind Regards" oFrom = iProperties.Value("Summary", "Author") 'Create Email & Add Attachments With oOMail .To = oEmailAddress .Subject = "Please review " + ThisDoc.FileName .Body = oAdressee + oFileName & vbLf & vbLf & oFrom objOutlookAttach = .Attachments.Add(ThisDoc.PathAndFileName(True)) .Display End With '------- end of iLogic code -------------------