Re: Cuestom outlook rule using vba

  • Thread starter Ken Slovak - [MVP - Outlook]
  • Start date
Status
Not open for further replies.
K

Ken Slovak - [MVP - Outlook]

It looks like there aren't any conditions that meet what you want in the

Rules collection, so a rule that runs a script is your best bet.

"mherber2" <mherber2.3f756cd@outlookbanter.com> wrote in message

news:mherber2.3f756cd@outlookbanter.com...

> i am using 2007 however there is not a built in rule to sort when a
> message is sent to someone in a specified address book
 
M

mherber2

thats not a problem can you assist me in writing the script?

' - [MVP - Outlook Wrote:
> ;295682']It looks like there aren't any conditions that meet what you
> want in the
> Rules collection, so a rule that runs a script is your best bet.

> >

>

> "mherber2" mherber2.3f756cd@outlookbanter.com wrote in message
> news:mherber2.3f756cd@outlookbanter.com...-

> i am using 2007 however there is not a built in rule to sort when a
> message is sent to someone in a specified address book-


mherber2
 
K

Ken Slovak - [MVP - Outlook]

Start coding it and post any problems or questions and someone will help.

"mherber2" <mherber2.3fb4b51@outlookbanter.com> wrote in message

news:mherber2.3fb4b51@outlookbanter.com...

> thats not a problem can you assist me in writing the script?
 
M

mherber2

i have experiance in vba for excell and power point but i have no clue

where to begin here. i've been working on coding it but cannt get

anywhere

' - [MVP - Outlook Wrote:
> ;295859']Start coding it and post any problems or questions and someone
> will help.

> >

>

> "mherber2" mherber2.3fb4b51@outlookbanter.com wrote in message
> news:mherber2.3fb4b51@outlookbanter.com...-

> thats not a problem can you assist me in writing the script?-


mherber2
 
K

Ken Slovak - [MVP - Outlook]

Well, the rule calling the macro "script" is passed a Mailitem object for

the item. To check for Subject containing a specific word:

Sub myRuleCode(Item As Outlook.MailItem)

If InStr(1, Item.Subject, "foobar", vbTextCompare) > 0 Then

' it has the subject word "foobar" there

To check for the recipient being in a specific AddressBook you'd need to get

the Item.Recipients collection and iterate, checking each Recipient for

their email address and seeing if the Recipient.Type = olTo (if you only

want to check the To recipient or recipients).

The AddressBook would be retrieved from the AddressLists collection as an

AddressList object. You'd get its AddressEntries collection and iterate that

looking for an AddressEntry where the Address property was equal to the

Recipient.Address.

To check for the sender being in the AddressEntries collection you'd use the

Item.SenderEmailAddress property and compare that to each

AddressEntry.Address value in that AddressBook.

If you know the name of the AddressBook you want to work with you'd get it

like this:

Dim oList As Outlook.AddressList

Set oList =

Application.GetNameSpace("MAPI").AddressLists.Item("myAddressList")

That should get you going.

"mherber2" <mherber2.3fc9cd5@outlookbanter.com> wrote in message

news:mherber2.3fc9cd5@outlookbanter.com...

> i have experiance in vba for excell and power point but i have no clue
> where to begin here. i've been working on coding it but cannt get
> anywhere
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
D Outlook 365 Custom forms field limit? Outlook VBA and Custom Forms 3
W Outlook 2016 MSI - Possible to make work with O365 modern Auth & Win7? Using Outlook 4
T Outlook roaming signatures Using Outlook 4
S Adding a recipient's column to Sent folder in Outlook 2010 Outlook VBA and Custom Forms 1
J Outlook search bar in Office 2021 Professional Using Outlook 1
J PSA: How to create custom keyboard shortcut for "Paste Unformatted Text" in Outlook on Windows Outlook VBA and Custom Forms 1
C How to fix outlook continuing to prompt fo an Exchange password Using Outlook 0
C Outlook doesn't feel reliable, anymore Using Outlook 5
J Outlook 2016 Trying to get Outlook 2016 to work with Office 365 Using Outlook 0
C Outlook 365 Copy/Save Emails in Folder Outside Outlook to Show Date Sender Recipient Subject in Header Using Outlook 0
U Outlook not responding when trying to print Emails Using Outlook 5
O How to sync (one way) contacts between two Outlook (exchange) accounts? Using Outlook 0
S Sync Outlook (2021) tasks with Microsoft To Do Using Outlook 1
L Duplicate calendar entries in Outlook 365 Using Outlook 4
V Outlook 2021 Can anyone explain why my Outlook views keep changing?! Using Outlook 2
AlphonseG Outlook 365 Outlook Crashes on setting SaveSentMessageFolder Outlook VBA and Custom Forms 5
S Outlook 2021 How to customize colors Outlook 2021 & Office 2021 on PC Using Outlook 2
D Outlook 2007 Recovering E-Mails Using Outlook 0
G Stop Outlook 365 adding meetings to calendar Using Outlook 2
HarvMan Using Emojis in Outlook 365 Using Outlook 3
T Outlook 2019 Not Using Auto Compete After Deletion of 365 Using Outlook 1
D Gmail mail is being delivered to a different email inbox in Outlook App 2021 Using Outlook 2
Albert McCann Outlook 2021 Outlook Display of HTML Email from two senders is glitchy Using Outlook 0
richardwing Outlook 365 VBA to access "Other Actions" menu for incoming emails in outlook Outlook VBA and Custom Forms 0
J Unable to delete folders in Outlook 2019 / Windows Using Outlook 1
K Outlook for Mac problems Using Outlook 0
D Outlook app 2021 & iCloud PST issues Using Outlook 2
M c# vsto Outlook.ApplicationEvents_11_NewMailEx Outlook VBA and Custom Forms 1
J Event/Meeting in Outlook Does Not Align with SharePoint Calendar Using Outlook 5
Christopher M Is it me, or is Outlook 365 BUGGY? Using Outlook 3
U Outlook on the iPhone cannot approve filtered Emails Using Outlook 0
J GoDaddy migrated to Office365 - Outlook Wont Add Account Exchange Server Administration 21
K Outlook 365 After migrating to Outlook 365, some contacts display in emails with prefixes Using Outlook 1
J Outlook Rules VBA Run a Script - Multiple Rules Outlook VBA and Custom Forms 0
Horsepower Cannot delete gmail in iPhone Outlook outbox Using Outlook 1
F Outlook 2019 Outlook 2019 Add and Sync to New computer Comcast server Using Outlook 2
M Understanding Outlook Identities Using Outlook 1
kburrows Outlook or Phone Combining Contacts? Using Outlook 0
P Outlook 2013 search no longer works Using Outlook 2
M Accessing ALL Outlook contact fields Outlook VBA and Custom Forms 3
C Outlook (desktop app for Microsoft365) restarts every time I save my VBA? Using Outlook 0
R MailTips and older Outlook versions Using Outlook 0
A iCloud Outlook Add In is causing Outlook 2021 to crash and got disabled Using Outlook 10
C How to import Outlook calendar? Using Outlook 1
HarvMan Outlook 365 loses "outlook.com" exchange server settings Using Outlook 2
HarvMan Outlook.com Account Using Outlook 3
D Office 365 Outlook desktop app prompts for all account passwords on startup Using Outlook 6
D Alerts in outlook Using Outlook 1
richardwing Auto forward email that is moves into a specific outlook folder Outlook VBA and Custom Forms 5
L Recommendations for Utility to Backup Outlook 365 Account Settings Using Outlook 2

Similar threads

Top