Forwarding email in a specific folder only
I ran across a post on Super User that addressed a question about Outlook email forwarding.
One user provided a script to utilize.
Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem
Set myFwd = Item.Forward
myFwd.Recipients.Add "email@email.com"
myFwd.Send
Set myFwd = Nothing
End Sub
This worked good for me, but how would it work if I want to just automatically forward email in a specific folder only? The folder already has email auto directed to it upon receipt. Any ideas?
email microsoft-outlook forwarding
edited Feb 16 '12 at 18:31
slhck
159k47441464
asked Feb 16 '12 at 17:30
Ian
1112
add a comment |
I ran across a post on Super User that addressed a question about Outlook email forwarding.
One user provided a script to utilize.
Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem
Set myFwd = Item.Forward
myFwd.Recipients.Add "email@email.com"
myFwd.Send
Set myFwd = Nothing
End Sub
This worked good for me, but how would it work if I want to just automatically forward email in a specific folder only? The folder already has email auto directed to it upon receipt. Any ideas?
email microsoft-outlook forwarding
edited Feb 16 '12 at 18:31
slhck
159k47441464
asked Feb 16 '12 at 17:30
Ian
1112
@DaveM Check the formatting next time, please.
– slhck
Feb 16 '12 at 18:31
add a comment |
I ran across a post on Super User that addressed a question about Outlook email forwarding.
One user provided a script to utilize.
Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem
Set myFwd = Item.Forward
myFwd.Recipients.Add "email@email.com"
myFwd.Send
Set myFwd = Nothing
End Sub
This worked good for me, but how would it work if I want to just automatically forward email in a specific folder only? The folder already has email auto directed to it upon receipt. Any ideas?
email microsoft-outlook forwarding
edited Feb 16 '12 at 18:31
slhck
159k47441464
asked Feb 16 '12 at 17:30
Ian
1112
I ran across a post on Super User that addressed a question about Outlook email forwarding.
One user provided a script to utilize.
Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem
Set myFwd = Item.Forward
myFwd.Recipients.Add "email@email.com"
myFwd.Send
Set myFwd = Nothing
End Sub
This worked good for me, but how would it work if I want to just automatically forward email in a specific folder only? The folder already has email auto directed to it upon receipt. Any ideas?
email microsoft-outlook forwarding
email microsoft-outlook forwarding
edited Feb 16 '12 at 18:31
slhck
159k47441464
asked Feb 16 '12 at 17:30
Ian
1112
edited Feb 16 '12 at 18:31
slhck
159k47441464
asked Feb 16 '12 at 17:30
Ian
1112
edited Feb 16 '12 at 18:31
slhck
159k47441464
edited Feb 16 '12 at 18:31
slhck
159k47441464
edited Feb 16 '12 at 18:31
slhck
159k47441464
159k47441464
asked Feb 16 '12 at 17:30
Ian
1112
asked Feb 16 '12 at 17:30
Ian
1112
asked Feb 16 '12 at 17:30
Ian
1112
1112
@DaveM Check the formatting next time, please.
– slhck
Feb 16 '12 at 18:31
add a comment |
@DaveM Check the formatting next time, please.
– slhck
Feb 16 '12 at 18:31
@DaveM Check the formatting next time, please.
– slhck
Feb 16 '12 at 18:31
@DaveM Check the formatting next time, please.
– slhck
Feb 16 '12 at 18:31
add a comment |
1 Answer
1
active
oldest
votes
Assuming that you are redirecting the email into the folder using a rule, you could run this script in the same rule, so it would only apply in the same conditions.
Otherwise the macro can be altered to look for unread messages in the current folder and forward them. You'd then just manually run the macro (give it a shortcut to make it easy) periodically whilst in that folder and it'll do the forwards for you.
Sub ForwardUnreadInFolder()
Dim CurItem As Outlook.MailItem
Dim myFwd As Outlook.MailItem
Dim strMsg As String
Set CurFolder = Application.ActiveExplorer.CurrentFolder
Set AllItems = CurFolder.Items
NumItems = CurFolder.Items.Count
For i = 1 To NumItems
DoEvents
Set CurItem = AllItems.Item(i)
If (CurItem.UnRead) Then
Set myFwd = CurItem.Forward
myFwd.Recipients.Add "email@example.com"
myFwd.Send
Set myFwd = Nothing
End If
Next
MsgBox "Done"
End Sub
answered Feb 16 '12 at 20:23
David Cornish
25326
1
Thanks. Yes I first tried the copying to another folder but realized the separate rule for the script forwarded all msgs first. . then copied. SO i did change the rule to move a copy of emails to a folder and had the rule run the script after that . . but it continued to auto forward every email before moving any to the folder. All emails in the new folder show as unread and NOT forwarded. Was hoping this could be automated without having to manually run macros or other, since if I am not at the computer nothing can get forwarded. Thank you for the reply.
– Ian
Feb 16 '12 at 21:03
add a comment |
Your Answer
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "3"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fsuperuser.com%2fquestions%2f390752%2fforwarding-email-in-a-specific-folder-only%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
Assuming that you are redirecting the email into the folder using a rule, you could run this script in the same rule, so it would only apply in the same conditions.
Otherwise the macro can be altered to look for unread messages in the current folder and forward them. You'd then just manually run the macro (give it a shortcut to make it easy) periodically whilst in that folder and it'll do the forwards for you.
Sub ForwardUnreadInFolder()
Dim CurItem As Outlook.MailItem
Dim myFwd As Outlook.MailItem
Dim strMsg As String
Set CurFolder = Application.ActiveExplorer.CurrentFolder
Set AllItems = CurFolder.Items
NumItems = CurFolder.Items.Count
For i = 1 To NumItems
DoEvents
Set CurItem = AllItems.Item(i)
If (CurItem.UnRead) Then
Set myFwd = CurItem.Forward
myFwd.Recipients.Add "email@example.com"
myFwd.Send
Set myFwd = Nothing
End If
Next
MsgBox "Done"
End Sub
answered Feb 16 '12 at 20:23
David Cornish
25326
1
Thanks. Yes I first tried the copying to another folder but realized the separate rule for the script forwarded all msgs first. . then copied. SO i did change the rule to move a copy of emails to a folder and had the rule run the script after that . . but it continued to auto forward every email before moving any to the folder. All emails in the new folder show as unread and NOT forwarded. Was hoping this could be automated without having to manually run macros or other, since if I am not at the computer nothing can get forwarded. Thank you for the reply.
– Ian
Feb 16 '12 at 21:03
add a comment |
Assuming that you are redirecting the email into the folder using a rule, you could run this script in the same rule, so it would only apply in the same conditions.
Otherwise the macro can be altered to look for unread messages in the current folder and forward them. You'd then just manually run the macro (give it a shortcut to make it easy) periodically whilst in that folder and it'll do the forwards for you.
Sub ForwardUnreadInFolder()
Dim CurItem As Outlook.MailItem
Dim myFwd As Outlook.MailItem
Dim strMsg As String
Set CurFolder = Application.ActiveExplorer.CurrentFolder
Set AllItems = CurFolder.Items
NumItems = CurFolder.Items.Count
For i = 1 To NumItems
DoEvents
Set CurItem = AllItems.Item(i)
If (CurItem.UnRead) Then
Set myFwd = CurItem.Forward
myFwd.Recipients.Add "email@example.com"
myFwd.Send
Set myFwd = Nothing
End If
Next
MsgBox "Done"
End Sub
answered Feb 16 '12 at 20:23
David Cornish
25326
1
Thanks. Yes I first tried the copying to another folder but realized the separate rule for the script forwarded all msgs first. . then copied. SO i did change the rule to move a copy of emails to a folder and had the rule run the script after that . . but it continued to auto forward every email before moving any to the folder. All emails in the new folder show as unread and NOT forwarded. Was hoping this could be automated without having to manually run macros or other, since if I am not at the computer nothing can get forwarded. Thank you for the reply.
– Ian
Feb 16 '12 at 21:03
add a comment |
Assuming that you are redirecting the email into the folder using a rule, you could run this script in the same rule, so it would only apply in the same conditions.
Otherwise the macro can be altered to look for unread messages in the current folder and forward them. You'd then just manually run the macro (give it a shortcut to make it easy) periodically whilst in that folder and it'll do the forwards for you.
Sub ForwardUnreadInFolder()
Dim CurItem As Outlook.MailItem
Dim myFwd As Outlook.MailItem
Dim strMsg As String
Set CurFolder = Application.ActiveExplorer.CurrentFolder
Set AllItems = CurFolder.Items
NumItems = CurFolder.Items.Count
For i = 1 To NumItems
DoEvents
Set CurItem = AllItems.Item(i)
If (CurItem.UnRead) Then
Set myFwd = CurItem.Forward
myFwd.Recipients.Add "email@example.com"
myFwd.Send
Set myFwd = Nothing
End If
Next
MsgBox "Done"
End Sub
answered Feb 16 '12 at 20:23
David Cornish
25326
Assuming that you are redirecting the email into the folder using a rule, you could run this script in the same rule, so it would only apply in the same conditions.
Otherwise the macro can be altered to look for unread messages in the current folder and forward them. You'd then just manually run the macro (give it a shortcut to make it easy) periodically whilst in that folder and it'll do the forwards for you.
Sub ForwardUnreadInFolder()
Dim CurItem As Outlook.MailItem
Dim myFwd As Outlook.MailItem
Dim strMsg As String
Set CurFolder = Application.ActiveExplorer.CurrentFolder
Set AllItems = CurFolder.Items
NumItems = CurFolder.Items.Count
For i = 1 To NumItems
DoEvents
Set CurItem = AllItems.Item(i)
If (CurItem.UnRead) Then
Set myFwd = CurItem.Forward
myFwd.Recipients.Add "email@example.com"
myFwd.Send
Set myFwd = Nothing
End If
Next
MsgBox "Done"
End Sub
answered Feb 16 '12 at 20:23
David Cornish
25326
answered Feb 16 '12 at 20:23
David Cornish
25326
answered Feb 16 '12 at 20:23
David Cornish
25326
answered Feb 16 '12 at 20:23
David Cornish
25326
25326
1
Thanks. Yes I first tried the copying to another folder but realized the separate rule for the script forwarded all msgs first. . then copied. SO i did change the rule to move a copy of emails to a folder and had the rule run the script after that . . but it continued to auto forward every email before moving any to the folder. All emails in the new folder show as unread and NOT forwarded. Was hoping this could be automated without having to manually run macros or other, since if I am not at the computer nothing can get forwarded. Thank you for the reply.
– Ian
Feb 16 '12 at 21:03
add a comment |
1
Thanks. Yes I first tried the copying to another folder but realized the separate rule for the script forwarded all msgs first. . then copied. SO i did change the rule to move a copy of emails to a folder and had the rule run the script after that . . but it continued to auto forward every email before moving any to the folder. All emails in the new folder show as unread and NOT forwarded. Was hoping this could be automated without having to manually run macros or other, since if I am not at the computer nothing can get forwarded. Thank you for the reply.
– Ian
Feb 16 '12 at 21:03
1
1
Thanks. Yes I first tried the copying to another folder but realized the separate rule for the script forwarded all msgs first. . then copied. SO i did change the rule to move a copy of emails to a folder and had the rule run the script after that . . but it continued to auto forward every email before moving any to the folder. All emails in the new folder show as unread and NOT forwarded. Was hoping this could be automated without having to manually run macros or other, since if I am not at the computer nothing can get forwarded. Thank you for the reply.
– Ian
Feb 16 '12 at 21:03
Thanks. Yes I first tried the copying to another folder but realized the separate rule for the script forwarded all msgs first. . then copied. SO i did change the rule to move a copy of emails to a folder and had the rule run the script after that . . but it continued to auto forward every email before moving any to the folder. All emails in the new folder show as unread and NOT forwarded. Was hoping this could be automated without having to manually run macros or other, since if I am not at the computer nothing can get forwarded. Thank you for the reply.
– Ian
Feb 16 '12 at 21:03
add a comment |
Thanks for contributing an answer to Super User!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
Some of your past answers have not been well-received, and you're in danger of being blocked from answering.
Please pay close attention to the following guidance:
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fsuperuser.com%2fquestions%2f390752%2fforwarding-email-in-a-specific-folder-only%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
@DaveM Check the formatting next time, please.
– slhck
Feb 16 '12 at 18:31