<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: Send all files in a folder as e mail attach with folder path in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/send-all-files-in-a-folder-as-e-mail-attach-with-folder-path/m-p/11990680#M153128</link>
    <description>&lt;P&gt;There is an some arrangement. I added the possibility to add an .dwg file with the use of an custom text parameter. When you run the code an arraylist will pop up with the option with person to contact. The email program used is Outlook.&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;'Messagebox open outlook. If incorrect program will crash.&lt;/SPAN&gt;
&lt;SPAN&gt;Question_1&lt;/SPAN&gt;=&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Is outlook open?"&lt;/SPAN&gt;, &lt;SPAN&gt;"DMF Automation"&lt;/SPAN&gt;,&lt;SPAN&gt;MessageBoxButtons&lt;/SPAN&gt;.&lt;SPAN&gt;YesNoCancel&lt;/SPAN&gt;,&lt;SPAN&gt;MessageBoxIcon&lt;/SPAN&gt;.&lt;SPAN&gt;Question&lt;/SPAN&gt;)
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Question_1&lt;/SPAN&gt;=&lt;SPAN&gt;vbNo&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;Proc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;"Outlook.exe"&lt;/SPAN&gt;
	&lt;SPAN&gt;Process&lt;/SPAN&gt;.&lt;SPAN&gt;Start&lt;/SPAN&gt;(&lt;SPAN&gt;Proc&lt;/SPAN&gt;)
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Question_1&lt;/SPAN&gt; = &lt;SPAN&gt;vbCancel&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
	&lt;SPAN&gt;Exit&lt;/SPAN&gt; &lt;SPAN&gt;Sub&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
&lt;SPAN&gt;'Contact list&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oUser&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;New&lt;/SPAN&gt; &lt;SPAN&gt;ArrayList&lt;/SPAN&gt;
&lt;SPAN&gt;'Contact list namelist&lt;/SPAN&gt;
&lt;SPAN&gt;'Change "NAME" to your wanted contact name&lt;/SPAN&gt;
&lt;SPAN&gt;oUser&lt;/SPAN&gt;.&lt;SPAN&gt;Add&lt;/SPAN&gt;(&lt;SPAN&gt;"NAME"&lt;/SPAN&gt;)
&lt;SPAN&gt;oUser&lt;/SPAN&gt;.&lt;SPAN&gt;Add&lt;/SPAN&gt;(&lt;SPAN&gt;"NAME"&lt;/SPAN&gt;)
&lt;SPAN&gt;'&lt;/SPAN&gt;
&lt;SPAN&gt;oUser&lt;/SPAN&gt;.&lt;SPAN&gt;Add&lt;/SPAN&gt;(&lt;SPAN&gt;""&lt;/SPAN&gt;)
&lt;SPAN&gt;oUser&lt;/SPAN&gt;.&lt;SPAN&gt;Add&lt;/SPAN&gt;(&lt;SPAN&gt;"Other"&lt;/SPAN&gt;)
&lt;SPAN&gt;u1&lt;/SPAN&gt;  = &lt;SPAN&gt;InputListBox&lt;/SPAN&gt;(&lt;SPAN&gt;""&lt;/SPAN&gt;, &lt;SPAN&gt;oUser&lt;/SPAN&gt;, &lt;SPAN&gt;oUser&lt;/SPAN&gt;, &lt;SPAN&gt;Title&lt;/SPAN&gt; := &lt;SPAN&gt;"Title"&lt;/SPAN&gt;, &lt;SPAN&gt;ListName&lt;/SPAN&gt; := &lt;SPAN&gt;"Email exporter"&lt;/SPAN&gt;)

