Forward from Shared Mailbox to individual folders

Status
Not open for further replies.

humsboyle

Member
Outlook version
Email Account
Exchange Server
Hi All,

Currently at work, over 100 emails come into the departments shared mailbox per day and staff work through each email in turn, however this is not most efficient way working, as staff are simply just choosing the easy ones.

I have read on topic

http://www.outlookbanter.com/outlook...ent-users.html

and

VBA code running on Server? Shared mailbox email routing

That it is possible to create a script and then using some VBA to cycle through list of staff giving email to each individual on the list in a looping fashion.

However the above link does not point me in any direction on how to create script / vba to do this.

any help or further links on this type of thing would be greatly appreciated.

Thanks

Steve
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
This kind of does the round robin - Mail a message to each person in a range - but you need to write back to the sheet.

I have a word macro that writes to a text file that I think could be used to pick a name from an array.

How many names will be on the list? How often will the list of users need updated?

Sub CreateUserNumber()

Dim enviro As String

enviro = CStr(Environ("USERPROFILE"))

usern = System.PrivateProfileString(enviro & "\user-number.txt", _
"MacroSettings", "usern")

' reset to 1 after last person

If usern = "10" Then
usern = 1

Else
usern = usern + 1

End If

System.PrivateProfileString(enviro & "\user-number.txt", "MacroSettings", _
"usern") = usern

end sub
 

humsboyle

Member
Outlook version
Email Account
Exchange Server
This kind of does the round robin - Mail a message to each person in a range - but you need to write back to the sheet.

I have a word macro that writes to a text file that I think could be used to pick a name from an array.

How many names will be on the list? How often will the list of users need updated?

Sub CreateUserNumber()

Dim enviro As String

enviro = CStr(Environ("USERPROFILE"))

usern = System.PrivateProfileString(enviro & "\user-number.txt", _

"MacroSettings", "usern")

' reset to 1 after last person

If usern = "10" Then

usern = 1

Else

usern = usern + 1

End If

System.PrivateProfileString(enviro & "\user-number.txt", "MacroSettings", _

"usern") = usern

end sub

Morning Diane,

And thanks for your quick reply.

We have between 8-12 staff members working through the mailbox on each day dependent on holidays.

The list of users will be update once per day maybe twice dependent on sickness.

Thanks

Steve
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
With frequent updates we don't want to put the array in the macro - it needs to be in a file so it can be updated easily. In that case, it may be easier to read a csv or text file.
 

humsboyle

Member
Outlook version
Email Account
Exchange Server
With frequent updates we don't want to put the array in the macro - it needs to be in a file so it can be updated easily. In that case, it may be easier to read a csv or text file.

Diane,

Do you know of any links or information that show how to do this?

i am fairly new to all this and i am trying to learn as much as i can.

Thanks

Steve
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
I was looking yesterday and couldn't find anything that was remotely close - heck even the excel link I found isn't close, but it may be possible to use it as a basis. I was going to look work on it last night but got side tracked with a project that I need to get finished (but really can't get into working on :( ).
 

humsboyle

Member
Outlook version
Email Account
Exchange Server
I was looking yesterday and couldn't find anything that was remotely close - heck even the excel link I found isn't close, but it may be possible to use it as a basis. I was going to look work on it last night but got side tracked with a project that I need to get finished (but really can't get into working on :( ).

Afternon Diane,

Thanks for looking into this for me.

Steve
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
F Forward incoming email with 4 embedded images in the body without original sender Outlook VBA and Custom Forms 16
David McKay VBA to manually forward using odd options Outlook VBA and Custom Forms 1
S Auto forward for multiple emails Outlook VBA and Custom Forms 0
G Forward email body to other mail list directly from Exchange server Exchange Server Administration 1
D auto forward base on email address in body email Outlook VBA and Custom Forms 0
Bering Forward selected email without the original email appended Outlook VBA and Custom Forms 0
C UDFs Reply vs Forward Outlook VBA and Custom Forms 3
M In Outlook Calendar remove the buttons: 'Today' and '<' (Back a day) and '>' (Forward a day) that are below the Ribbon and above the calendar display. Using Outlook 0
J Automatically forward email and apply template Outlook VBA and Custom Forms 0
O Forward a email with modified body Automatically. Outlook VBA and Custom Forms 0
C How to rename subject line and forward the email Outlook VBA and Custom Forms 2
R Error when trying to forward current email item Outlook VBA and Custom Forms 7
M Outlook macro to automate search and forward process Outlook VBA and Custom Forms 6
G Missing forward/replied icons Using Outlook 2
M VBA to auto forward message with new subject and body text Outlook VBA and Custom Forms 8
B Automatically Forward Emails and Remove/Replace All or Part of Body Outlook VBA and Custom Forms 8
M Forward Appointment as BCC with VBScript Outlook VBA and Custom Forms 7
B Forward every other email in Outlook 2013 Outlook VBA and Custom Forms 2
D Disable or hide "reply" and "reply to all" and "forward" in email from access vba Outlook VBA and Custom Forms 1
Sabastian Samuel HOW DO I FORWARD AN EMAIL WITH MACRO using an email that in the body of another email Outlook VBA and Custom Forms 3
C Don't forward duplicate Using Outlook 0
undercover_smother Automatically Forward All Sent Mail and Delete After Send Outlook VBA and Custom Forms 10
A Forward Outlook Email by Filtering using Macro Rule Outlook VBA and Custom Forms 44
I change subject and forward without FW: Outlook VBA and Custom Forms 4
C VBA to Forward e-mails from certain address and between certain times Outlook VBA and Custom Forms 1
J Forward Action in Form Outlook VBA and Custom Forms 1
J Auto Forward - Include Attachment and change Subject depending on original sender Outlook VBA and Custom Forms 3
K add pdf to every reply or forward Outlook VBA and Custom Forms 1
Brostin Forward a mail to the address listed in the email text Outlook VBA and Custom Forms 1
N Going Forward: Using Outlook 2016 for RSS Feeds Using Outlook 2
J Forward Message after editing attachments and include edited attachments Using Outlook 5
R changing FW: on forward Outlook VBA and Custom Forms 3
Z Auto Forward Using Outlook 4
N Outlook script to forward emails based on senders' address Outlook VBA and Custom Forms 2
S Merge Emails with attachments with inbox rule to forward Using Outlook 5
B Auto Save of Attachments from Multiple Emails and forward attachments to user group Outlook VBA and Custom Forms 1
A Creating an outlook rule to forward an email with a specific message Using Outlook 1
D Forward message to address from subject Outlook VBA and Custom Forms 1
D How to forward each email x minutes after it arrives in inbox and hasn't been moved or deleted? Using Outlook 1
W Macro to forward email Outlook VBA and Custom Forms 2
J How to change From then forward message Outlook VBA and Custom Forms 1
S Reply & Forward Date in original message incorrect Using Outlook 2
Diane Poremsky Forward Messages that were not Replied To Using Outlook 0
mikecox Forward email to another address; not with Rules Using Outlook 3
divan Macro to format email in a certain folder then forward to email address Using Outlook 3
D forward email with attachment using .oft Using Outlook 3
J Outlook 2010: can't forward appointment on custom form Using Outlook 1
J Forward a bounce mail? Using Outlook 1
P How to save sent mail and forward it the next day Exchange Server Administration 3
T outlook 2013 does not mark multiple forward messages as forward Using Outlook 2

Similar threads

Top