Hi All, The macro below send the current workbook to exchange server : In Excel select File > Send To > Exchange Folder..
Sub send() Select Case Application.MailSystem Case xlMAPI MsgBox "Mail system is Microsoft Mail" Case xlPowerTalk MsgBox "Mail system is PowerTalk" Case xlNoMailSystem MsgBox "No mail system installed" End Select Application.MailLogon ActiveWorkbook.SendMail Recipients:="yourem...@rec.com" End Sub Is it possible to create the sub-folders looks like ..? Any help on this will be appreciated. Mo -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel
