add to existing distribution list

Status
Not open for further replies.
B

barret bonden

Trying to add to an existing distribution list; (from MS Access to Outlook

2003) ; code below can add, but always creates new DL (see below); skipping

through Access records into general top level contacts was easy, DL work has

been very frustrating.

Code below works (it adds to a list) but it needs to refer to a known list.

How do I do this successfully ?

I've played with :

objDistList =

myFolder.Items.Add(Outlook.OlItemType.olDistributionListItem)

in other code but get "object variable not set" even though I can see it has

been !

Dim objOutlook As New Outlook.Application

Dim objNameSpace As Outlook.NameSpace

Dim objDistList As Outlook.DistListItem

Dim objMail As Outlook.MailItem

Dim objRecipients As Outlook.Recipients

Set objNameSpace = objOutlook.GetNamespace("MAPI")

Set objDistList = objOutlook.CreateItem(olDistributionListItem)

Set objMail = objOutlook.CreateItem(olMailItem)

Set objRecipients = objMail.Recipients

objDistList.DLName = InputBox("Enter name of Distribution List")

'objDistList.DLName = "test"

'For i = 1 To Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

'objRecipients.Add (Range("C" & i).Value)

'Next i

objRecipients.Add "test3@t.com"

objRecipients.Add "test4@t.com"

objDistList.AddMembers objRecipients

'objDistList.Display

objDistList.Save

objRecipients.ResolveAll

Set objOutlook = Nothing

Set objNameSpace = Nothing

Set objDistList = Nothing

Set objMail = Nothing

Set objRecipients = Nothing
 
S

Sue Mosher [MVP]

You need to use the MAPIFolder.Items.Find method to return the existing list

based on a query against some known criteria, such as the Subject (i.e. list

name).

Sue Mosher

"barret bonden" <support@networks-cc.com> wrote in message

news:4b43a762$0$31272$607ed4bc@cv.net...
> Trying to add to an existing distribution list; (from MS Access to Outlook
> 2003) ; code below can add, but always creates new DL (see below);
> skipping through Access records into general top level contacts was easy,
> DL work has been very frustrating.
> Code below works (it adds to a list) but it needs to refer to a known
> list. How do I do this successfully ?
 
B

barret bonden

Ahhhh ! (sigh of relief) the guardian angel of Outlook programmers is

still there. Ms. Mosher, I've been professionally programming in VB/VBA for

16 + (?) years now , but still can't make substantial heads or tails of

Outlook syntax; I have no real capacity to be creative here.

This is crass of me, but could you be more explicit ? Or direct me to some

code (been looking for weeks) that solves this ?

"Sue Mosher [MVP]" <suemvp@gmail.com> wrote in message

news:e9XoGrkjKHA.1536@TK2MSFTNGP06.phx.gbl...
> You need to use the MAPIFolder.Items.Find method to return the existing
> list based on a query against some known criteria, such as the Subject
> (i.e. list name).
> > Sue Mosher
> > >

> "barret bonden" <support@networks-cc.com> wrote in message
> news:4b43a762$0$31272$607ed4bc@cv.net...
> > Trying to add to an existing distribution list; (from MS Access to
> > Outlook 2003) ; code below can add, but always creates new DL (see
> > below); skipping through Access records into general top level contacts
> > was easy, DL work has been very frustrating.
> > Code below works (it adds to a list) but it needs to refer to a known
> > list. How do I do this successfully ?


>
 
S

Sue Mosher [MVP]

There's nothing special about Outlook syntax. It's all objects, properties,

methods, and events, the same as with other libraries you may have used in

VB/VBA. The method you need, Items.Find, is well documented in Outlook VBA

Help and in the Outlook Developer Reference on MSDN.

Sue Mosher

"barret bonden" <support@networks-cc.com> wrote in message

news:4b43bf48$0$5015$607ed4bc@cv.net...

> Ahhhh ! (sigh of relief) the guardian angel of Outlook programmers is
> still there. Ms. Mosher, I've been professionally programming in VB/VBA
> for
> 16 + (?) years now , but still can't make substantial heads or tails of
> Outlook syntax; I have no real capacity to be creative here.

> This is crass of me, but could you be more explicit ? Or direct me to
> some
> code (been looking for weeks) that solves this ?

> "Sue Mosher [MVP]" <suemvp@gmail.com> wrote in message
> news:e9XoGrkjKHA.1536@TK2MSFTNGP06.phx.gbl...
> > You need to use the MAPIFolder.Items.Find method to return the existing
> > list based on a query against some known criteria, such as the Subject
> > (i.e. list name).
>

