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
 
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
 
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?
 
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
 
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
O Any 3rd party tool that sync (mirror) from Outlook Contacts to Google Contacts? Using Outlook 4
D Outlook 365 Outlook Message "Cannot be sent because the message has changed" Using Outlook 0
J Hotmail drafts started on desktop disappear, but show in web version of Outlook Using Outlook 0
Z Hotmail account deleted from outlook and issue with account not exist Using Outlook 0
J 'Name on the security certificate is invalid or...' - Outlook on desktop talking to hotmail.com account Using Outlook.com accounts in Outlook 5
J Outlook, Word, Access crash unless run in Admin mode - time dependent it seems Using Outlook 10
T Why do Outlook Desktop 2021 tasks from my wife's email show up in my task pane? Using Outlook 2
B Delete Read Receipts in Your Outlook Outlook VBA and Custom Forms 0
M Outlook changes the "Modified" field when moving/copying a Contact. Using Outlook 0
macdotcom Outlook 365 Outlook folder export to PST archival tool - close, but need a nudge Outlook VBA and Custom Forms 2
M Outlook 2016 still feature updating Using Outlook 0
e_a_g_l_e_p_i Question about Outlook 2021 and Gmail Using Outlook 9
J Outlook VBA to send from Non-default Account & Data Files Outlook VBA and Custom Forms 3
P Limited Support for 3rd Party Mail in new Outlook? Using Outlook 1
O Any 3rd party tool that sync (mirror) from Outlook Calendar to Google Calendar? Using Outlook 5
T Outlook is categorizing emails incorrectly Using Outlook 1
R Legacy Outlook on Mac Email Cache Using Outlook 0
A Outlook can't remember outlook.com, Exchange password. Using Outlook 6
S Related messages show in main Outlook window vice new Advanced Find windows Using Outlook 1
H Force Outlook 2019 with GMail 2-Step to Require Login? Using Outlook 0
G Retaining Tabs in outlook body Using Outlook 2
V Setting up Outlook 2021 on new computer Using Outlook 2
G Add Map It button to Custom Contacts Form in Outlook Outlook VBA and Custom Forms 1
X Custom icon (not from Office 365) for a macro in Outlook Outlook VBA and Custom Forms 1
Victor_50 Problem - Google Workspace will stop "unsafe" access to Outlook end 2024 Using Outlook 3
C New pc, new outlook, is it possible to import auto-complete emailaddress Using Outlook 4
T Outlook 365 won't take new working password Using Outlook 0
S Create Outlook Task from Template and append Body with Email Body Outlook VBA and Custom Forms 4
P Can't add custom field to custom Outlook form, it always adds to the Folder instead Outlook VBA and Custom Forms 2
B Sync Outlook Public Folders to Contacts Using Outlook 2
D Delete Outlook emails from MS server Using Outlook 17
B Outlook tasks and PDF Using Outlook 4
D Outlook 2019 is no longer asking for password ... Using Outlook 5
Kika Melo How to mark as Junk any message not from Contacts (in Outlook.com) Using Outlook 3
L Outlook attachments from OneDrive as links Using Outlook 0
G Outlook 365 My iCloud Outlook doesn’t work after reinstalling Microsoft365 on Windows 10 PC – now I get error message on contacts and calendar Using Outlook 1
T How to Export & Import GMAIL Contacts into Outlook 2021 ? Using Outlook 4
M Synchronization and backup of Outlook from local to server. Using Outlook 12
T How to get an EVENT COLOR option in Outlook 2021 ? Using Outlook 0
K How can I delete an e-mail from Outlook Using Outlook 1
V Outlook Error The Attempted operation Failed. An Object Could Not be found Outlook VBA and Custom Forms 0
P Yahoo/IMAP folder rename by Outlook desktop 365 Using Outlook 0
A Outlook 2019 folder counter Using Outlook 0
A Relocate Search Bar in Outlook Using Outlook 2
e_a_g_l_e_p_i Need clarification on 2-Step Verification for Gmail using Outlook 2021 Using Outlook 10
L Opening People Outlook 2021 Using Outlook 2
e_a_g_l_e_p_i Outlook 2021 not letting me setup my Gmail using pop Using Outlook 1
Geldner Problem submitting SPAM using Outlook VBA Form Outlook VBA and Custom Forms 2
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
M Outlook 2016 outlook vba to look into shared mailbox Outlook VBA and Custom Forms 0

Similar threads

Back
Top