&lt;SPAN&gt;'Emailadres&lt;/SPAN&gt;
&lt;SPAN&gt;'Put in the same contact name as before at the place "NAME" and email adres that at "EMAILADRES" &lt;/SPAN&gt;
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;u1&lt;/SPAN&gt; = &lt;SPAN&gt;"NAME"&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt; : &lt;SPAN&gt;o1&lt;/SPAN&gt; = &lt;SPAN&gt;"EMAILADRES"&lt;/SPAN&gt; : &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;u1&lt;/SPAN&gt; = &lt;SPAN&gt;"NAME"&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;: &lt;SPAN&gt;o1&lt;/SPAN&gt; = &lt;SPAN&gt;"EMAILADRES"&lt;/SPAN&gt; : &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;u1&lt;/SPAN&gt;  = &lt;SPAN&gt;""&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt; : &lt;SPAN&gt;Return&lt;/SPAN&gt;: &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;u1&lt;/SPAN&gt;  = &lt;SPAN&gt;"Other"&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt; : &lt;SPAN&gt;o1&lt;/SPAN&gt; = &lt;SPAN&gt;""&lt;/SPAN&gt; : &lt;SPAN&gt;u1&lt;/SPAN&gt;  = &lt;SPAN&gt;""&lt;/SPAN&gt; :&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

&lt;SPAN&gt;'Run PDF code&lt;/SPAN&gt;
&lt;SPAN&gt;iLogicVb&lt;/SPAN&gt;.&lt;SPAN&gt;RunRule&lt;/SPAN&gt;(&lt;SPAN&gt;"PDF"&lt;/SPAN&gt;)

