Microsoft Office Forums - View Single Post - [Solved] VBL code for automatic attachment of file into email

niton · 04-12-2013, 05:36 AM

Try this http://msdn.microsoft.com/en-us/libr.../ff869553.aspx

Code:

Sub AddAttachment() 
 Dim myItem As Outlook.MailItem 
 Dim myAttachments As Outlook.Attachments 
 
 Set myItem = Application.CreateItem(olMailItem) 
 Set myAttachments = myItem.Attachments 
 myAttachments.Add "C:\Test.doc", olByValue, 1, "Test" 
 myItem.Display 
End Sub

*******************
Consider rating the thread by going to the "Rate Thread" dropdown.