email returns after running macro to move emails

Status
Not open for further replies.
Outlook version
Outlook 2013 64 bit
Email Account
Office 365 Exchange
I have a macro that I have modified that moves emails to a sub folder based on the emails address domain.

The problem is after they are moved they show up again. My environment is desktop: outlook 2013. Email is outlook online / office 365. I have multiple accounts within the outlook 2013 but the email is being moved within the same pst as it received.

the macro is listed below. Your help is greatly appreciated.

Public Sub M2El2FldrsbblbPl_script(oMsg As MailItem)
On Error Resume Next

Dim sDomain As String 'The Sender's domain
Dim oNS As Outlook.NameSpace 'My namespace
Dim oInbox As Outlook.MAPIFolder 'My Inbox
Dim oTarget As Outlook.MAPIFolder 'The domain folder
'Dim Sub1 As Outlook.MAPIFolder 'The Sub1
'Dim Sub2 As Outlook.MAPIFolder 'The Sub2
' Dim Sub3 As Outlook.MAPIFolder 'The Sub3

'If it's not your domain, decipher the domain.
If InStr(oMsg.SenderEmailAddress, "/O=") < 1 Then
sDomain = Mid(oMsg.SenderEmailAddress, InStr(oMsg.SenderEmailAddress, "@") + 1)
Else
sDomain = "xyz.com"
End If

'Get the inbox.
Set oNS = Application.GetNamespace("MAPI")
Set oInbox = oNS.GetDefaultFolder(olFolderInbox)
'Set oSub1 = oInbox.Folders("1-Professional_BBLB")
'Set oSub2 = oSub1.Folders("@Reference")
'Set oSub3 = oSub2.Folders("@Reference")

'Set the domain folder if it exists.
'Set oTarget = oSub2.Folders(sDomain)
Set oTarget = oInbox.Folders("1-Personal_xyz").Folders("@Reference").Folders(sDomain)

'In case the folder doesn't exist...
If oTarget Is Nothing Then
oInbox.Folders("1-Personal_xyz").Folders("@Reference").Folders.Add (sDomain)
Set oTarget = oInbox.Folders("1-Personal_xyz").Folders("@Reference").Folders(sDomain)
End If

'Move the new mail to the folder.
oMsg.Move oTarget

'Cleanup.
'Set oSub3 = Nothing
'Set oSub2 = Nothing
'Set oSub1 = Nothing
Set oTarget = Nothing
Set oInbox = Nothing
Set oNS = Nothing
End Sub



Thanks,
glen
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
D Outlook 2016 IMAP Connection Returns All Email but outlook.com does NOT Using Outlook.com accounts in Outlook 2
D Sending email from Office 365 alias in Outlook Using Outlook 4
S Macro or plug-in to see if specific person was included in this email Outlook VBA and Custom Forms 2
S Body text of Email from invite date/time Outlook VBA and Custom Forms 8
R Outlook 2010 How do you export 2 email Accounts' 2010 Inbox Files to new computer (2019)? Using Outlook 1
R Auto display of new email does not work on non-default account Outlook VBA and Custom Forms 0
J Automatically forward email and apply template Outlook VBA and Custom Forms 0
L Outlook saved email templates Using Outlook 1
B VBA to convert email to task, insert text of email in task notes, and attach copy of original email Outlook VBA and Custom Forms 4
T How can you include Junk Email in Search Results like you can include Deleted Items? Using Outlook 3
B Extracting email addresses from a folder - how to also get the name of the person the address is for? Using Outlook 5
W Replyin to the reply-to email address Outlook VBA and Custom Forms 0
E How to display "Change Folder" in Change Default Email Delivery Location in Exchange Outlook 2016 Using Outlook 1
M Extract all links from Outlook email, send to Excel Using Outlook 2
O Forward a email with modified body Automatically. Outlook VBA and Custom Forms 0
B Outlook 2003 email sending & receiving suddenly stopped working Using Outlook 3
R List folders in a combo box + select folder + move emails from inbox to that folder + reply to that email Outlook VBA and Custom Forms 1
O Email not leaving Outbox when using Excel VBA to sync Outlook account Outlook VBA and Custom Forms 4
T The non-email functions Using Outlook 8
P Outlook 2013 Word Share doc as Email Attachment now brings up Eudora. Using Outlook 1
C How to rename subject line and forward the email Outlook VBA and Custom Forms 2
R Help Revising VBA macro to delete email over different time span Outlook VBA and Custom Forms 0
J Sent Items Folder NOT Showing Correct From Email Address Using Outlook 0
J Outlook Reply > From > Other Email Address... > Address Not Showing in Sent Items... From Email Outlook VBA and Custom Forms 0
T Column to display which email alias a message was sent to Outlook VBA and Custom Forms 6
Marc2019 Need help please! Cannot Setup my outlook email account on my Mac Outlook 2011 Using Outlook.com accounts in Outlook 2
HarvMan Hotmail - Sending email is undeliverable Using Outlook 4
R Error when trying to forward current email item Outlook VBA and Custom Forms 7
H In outlook 365 POP mail Inbox, email takes a long time or never arrives. Using Outlook 1
D Can Exchange Admin Center create a pst for users email/contacts/calendar? Exchange Server Administration 0
T After I send a new email, it remains in the Draft folder Using Outlook.com accounts in Outlook 3
P OWA Settings->Calendar->Events from Email; Setting changes do not hold Using Outlook 1
S How to export urls from email to excel and check the status of the url ? New Slipstick.com Articles 6
P Auto Insert Current Date or Time into Email Subject Outlook VBA and Custom Forms 2
S Change VBA script to send HTML email instead of text Outlook VBA and Custom Forms 3
M ERROR: None of your email accounts could send to this recipient Using Outlook 2
S save email from excel Outlook VBA and Custom Forms 1
T How can we view Blocked email addresses Using Outlook 6
F My hotmail calendar is not syncing with my outlook but my email is Using Outlook 3
O Multiple email accounts - hesitate to create a new profile Using Outlook 3
9 Outlook 2016 How to save an Outlook attachment to a specific folder then delete the email it came from? Using Outlook 1
C Outlook Autocomplete suggestions showing wrong person's name against an email address Using Outlook 0
T Outlook converts sent email to txt attachments when sync Using Outlook 0
J Add an Attachment Using an Array and Match first 17 Letters to Matching Template .oft to Send eMail Outlook VBA and Custom Forms 2
glnz How set up new IMAP on Outlook-Office 365 and merge in pst from Outlook 2003 for same two email accounts? Using Outlook 5
R VBA for copying sent email to current folder under a shared mailbox Outlook VBA and Custom Forms 17
ChrisK2 Send email to advertise@slipstick.com fails: "The group advertising isn't set up to receive messages from..." Using Outlook 3
Healy Consultants Macro to remove inside organization distribution list email address when reply to all recepients Outlook VBA and Custom Forms 0
A Created a new user account and the local account cannot see email Using Outlook 3
N Outlook 365 Email Notifications Using Outlook 0
Similar threads


















































Top