Auto Save of Attachments from Multiple Emails and forward attachments to user group

Status
Not open for further replies.

Bob Jensen

New Member
Outlook version
Outlook 2013 32 bit
Email Account
Exchange Server 2013
Each day I get (3) emails from the same sender. Each email has (1) attachment. I save each attachment to a network folder. I then take the (3) saved attachments from today and create a new email with these files as attachments. Then the email is send to a distribution group.

I can use Outlook rules and Script to automate the save of each the initial attachments.

Script is:

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "m:\Attachments"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub


However, some help on automating taking those saved attachments, attaching them into a new email, and sending to a distribution list is appreciated.
 

oliv-

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
Outlook rules (and Script ) are raised for each Email.
To create a new mail you need to wait the 3rd Email.

Code:
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
    Dim objAtt As Outlook.Attachment
    Dim saveFolder As String
    saveFolder = "m:\Attachments"
    For Each objAtt In itm.Attachments
        objAtt.SaveAsFile saveFolder & "\" & objAtt.displayName
        Set objAtt = Nothing
    Next
    Call createMailWithAttachments
End Sub

Sub createMailWithAttachments()
    Dim saveFolder As String
    saveFolder = "m:\Attachments"
    Dim FSO, oSourceFolder
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set oSourceFolder = FSO.GetFolder(saveFolder)
    If oSourceFolder.Files.Count = 3 Then
        Dim itm
        Dim objfile
        Set itm = CreateItem(olMailItem)

        For Each objfile In oSourceFolder.Files
            itm.Attachments.add objfile.path
        Next
        itm.To = "to@toto.com"
        itm.Object = "subject"
        itm.Display
        itm.Send
    End If
End Sub
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
C Auto save outlook attachments when email is received Outlook VBA and Custom Forms 1
R Outlook 2013 VB rule to auto save attachments with different file types Outlook VBA and Custom Forms 5
J Auto-Save for Outlook Calendar Entries Using Outlook 5
E Auto Save Zip File Attachment to Network Folder Outlook VBA and Custom Forms 1
C Auto Run VBA Code on new email Outlook VBA and Custom Forms 0
S Outlook Macro to send auto acknowledge mail only to new mails received to a specific shared inbox Outlook VBA and Custom Forms 0
V Auto-Submitted: auto-replied in header Using Outlook 0
R Auto display of new email does not work on non-default account Outlook VBA and Custom Forms 0
B Outlook 2016 Auto-archive creates new folder Using Outlook 4
J Edit auto-complete list in Outlook 2016+/365? Using Outlook 0
P Auto assign shared mailbox Outlook VBA and Custom Forms 1
M Outlook 2010 Problem with OutLook 2010 32 bit, after Windows Auto Update Using Outlook 3
P [SOLVED] Auto remove [EXTERNAL] from subject Using Outlook 14
Z Add text to auto-forwarded e-mail Outlook VBA and Custom Forms 4
N Disable Auto Read Receipts sent after using Advanced Find Using Outlook 4
Q Prompt button to auto turn on Out of Office Outlook VBA and Custom Forms 3
P Auto Insert Current Date or Time into Email Subject Outlook VBA and Custom Forms 2
S Messages moved / deleted by auto-archive are not synchronized to exchange Exchange Server Administration 8
B Outlook 2010 is Auto Purging when not configured for that Using Outlook 1
M VBA to auto forward message with new subject and body text Outlook VBA and Custom Forms 8
A Auto Accept Meetings from the General Calendar Using Outlook 3
R auto send email when meeting closes from a shared calendar only Outlook VBA and Custom Forms 2
S auto-mapping mailboxes in outlook impacting an ost file? Exchange Server Administration 2
M Auto expand Distribution List Before Sending Email Outlook VBA and Custom Forms 1
M Auto-export mail to Excel Outlook VBA and Custom Forms 2
Ms_Cynic Auto-pasting email content in calendar appt? Using Outlook 2
R How Do I insert images in and Auto Reply Using Outlook 3
S Received mail as part of DL, need to auto-CC the same when replying Outlook VBA and Custom Forms 5
T Have Outlook 2016 suggest email address auto complete entries directly from the user's contacts list Using Outlook 10
T Have Outlook 2016 suggest email address auto complete entries directly from the user's contacts list Using Outlook 0
P Auto scroll to specific folder in Folder Pane Outlook VBA and Custom Forms 3
C Auto categorize duplicate subjects Outlook VBA and Custom Forms 11
N Auto-complete - block select emails Using Outlook 3
J HELP- Rule to auto strip prepend from external emails Using Outlook 0
S BCM Auto Backup Data and Customizations BCM (Business Contact Manager) 6
G Auto accept meeting request for non primary account Outlook VBA and Custom Forms 1
J Outlook Rules - Changing auto-submit address in multiple rules, according to rule name Outlook VBA and Custom Forms 0
E Outlook Form - Voting Responses Not Auto Processing If Form Contains Any Code Outlook VBA and Custom Forms 0
J Auto Forward - Include Attachment and change Subject depending on original sender Outlook VBA and Custom Forms 3
K Extract email address from body and auto-reply outlook Using Outlook 1
S Auto move search results to folder Outlook VBA and Custom Forms 0
E Outlook 2010 disable date auto-complete Using Outlook 2
C Auto subject,name,email,deferred Using Outlook 2
ashcosta2 Auto Reply rule based on speficied time Outlook VBA and Custom Forms 0
B Auto Preview Attachment in Inspector Reading Pane Outlook VBA and Custom Forms 1
Z Auto Forward Using Outlook 4
M can anyone recommend an alternative to DS auto-followup? Using Outlook 2
S Rules to auto redirect Using Outlook 5
A Auto Insert of filename when selecting 'Remove Attachment' Using Outlook 1
C Auto Add a PDF to an outgoing Email, based on a rule Using Outlook 2

Similar threads

Top