 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / Outlook / Programming Forms / May 2008Automate attachment selection
I would like to create a form, essentially a newsletter, that will automatically attach a file from a particular location each time the form is opened. The contents of the file change, however, the name and path remain constant. e.g. I would like G:\folder1\file1.zip to be attached to a form each time the form is opened (rather than have the attachment saved along with the form which would mean that the new data in this file would not be attached after the form was created). Is this possible? If so, how do I do it? > I would like to create a form, essentially a newsletter, that will > automatically attach a file from a particular location each time the form is [quoted text clipped - 8 lines] > > Is this possible? If so, how do I do it? How about just create a link to the file in the form. The actual file will not be saved in the form, just the link information on wher it is located. You could change the file all you wanted as long as it's name remained the same. Karl This won't work in my situation I'm afraid. The attachment will be sent to external recipients (I should have specified that in my original question). Thank's for your reply though - do you have any more suggestions? > > I would like to create a form, essentially a newsletter, that will > > automatically attach a file from a particular location each time the form is [quoted text clipped - 15 lines] > > Karl An Outlook custom form is not a good solution for this scenario, given that custom forms can cause attachment problems for external recipients. Instead, you could write a little VBA macro to attach the file.  SignatureSue Mosher, Outlook MVP Author of Microsoft Outlook 2007 Programming: Jumpstart for Power Users and Administrators http://www.outlookcode.com/article.aspx?id=54 > This won't work in my situation I'm afraid. > [quoted text clipped - 22 lines] >> >> Karl VBA Macros don't fall into my area of expertise - could you give me some pointers on where I should start? > An Outlook custom form is not a good solution for this scenario, given that custom forms can cause attachment problems for external recipients. > [quoted text clipped - 26 lines] > >> > >> Karl Outlook version? Do you use Word as your email editor? SignatureSue Mosher, Outlook MVP Author of Microsoft Outlook 2007 Programming: Jumpstart for Power Users and Administrators http://www.outlookcode.com/article.aspx?id=54 > VBA Macros don't fall into my area of expertise - could you give me some > pointers on where I should start? [quoted text clipped - 29 lines] >> >> >> >> Karl Outlook 2003 with Word 2003 as the email editor. > Outlook version? Do you use Word as your email editor? > [quoted text clipped - 31 lines] > >> >> > >> >> Karl Because Word is your email editor, you would need to create this macro in Word. Insert a new module in the Normal.dot template and put the macro there. Sub InsertFile() ' requires reference to Microsoft Outlook library Dim objOL As Outlook.Application Dim objInsp As Outlook.Inspector Dim objMail As Outlook.MailItem On Error Resume Next Set objOL = GetObject(, "Outlook.Application") Set objInsp = objOL.ActiveInspector Set objMail = objInsp.CurrentItem objMail.Attachments.Add "C:\data\myfile.txt" Set objMail = Nothing Set objInsp = Nothing Set objOL = Nothing End Sub You can then run it from an open Outlook message by using Alt+F8 or add a custom toolbar that includes that macro as a button. SignatureSue Mosher, Outlook MVP Author of Microsoft Outlook 2007 Programming: Jumpstart for Power Users and Administrators http://www.outlookcode.com/article.aspx?id=54 > Outlook 2003 with Word 2003 as the email editor. > [quoted text clipped - 31 lines] >> >> >> >> >> >> Karl So sorry about this bump but I have been struggling with a similar problem as well. I am trying to attach one Excel file with all my outgoing e-mails. It will be the same Excel file and I am looking to have the attachment already attached to the e-mail when I click on "New" to send a new e-mail. Is that possible with the VB code suemvp provided above? Much thanks for your help. :blush: What code are you referring to? "above" doesn't have a concrete meaning in a discussion forum that can be accessed any number of different ways. Also, does the Excel file itself change? SignatureSue Mosher, Outlook MVP Author of Microsoft Outlook 2007 Programming: Jumpstart for Power Users and Administrators http://www.outlookcode.com/article.aspx?id=54 > So sorry about this bump but I have been struggling with a similar problem as well. I am trying to attach one Excel file with all my outgoing e-mails. It will be the same Excel file and I am looking to have the attachment already attached to the e-mail when I click on "New" to send a new e-mail. > > Is that possible with the VB code suemvp provided above? Much thanks for your help. :blush: Hello, This is the code I was referring to: Quote: > Sub InsertFile() > ' requires reference to Microsoft Outlook library [quoted text clipped - 10 lines] > Set objOL = Nothing > End Sub And the Excel file does not change. And it's location (in C drive) does not change either. You'd want to use the events related to the Inspector window. Put the following code in the built-in ThisOutlookSession module, then run the Application_Startup procedure. Dim WithEvents m_colInsp As Outlook.Inspectors Dim WithEvents m_objInsp As Outlook.Inspector Private Sub Application_Startup() Set m_colInsp = Application.Inspectors End Sub Private Sub m_colInsp_NewInspector(ByVal Inspector As Inspector) Set m_objInsp = Inspector End Sub Private Sub m_objInsp_Activate() Dim objMail As Outlook.mailItem If m_objInsp.CurrentItem.Class = olMail Then Set objMail = m_objInsp.CurrentItem If objMail.Size = 0 Then ' it's a new message objMail.Attachments.Add "C:\Data\myfile.xls" End If End If Set objMail = Nothing Set m_objInsp = Nothing End Sub SignatureSue Mosher, Outlook MVP Author of Microsoft Outlook 2007 Programming: Jumpstart for Power Users and Administrators http://www.outlookcode.com/article.aspx?id=54 > Hello, > [quoted text clipped - 17 lines] > > And the Excel file does not change. And it's location (in C drive) does not change either. Hello suemvp, Thank you so much for your help. The code works perfectly. I greatly appreciate it for taking your time to help me. I also managed to learn a few things about using the built-in VB Editor. Best Regards, Starbuzz
|
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.