>> "barret bonden" <support@networks-cc.com> wrote in message
> > news:4b43a762$0$31272$607ed4bc@cv.net...
> >> Trying to add to an existing distribution list; (from MS Access to
> >> Outlook 2003) ; code below can add, but always creates new DL (see
> >> below); skipping through Access records into general top level contacts
> >> was easy, DL work has been very frustrating.
> >> Code below works (it adds to a list) but it needs to refer to a known
> >> list. How do I do this successfully ?

>

>>


>
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
M add new attendee to existing meetings with VBA Outlook VBA and Custom Forms 5
N Can't create NEW GROUP and add/remove a member from existing Group in Outlook Using Outlook 1
S Add Exchange Account as Secondary to Existing PST? Exchange Server Administration 1
J Add Fillable Fields to Existing Template Outlook VBA and Custom Forms 1
R Add Exchange Account to existing POP3 Outlook 2007 Profile Using Outlook 0
M Dilemma: to add to existing data file or not to? Using Outlook 16
S Prompt to add for text to existing subject line before sending. Using Outlook 9
A Cannot edit or open existing contact nor add new ones. BCM (Business Contact Manager) 1
K add a designed group into a existing inspector ribbon Outlook VBA and Custom Forms 7
J how to add Business Contact Manager to existing Outlook 2007? BCM (Business Contact Manager) 2
Q add new atendee to an existing appointment Outlook VBA and Custom Forms 3
J GoDaddy migrated to Office365 - Outlook Wont Add Account Exchange Server Administration 21
F Outlook 2019 Outlook 2019 Add and Sync to New computer Comcast server Using Outlook 2
witzker Add a text line at the end of the note field in all selected Contacts Outlook VBA and Custom Forms 7
A iCloud Outlook Add In is causing Outlook 2021 to crash and got disabled Using Outlook 4
N How to add or delete items to Move dropdown Menu Using Outlook 0
G Add contacts birthday to calendar Using Outlook 4
V How to add 'Previous Item' and 'Next Item' to the Quick Access Toolbar Using Outlook 1
Commodore Safe way to add or update holidays; Windows Notifications issue Using Outlook 8
kkqq1122 How would I add Search for attachment name Outlook VBA and Custom Forms 3
L did MS ever add way to text via Outlook Using Outlook 5
P How to add a column named categories when searching in Outlook Using Outlook 0
witzker Outlook 2019 Pls. add a Prefix for OUTLOOK 2019 here Using Outlook 1
P Add inanimate objects to meetings? Using Outlook 1
O Outlook 2010 Add delete button to the side of the message list Using Outlook 1
BartH Add a string to the conditions in .Conditions.BodyOrSubject.Text Outlook VBA and Custom Forms 2
A "Get Add-Ins" - Which Version of Outlook to use Using Outlook 1
D Do I need Exchange Add-In? Using Outlook 6
C-S-R Manage Add-ins (Remove Wunderlist) Using Outlook 6
A iCloud add in problems Using Outlook 4
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 17
C Looking for feedback on new Outlook Add-in Using Outlook 0
L isn't there an OL add-on that flags addressee before sending Using Outlook 3
S Add VBA save code Using Outlook 0
P Shortcut Pane - add shortcut to Office365 group mailbox Using Outlook 1
Z Add ComboBox Value to Body of Email Outlook VBA and Custom Forms 1
G How to add a folder shortcut to outlook quick access toolbar? Using Outlook 6
G Add to Outlook Contacts - Point to non-default contacts folder Using Outlook 0
M Automatically add senders first name to a greeting Outlook VBA and Custom Forms 1
C Add Form to Appointments Received, Automatically Outlook VBA and Custom Forms 6
O Outlook tasks - Add text column with multiple lines Using Outlook 3
W April 2020 Office 365 Update - Add-Ons fail after Office 365 Update Using Outlook 6
Z Task Filter Not Working When I add too many criteria Using Outlook 0
D Add date next to day name in Outlook Today calendar view Using Outlook 1
D iCloud Add-in not working in Outlook 2013 and Outlook 2016 After Windows Upgrade & iCloud Upgrade Using Outlook 2
P Add Paste Unformatted to QAT Using Outlook 1
M Ignore slow add-ins Using Outlook 0
B Add Prefix text to Subject Line Using Outlook 1
Jennifer Murphy Add birthdays to calendar Using Outlook 7
Z Add text to auto-forwarded e-mail Outlook VBA and Custom Forms 4

Similar threads

Top