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
K Outlook 2019 Randomly Disconnecting from Gmail Servers Using Outlook 5
P Outlook calendar and contacts sync problem-outlook disconnects Using Outlook.com accounts in Outlook 2
HarvMan Toggle between calendar and email in Outlook 365 Using Outlook 2
V Outlook error 500 Using Outlook 2
F Email being marked as Spam by Gmail and not being visible in Outlook Using Outlook 3
S Mac Outlook 365 Questions Using Outlook 0
M Outlook calendar is missing Using Outlook 2
G Save and Rename Outlook Email Attachments Outlook VBA and Custom Forms 0
G Trigger script without restaring outlook Outlook VBA and Custom Forms 7
T Have you written an articles about Outlook? Using Outlook 3
V Compound IF, OR, AND in Outlook form Outlook VBA and Custom Forms 4
A Any way to make Outlook Calendar invitations look right to Gmail/Google Calendar users? Using Outlook 3
R Outlook 365 update sets delete from server flag Using Outlook 1
M How to setup outlook after importing old account information - Entering email account info creates with "(1)" after the account! Using Outlook 1
P Prevent Outlook 2016 from using DASL filter Using Outlook 4
I Button PDF in Outlook Contact custom form Outlook VBA and Custom Forms 1
G VBA to save selected Outlook msg with new name in selected network Windows folder Outlook VBA and Custom Forms 1
X Outlook automation pull from PDF Using Outlook 5
O Outlook 365 - How to create / copy a new contact from an existing one? Using Outlook 3
M Gmail address associated with Outlook on new phone Using Outlook 9
D Cannot populate certain UserProperties in Outlook from Excel Outlook VBA and Custom Forms 2
F Excel VBA to move mails for outlook 365 on secondary mail account Outlook VBA and Custom Forms 1
G Outlook 2016: Want IMAP Data Files on My D: Drive and Not C: Drive Using Outlook 1
V Validating Outlook form with "OR" and "AND" Outlook VBA and Custom Forms 1
D Outlook 2016 64bit, Cannot Save in 'HTML', format Using Outlook 1
J Connect outlook to office365 exchange _without_ signing in office apps Using Outlook 4
D Outlook launch email showing new unread email in reading pane Using Outlook 11
M Convertor for Outlook Express Mail Store (.dbx) to Outlook Mail Store (.pst) Using Outlook 0
K Outlook adds space to rows in HTML email signatures viewed on mobile Using Outlook 1
L Outlook 2010 Outlook 2010 Outlook VBA and Custom Forms 2
V Outlook behaving oddly Using Outlook 2
M HTML email signature in Outlook Using Outlook 1
C What folders are needed when reinstalling Outlook 2010 Using Outlook 0
M Respond to Outlook Email Outlook VBA and Custom Forms 0
P Color Code or highlight folders in Outlook 2016 Using Outlook 2
U Outlook locking up when replying to Email Using Outlook 7
J Outlook Autocomplete (Recipients) opens upward Using Outlook 2
A "Get Add-Ins" - Which Version of Outlook to use Using Outlook 1
O Newbie question: how to sync two Outlook -Exchange and IMAP- calendars? Using Outlook 4
P Syncing Outlook & iPhone Calendars Using Outlook 4
S Unable to extract text from an Outlook email message Using Outlook 2
O Outlook on Android: after sharing / sending a news article, draft remains open. Why? Using Outlook 1
T Outlook creates a copie of every mail I send Using Outlook.com accounts in Outlook 4
O Outlook - hidden contacts? Using Outlook 2
F Outlook 365 is "Possessed" Using Outlook 2
e_a_g_l_e_p_i Can someone explain syncing with Outlook and Gmail Using Outlook 3
K Outlook Office 365 VBA download attachment Outlook VBA and Custom Forms 2
e_a_g_l_e_p_i Gmail in Outlook 2010 preview issue Using Outlook 4
I Outlook is stuck at "Updating Calendar" Using Outlook 1
AmonRa Outlook 365 calendar - too much white space Using Outlook 0

Similar threads

Top