Auto forward for multiple emails

Status
Not open for further replies.
Outlook version
Outlook 365 64 bit
Email Account
Office 365 Exchange
Hi, I have a VBA script that auto-forwards one set of conditions to a group of people. I want to add another set of conditions so that it auto-forwards a different email to another group of people so that the script sends email 1 to group A and email 2 to group B. I'm having difficulty getting the second set of conditions to work. How can I get this to work? Ultimately I'd like to have 5 or so of different set of conditions. Setting up Outlook rules doesn't work due to auto-forwarding limitations.

Here is what I have so far:

Public WithEvents objInbox As Outlook.Folder
Public With Events objInboxItems As Outlook.Items

Private Sub Application_Startup()
Set objInbox = Outlook.Application.Session.GetDefaultFolder (olFolderInbox)
Set objInboxItems = objInbox.Items
End Sub

Private Sub objInboxItems_ItemAdd (ByVal Item As Object)
Dim objMail As Outlook.MailItem
Fim objForward As Outlook.MailItem

If TypeOf Item Is MailItem Then
Set objMail = Item

If (objMail.SenderEmailAdress = "sender@mailbox.com) And (objMail.Subject = "Email Subject 1") Then
Set objForward = objmail.Forward
With obJForward
.Subject = "Email Subject 1"
.Recipients.Add ("person1@mailbox.com")
.Recipients.Add ("person2@mailbox.com")
.Recipients.ResolveAll
.Send
End With
End If
End If
End Sub

'Until here it works, can't get the below part to work

Private Sub objInboxItems_ItemAdd_2 (ByVal Item As Object)
Dim objMail As Outlook.MailItem
Fim objForward As Outlook.MailItem

If TypeOf Item Is MailItem Then
Set objMail = Item

If (objMail.SenderEmailAdress = "sender@mailbox.com) And (objMail.Subject = "Email Subject 2") Then
Set objForward = objmail.Forward
With obJForward
.Subject = "Email Subject 2"
.Recipients.Add ("person3@mailbox.com")
.Recipients.Add ("person4@mailbox.com")
.Recipients.ResolveAll
.Send
End With
End If
End If
End Sub
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
B Auto Save of Attachments from Multiple Emails and forward attachments to user group Outlook VBA and Custom Forms 1
M Outlook 365 VBA Auto-Forward Only the first of Duplicate Emails Outlook VBA and Custom Forms 2
richardwing Auto forward email that is moves into a specific outlook folder Outlook VBA and Custom Forms 5
D auto forward base on email address in body email Outlook VBA and Custom Forms 0
M VBA to auto forward message with new subject and body text Outlook VBA and Custom Forms 8
J Auto Forward - Include Attachment and change Subject depending on original sender Outlook VBA and Custom Forms 3
Z Auto Forward Using Outlook 4
R Auto-create receipt from email and forward to payer Using Outlook 3
L Auto Forward without presenting the original sender Outlook VBA and Custom Forms 1
S Rule to Auto-forward/re-direct a specific incoming email to a group via BCC? Using Outlook 1
J Custom Forms Don't Always Auto-Forward From Public Folder Using Outlook 0
K How to auto truncate a message to forward with Outlook Rules Using Outlook 6
D Auto Remove [EXTERNAL] from Subject + ConversationTopic (WITHOUT Redemption plug-in) Outlook VBA and Custom Forms 5
P Email address auto-completes work fine on laptop, but no longer on desktop Using Outlook 3
C New pc, new outlook, is it possible to import auto-complete emailaddress Using Outlook 5
R Outlook 365 VBA AUTO SEND WITH DELAY FOR EACH EMAIL Outlook VBA and Custom Forms 0
Nufc1980 Outlook "Please treat this as private label" auto added to some emails - Help. Using Outlook 4
K vba code to auto download email into a specific folder in local hard disk as and when any new email arrives in Inbox/subfolder Outlook VBA and Custom Forms 0
F Auto changing email subject line in bulk Using Outlook 2
T Outlook 2019 Not Using Auto Compete After Deletion of 365 Using Outlook 1
D Auto Remove [EXTERNAL] from subject - Issue with Macro Using Outlook 21
nmanikrishnan Auto-reply from default account Using Outlook 1
A Imap account not auto syncing inbox at startup Using Outlook 0
K Run a script rule to auto 'send again' on undeliverable emails? Outlook VBA and Custom Forms 1
FryW Need help modifying a VBA script for in coming emails to auto set custom reminder time Outlook VBA and Custom Forms 0
DDB VBA to Auto Insert Date and Time in the signature Outlook VBA and Custom Forms 2
V Auto-complete stopped working Using Outlook 4
M Replyall macro with template and auto insert receptens Outlook VBA and Custom Forms 1
R Auto Forwarding with different "From" Outlook VBA and Custom Forms 0
P auto-complete is hopelessly broken Using Outlook 0
R Auto Assign Category colours to Incoming Emails based on whom the email is addressed Outlook VBA and Custom Forms 3
C Auto Run VBA Code on new email Outlook VBA and Custom Forms 1
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 3
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 16
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
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

Similar threads

Back
Top