#1
|
|||
|
|||
Need to create a folder in Outlook AND on the Hardrive at the same time.
Hello,
I have the VB script below running within Outlook 2007. It creates and names a folder after asking for some input from a user. I want to have this same script also create a matching folder with the same name on the hard drive in a destination chosen by dialog box. (hopefully could default to a specific folder like "My Documents".) Can someone please modify my code replacing the peusdo-code (in red) with real working code? Thanks in advance!! Sub CreateFolder() Dim F As Outlook.MAPIFolder Dim Name$ Set F = Application.Session.PickFolder If F Is Nothing Then Exit Sub Name1 = InputBox("Salesman Initials?") If Len(Name1) = 0 Then Exit Sub Name2 = InputBox("Project?") If Len(Name2) = 0 Then Exit Sub Name = Format(Date, "yyyymmdd") & "-SALES-" & Name1 & "-" & Name2 F.Folders.Add Name End Sub Sub CreateMatchingFolderOnHDSomewhere() "Open a dialog, choose the destination for new folder..." "Create new folder assigning the same name as the above sub-routine" End Sub |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
IE Object: Run-time problem (the link is not clicked in run-time but not in step-in | tinfanide | Excel Programming | 1 | 03-04-2012 12:05 AM |
How to create a system folder with VB macro? | Joe Patrick | Word VBA | 4 | 12-17-2011 02:04 PM |
move attachments to hardrive | psrs0810 | Outlook | 1 | 08-16-2010 03:06 PM |
Cannot create a public folder? | gfkbob | Outlook | 0 | 01-07-2010 07:18 AM |
Outlook take time | ryangiam | Outlook | 0 | 08-27-2009 06:02 PM |