&lt;SPAN&gt;'Create Email Contents&lt;/SPAN&gt;
&lt;SPAN&gt;oPerson&lt;/SPAN&gt; = &lt;SPAN&gt;u1&lt;/SPAN&gt; 
&lt;SPAN&gt;oEmailAddress&lt;/SPAN&gt; = &lt;SPAN&gt;o1&lt;/SPAN&gt;
&lt;SPAN&gt;oOApp&lt;/SPAN&gt; = &lt;SPAN&gt;CreateObject&lt;/SPAN&gt;(&lt;SPAN&gt;"Outlook.Application"&lt;/SPAN&gt;)
&lt;SPAN&gt;oOMail&lt;/SPAN&gt; = &lt;SPAN&gt;oOApp&lt;/SPAN&gt;.&lt;SPAN&gt;CreateItem&lt;/SPAN&gt;(&lt;SPAN&gt;olMailItem&lt;/SPAN&gt;)
&lt;SPAN&gt;oAdressee&lt;/SPAN&gt; = &lt;SPAN&gt;"Dear "&lt;/SPAN&gt; + &lt;SPAN&gt;oPerson&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;vbLf&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;vbLf&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"You can see the drawings in the appendix. These relate to project:"&lt;/SPAN&gt; + &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt;
&lt;SPAN&gt;oFileName&lt;/SPAN&gt; = &lt;SPAN&gt;vbLf&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;vbLf&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"Best regrads,"&lt;/SPAN&gt;
&lt;SPAN&gt;oFrom&lt;/SPAN&gt; = &lt;SPAN&gt;iProperties&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Summary"&lt;/SPAN&gt;, &lt;SPAN&gt;"Author"&lt;/SPAN&gt;)
&lt;SPAN&gt;With&lt;/SPAN&gt; &lt;SPAN&gt;oOMail&lt;/SPAN&gt;
	.&lt;SPAN&gt;To&lt;/SPAN&gt; = &lt;SPAN&gt;oEmailAddress&lt;/SPAN&gt;
	.&lt;SPAN&gt;Subject&lt;/SPAN&gt; = &lt;SPAN&gt;"Project: "&lt;/SPAN&gt; + &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt; 
	.&lt;SPAN&gt;Body&lt;/SPAN&gt; = &lt;SPAN&gt;oAdressee&lt;/SPAN&gt; + &lt;SPAN&gt;oFileName&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;vbLf&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;vbLf&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;oFrom&lt;/SPAN&gt;
	&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;PDF_mail&lt;/SPAN&gt;=&lt;SPAN&gt;"Ja"&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
	&lt;SPAN&gt;objOutlookAttach&lt;/SPAN&gt; = .&lt;SPAN&gt;Attachments&lt;/SPAN&gt;.&lt;SPAN&gt;Add&lt;/SPAN&gt;(&lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt; + &lt;SPAN&gt;"\WT.pdf"&lt;/SPAN&gt;)
	&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt; 
	&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;DWG_mail&lt;/SPAN&gt;=&lt;SPAN&gt;"Ja"&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
	&lt;SPAN&gt;objOutlookAttach&lt;/SPAN&gt; = .&lt;SPAN&gt;Attachments&lt;/SPAN&gt;.&lt;SPAN&gt;Add&lt;/SPAN&gt;(&lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt; + &lt;SPAN&gt;"\"&lt;/SPAN&gt; + &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt; + &lt;SPAN&gt;".dwg"&lt;/SPAN&gt;)
	&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt; 
	.&lt;SPAN&gt;Display&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;With&lt;/SPAN&gt;&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&lt;/P&gt;</description>
    <pubDate>Fri, 26 May 2023 07:28:23 GMT</pubDate>
    <dc:creator>MichaëlStienstra</dc:creator>
    <dc:date>2023-05-26T07:28:23Z</dc:date>
    <item>
      <title>Send all files in a folder as e mail attach with folder path</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/send-all-files-in-a-folder-as-e-mail-attach-with-folder-path/m-p/5664077#M56431</link>
      <description>&lt;P&gt;i made a iLogic rule to run my Outlook, and attach a PDF in a single e mail.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;'------- Start of iLogic code -------------------&lt;BR /&gt;'Email Part of the Code adapted by Clint Brown @ClintCadline from Curtis Waguespack's blog&lt;BR /&gt;'&lt;A href="http://inventortrenches.blogspot.co.uk/2011/04/using-inventor-ilogic-to-create-e-mail.html" target="_blank"&gt;http://inventortrenches.blogspot.co.uk/2011/04/using-inventor-ilogic-to-create-e-mail.html&lt;/A&gt;&lt;/P&gt;
&lt;P&gt;'Ensure that this is a part file, exit on other files&lt;BR /&gt;oDoc = ThisDoc.ModelDocument&lt;BR /&gt;If oDoc.DocumentType = kPartDocumentObject&lt;BR /&gt;OType = 1&lt;BR /&gt;Else &lt;BR /&gt;OType = 0&lt;BR /&gt;End If&lt;BR /&gt;If OType = 0&lt;BR /&gt;MessageBox.Show("Email Code will only run on Part files", "Cadline")&lt;/P&gt;
&lt;P&gt;Return&lt;BR /&gt;End If&lt;/P&gt;
&lt;P&gt;'Roll up end of Part&lt;BR /&gt;ThisDoc.Document.ComponentDefinition.SetEndOfPartToTopOrBottom(True)&lt;/P&gt;
&lt;P&gt;'Create Email Contents&lt;/P&gt;
&lt;P&gt;&lt;BR /&gt;oOApp = CreateObject("Outlook.Application")&lt;BR /&gt;oOMail = oOApp.CreateItem(olMailItem)&lt;BR /&gt;oAdressee = "Dear " + oPerson &amp;amp; vbLf &amp;amp; vbLf &amp;amp; "Attached please find '"&lt;BR /&gt;oFileName = ThisDoc.FileName + "' for review" &amp;amp; vbLf &amp;amp; vbLf &amp;amp; "Kind Regards"&lt;BR /&gt;oFrom = iProperties.Value("Summary", "Author")&lt;BR /&gt;'Create Email &amp;amp; Add Attachments&lt;BR /&gt;With oOMail&lt;BR /&gt;'.To = ajovicic@yahoo.com&lt;BR /&gt;.Subject = "Glas position " &amp;amp; AAA&lt;BR /&gt;.Body = "Hallo"&lt;BR /&gt;.attachments.Add ("C:\Users\user\Desktop\Neuer Ordner\Ablehnung der ZAV an Fieger am 29.01.2015.pdf")&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;.Display&lt;/P&gt;
&lt;P&gt;End With&lt;BR /&gt;'------- end of iLogic code -------------------&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;.attachments.Add ("C:\Users\user\Desktop\Neuer Ordner\Ablehnung der ZAV an Fieger am 29.01.2015.pdf") - here is a example for arrach a single PDF file&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;But is it posible to attach all files in a folder in a single e mail. Withot the PathFile&lt;/P&gt;
&lt;P&gt;Just like a Folder Path, and he attachs all PDFs or STPs in this folder&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Thank you!&lt;/P&gt;</description>
      <pubDate>Thu, 04 Jun 2015 10:27:24 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/send-all-files-in-a-folder-as-e-mail-attach-with-folder-path/m-p/5664077#M56431</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2015-06-04T10:27:24Z</dc:date>
    </item>
    <item>
      <title>Re: Send all files in a folder as e mail attach with folder path</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/send-all-files-in-a-folder-as-e-mail-attach-with-folder-path/m-p/5665488#M56451</link>
      <description>&lt;P&gt;Use a combination of a folder dialog and System.IO.Files.GetFiles(oFolderDialogresults, "*.pdf")&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Thu, 04 Jun 2015 23:19:19 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/send-all-files-in-a-folder-as-e-mail-attach-with-folder-path/m-p/5665488#M56451</guid>
      <dc:creator>MechMachineMan</dc:creator>
      <dc:date>2015-06-04T23:19:19Z</dc:date>
    </item>
    <item>
      <title>Re: Send all files in a folder as e mail attach with folder path</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/send-all-files-in-a-folder-as-e-mail-attach-with-folder-path/m-p/11990680#M153128</link>
      <description>&lt;P&gt;There is an some arrangement. I added the possibility to add an .dwg file with the use of an custom text parameter. When you run the code an arraylist will pop up with the option with person to contact. The email program used is Outlook.&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;'Messagebox open outlook. If incorrect program will crash.&lt;/SPAN&gt;
&lt;SPAN&gt;Question_1&lt;/SPAN&gt;=&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Is outlook open?"&lt;/SPAN&gt;, &lt;SPAN&gt;"DMF Automation"&lt;/SPAN&gt;,&lt;SPAN&gt;MessageBoxButtons&lt;/SPAN&gt;.&lt;SPAN&gt;YesNoCancel&lt;/SPAN&gt;,&lt;SPAN&gt;MessageBoxIcon&lt;/SPAN&gt;.&lt;SPAN&gt;Question&lt;/SPAN&gt;)
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Question_1&lt;/SPAN&gt;=&lt;SPAN&gt;vbNo&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;Proc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;"Outlook.exe"&lt;/SPAN&gt;
	&lt;SPAN&gt;Process&lt;/SPAN&gt;.&lt;SPAN&gt;Start&lt;/SPAN&gt;(&lt;SPAN&gt;Proc&lt;/SPAN&gt;)
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Question_1&lt;/SPAN&gt; = &lt;SPAN&gt;vbCancel&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
	&lt;SPAN&gt;Exit&lt;/SPAN&gt; &lt;SPAN&gt;Sub&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
&lt;SPAN&gt;'Contact list&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oUser&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;New&lt;/SPAN&gt; &lt;SPAN&gt;ArrayList&lt;/SPAN&gt;
&lt;SPAN&gt;'Contact list namelist&lt;/SPAN&gt;
&lt;SPAN&gt;'Change "NAME" to your wanted contact name&lt;/SPAN&gt;
&lt;SPAN&gt;oUser&lt;/SPAN&gt;.&lt;SPAN&gt;Add&lt;/SPAN&gt;(&lt;SPAN&gt;"NAME"&lt;/SPAN&gt;)
&lt;SPAN&gt;oUser&lt;/SPAN&gt;.&lt;SPAN&gt;Add&lt;/SPAN&gt;(&lt;SPAN&gt;"NAME"&lt;/SPAN&gt;)
&lt;SPAN&gt;'&lt;/SPAN&gt;
&lt;SPAN&gt;oUser&lt;/SPAN&gt;.&lt;SPAN&gt;Add&lt;/SPAN&gt;(&lt;SPAN&gt;""&lt;/SPAN&gt;)
&lt;SPAN&gt;oUser&lt;/SPAN&gt;.&lt;SPAN&gt;Add&lt;/SPAN&gt;(&lt;SPAN&gt;"Other"&lt;/SPAN&gt;)
&lt;SPAN&gt;u1&lt;/SPAN&gt;  = &lt;SPAN&gt;InputListBox&lt;/SPAN&gt;(&lt;SPAN&gt;""&lt;/SPAN&gt;, &lt;SPAN&gt;oUser&lt;/SPAN&gt;, &lt;SPAN&gt;oUser&lt;/SPAN&gt;, &lt;SPAN&gt;Title&lt;/SPAN&gt; := &lt;SPAN&gt;"Title"&lt;/SPAN&gt;, &lt;SPAN&gt;ListName&lt;/SPAN&gt; := &lt;SPAN&gt;"Email exporter"&lt;/SPAN&gt;)

&lt;SPAN&gt;'Emailadres&lt;/SPAN&gt;
&lt;SPAN&gt;'Put in the same contact name as before at the place "NAME" and email adres that at "EMAILADRES" &lt;/SPAN&gt;
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;u1&lt;/SPAN&gt; = &lt;SPAN&gt;"NAME"&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt; : &lt;SPAN&gt;o1&lt;/SPAN&gt; = &lt;SPAN&gt;"EMAILADRES"&lt;/SPAN&gt; : &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;u1&lt;/SPAN&gt; = &lt;SPAN&gt;"NAME"&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;: &lt;SPAN&gt;o1&lt;/SPAN&gt; = &lt;SPAN&gt;"EMAILADRES"&lt;/SPAN&gt; : &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;u1&lt;/SPAN&gt;  = &lt;SPAN&gt;""&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt; : &lt;SPAN&gt;Return&lt;/SPAN&gt;: &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;u1&lt;/SPAN&gt;  = &lt;SPAN&gt;"Other"&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt; : &lt;SPAN&gt;o1&lt;/SPAN&gt; = &lt;SPAN&gt;""&lt;/SPAN&gt; : &lt;SPAN&gt;u1&lt;/SPAN&gt;  = &lt;SPAN&gt;""&lt;/SPAN&gt; :&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

&lt;SPAN&gt;'Run PDF code&lt;/SPAN&gt;
&lt;SPAN&gt;iLogicVb&lt;/SPAN&gt;.&lt;SPAN&gt;RunRule&lt;/SPAN&gt;(&lt;SPAN&gt;"PDF"&lt;/SPAN&gt;)

&lt;SPAN&gt;'Create Email Contents&lt;/SPAN&gt;
&lt;SPAN&gt;oPerson&lt;/SPAN&gt; = &lt;SPAN&gt;u1&lt;/SPAN&gt; 
&lt;SPAN&gt;oEmailAddress&lt;/SPAN&gt; = &lt;SPAN&gt;o1&lt;/SPAN&gt;
&lt;SPAN&gt;oOApp&lt;/SPAN&gt; = &lt;SPAN&gt;CreateObject&lt;/SPAN&gt;(&lt;SPAN&gt;"Outlook.Application"&lt;/SPAN&gt;)
&lt;SPAN&gt;oOMail&lt;/SPAN&gt; = &lt;SPAN&gt;oOApp&lt;/SPAN&gt;.&lt;SPAN&gt;CreateItem&lt;/SPAN&gt;(&lt;SPAN&gt;olMailItem&lt;/SPAN&gt;)
&lt;SPAN&gt;oAdressee&lt;/SPAN&gt; = &lt;SPAN&gt;"Dear "&lt;/SPAN&gt; + &lt;SPAN&gt;oPerson&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;vbLf&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;vbLf&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"You can see the drawings in the appendix. These relate to project:"&lt;/SPAN&gt; + &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt;
&lt;SPAN&gt;oFileName&lt;/SPAN&gt; = &lt;SPAN&gt;vbLf&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;vbLf&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"Best regrads,"&lt;/SPAN&gt;
&lt;SPAN&gt;oFrom&lt;/SPAN&gt; = &lt;SPAN&gt;iProperties&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Summary"&lt;/SPAN&gt;, &lt;SPAN&gt;"Author"&lt;/SPAN&gt;)
&lt;SPAN&gt;With&lt;/SPAN&gt; &lt;SPAN&gt;oOMail&lt;/SPAN&gt;
	.&lt;SPAN&gt;To&lt;/SPAN&gt; = &lt;SPAN&gt;oEmailAddress&lt;/SPAN&gt;
	.&lt;SPAN&gt;Subject&lt;/SPAN&gt; = &lt;SPAN&gt;"Project: "&lt;/SPAN&gt; + &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt; 
	.&lt;SPAN&gt;Body&lt;/SPAN&gt; = &lt;SPAN&gt;oAdressee&lt;/SPAN&gt; + &lt;SPAN&gt;oFileName&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;vbLf&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;vbLf&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;oFrom&lt;/SPAN&gt;
	&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;PDF_mail&lt;/SPAN&gt;=&lt;SPAN&gt;"Ja"&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
	&lt;SPAN&gt;objOutlookAttach&lt;/SPAN&gt; = .&lt;SPAN&gt;Attachments&lt;/SPAN&gt;.&lt;SPAN&gt;Add&lt;/SPAN&gt;(&lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt; + &lt;SPAN&gt;"\WT.pdf"&lt;/SPAN&gt;)
	&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt; 
	&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;DWG_mail&lt;/SPAN&gt;=&lt;SPAN&gt;"Ja"&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
	&lt;SPAN&gt;objOutlookAttach&lt;/SPAN&gt; = .&lt;SPAN&gt;Attachments&lt;/SPAN&gt;.&lt;SPAN&gt;Add&lt;/SPAN&gt;(&lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt; + &lt;SPAN&gt;"\"&lt;/SPAN&gt; + &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt; + &lt;SPAN&gt;".dwg"&lt;/SPAN&gt;)
	&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt; 
	.&lt;SPAN&gt;Display&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;With&lt;/SPAN&gt;&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Fri, 26 May 2023 07:28:23 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/send-all-files-in-a-folder-as-e-mail-attach-with-folder-path/m-p/11990680#M153128</guid>
      <dc:creator>MichaëlStienstra</dc:creator>
      <dc:date>2023-05-26T07:28:23Z</dc:date>
    </item>
    <item>
      <title>Re: Send all files in a folder as e mail attach with folder path</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/send-all-files-in-a-folder-as-e-mail-attach-with-folder-path/m-p/11990686#M153129</link>
      <description>&lt;P&gt;I forgot to add the pdf converter that is used in this code. It will export the .pdf file to the folder of the active document. So here it is the code:&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;'Pdf exporter code to drawing folder (without arraylist)&lt;/SPAN&gt;
&lt;SPAN&gt;'--------------------------------------------------------------------&lt;/SPAN&gt;
&lt;SPAN&gt;'File location&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;ExportPath&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt;

&lt;SPAN&gt;'Check of het al bestaat&lt;/SPAN&gt;
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;.&lt;SPAN&gt;IsNullOrEmpty&lt;/SPAN&gt;(&lt;SPAN&gt;ExportPath&lt;/SPAN&gt;) &lt;SPAN&gt;Then&lt;/SPAN&gt;
    &lt;SPAN&gt;MsgBox&lt;/SPAN&gt;(&lt;SPAN&gt;"De file bestaat niet!"&lt;/SPAN&gt; _
	&amp;amp; &lt;SPAN&gt;vbLf&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"Sla de file eerst op"&lt;/SPAN&gt;,64, &lt;SPAN&gt;"Error message"&lt;/SPAN&gt;)
&lt;SPAN&gt;Return&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
&lt;SPAN&gt;'Filename&lt;/SPAN&gt;
&lt;SPAN&gt;ExportFilename&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt;(&lt;SPAN&gt;False&lt;/SPAN&gt;)+&lt;SPAN&gt;".pdf"&lt;/SPAN&gt; &lt;SPAN&gt;'without extension&lt;/SPAN&gt;
&lt;SPAN&gt;'--------------------------------------------------------------------&lt;/SPAN&gt;
&lt;SPAN&gt;'Pdf settings (Not written by Michael Stienstra. Unfortunately source unknown)&lt;/SPAN&gt;
&lt;SPAN&gt;oPDFAddIn&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;ApplicationAddIns&lt;/SPAN&gt;.&lt;SPAN&gt;ItemById&lt;/SPAN&gt; _
(&lt;SPAN&gt;"{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}"&lt;/SPAN&gt;)
&lt;SPAN&gt;oDocument&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveDocument&lt;/SPAN&gt;
&lt;SPAN&gt;oContext&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;TransientObjects&lt;/SPAN&gt;.&lt;SPAN&gt;CreateTranslationContext&lt;/SPAN&gt;
&lt;SPAN&gt;oContext&lt;/SPAN&gt;.&lt;SPAN&gt;Type&lt;/SPAN&gt; = &lt;SPAN&gt;IOMechanismEnum&lt;/SPAN&gt;.&lt;SPAN&gt;kFileBrowseIOMechanism&lt;/SPAN&gt;
&lt;SPAN&gt;oOptions&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;TransientObjects&lt;/SPAN&gt;.&lt;SPAN&gt;CreateNameValueMap&lt;/SPAN&gt;
&lt;SPAN&gt;oDataMedium&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;TransientObjects&lt;/SPAN&gt;.&lt;SPAN&gt;CreateDataMedium&lt;/SPAN&gt;

&lt;SPAN&gt;'set PDF Options&lt;/SPAN&gt;
&lt;SPAN&gt;'If oPDFAddIn.HasSaveCopyAsOptions(oDataMedium, oContext, oOptions) Then&lt;/SPAN&gt;
&lt;SPAN&gt;oOptions&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"All_Color_AS_Black"&lt;/SPAN&gt;) = 1
&lt;SPAN&gt;oOptions&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Remove_Line_Weights"&lt;/SPAN&gt;) = 1
&lt;SPAN&gt;oOptions&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Vector_Resolution"&lt;/SPAN&gt;) = 400
&lt;SPAN&gt;'oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintSheetRange&lt;/SPAN&gt;
&lt;SPAN&gt;'End If&lt;/SPAN&gt;
&lt;SPAN&gt;'--------------------------------------------------------------------&lt;/SPAN&gt;
&lt;SPAN&gt;'File location&lt;/SPAN&gt;
&lt;SPAN&gt;oDataMedium&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt; = &lt;SPAN&gt;ExportPath&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"\"&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;ExportFilename&lt;/SPAN&gt;

&lt;SPAN&gt;Try&lt;/SPAN&gt; 
	&lt;SPAN&gt;'Create document&lt;/SPAN&gt;
	&lt;SPAN&gt;oPDFAddIn&lt;/SPAN&gt;.&lt;SPAN&gt;SaveCopyAs&lt;/SPAN&gt;(&lt;SPAN&gt;oDocument&lt;/SPAN&gt;, &lt;SPAN&gt;oContext&lt;/SPAN&gt;, &lt;SPAN&gt;oOptions&lt;/SPAN&gt;, &lt;SPAN&gt;oDataMedium&lt;/SPAN&gt;)
&lt;SPAN&gt;Catch&lt;/SPAN&gt;
	&lt;SPAN&gt;'Error respons message&lt;/SPAN&gt;
	&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"An error has occurred"&lt;/SPAN&gt;, &lt;SPAN&gt;"Error"&lt;/SPAN&gt;)
	&lt;SPAN&gt;bError&lt;/SPAN&gt; = &lt;SPAN&gt;True&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Try&lt;/SPAN&gt;&lt;/PRE&gt;</description>
      <pubDate>Fri, 26 May 2023 07:27:31 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/send-all-files-in-a-folder-as-e-mail-attach-with-folder-path/m-p/11990686#M153129</guid>
      <dc:creator>MichaëlStienstra</dc:creator>
      <dc:date>2023-05-26T07:27:31Z</dc:date>
    </item>
  </channel>
</rss>

