Want to add code to ThisOutlookSession, but other code already exists

Status
Not open for further replies.

NatDev

Member
Hi,




I want to add the VBA code mentioned in the first part of this link to my Outlook 2003: http://www.outlookcode.com/article.aspx?id=72




The problem that I am running into is that I already have some code in my ThisOutlookSession that I would like to keep and if I just plop this code in before the other code, this new code doesn't work. If I drop the code mentioned in the link above into an empty ThisOutlookSession on another machine, it works fine. I am probably missing some simple step, but do very little with VBA in Outlook and have been unable to find what I am looking for by Googling.




Here is the code that I already have in place. I believe it does something with the setup of my Outlook Contacts. Again, my goal is to have the code below continue to work plus the code in the first part of the link above:




Public Sub ChangeFileAs()
Dim objOL As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objContact As Outlook.ContactItem
Dim objItems As Outlook.Items
Dim objContactsFolder As Outlook.MAPIFolder
Dim obj As Object
Dim strFirstName As String
Dim strLastName As String
Dim strCompanyName As String
Dim strFileAs As String



On Error Resume Next



Set objOL = CreateObject("Outlook.Application")
Set objNS = objOL.GetNamespace("MAPI")
Set objContactsFolder = objNS.GetDefaultFolder(olFolderContacts)
Set objItems = objContactsFolder.Items



For Each obj In objItems
'Test for contact and not distribution list
If obj.Class = olContact Then
Set objContact = obj



With objContact
strFirstName = .FirstName
strLastName = .LastName
strCompanyName = .CompanyName
strFileAs = strCompanyName & " " & "(" & strLastName & ", " & strFirstName & ")"
.FileAs = strFileAs
.Save
End With
End If



Err.Clear
Next



Set objOL = Nothing
Set objNS = Nothing
Set obj = Nothing
Set objContact = Nothing
Set objItems = Nothing
Set objContactsFolder = Nothing


End Sub




Any help would be appreciate.




Thanks,
 
K

Ken Slovak - [MVP - Outlook]

There's no reason at all why if you used method 1 at your link that it would

interfere with your running that macro to re-order your contact filing. Both

pieces of code can co-exist.

"NatDev" <NatDev.4aliny@invalid> wrote in message

news:NatDev.4aliny@invalid...

> Hi,

> I want to add the VBA code mentioned in the first part of this link to
> my Outlook 2003: http://www.outlookcode.com/article.aspx?id=72

> The problem that I am running into is that I already have some code in
> my ThisOutlookSession that I would like to keep and if I just plop this
> code in before the other code, this new code doesn't work. If I drop
> the code mentioned in the link above into an empty ThisOutlookSession on
> another machine, it works fine. I am probably missing some simple step,
> but do very little with VBA in Outlook and have been unable to find what
> I am looking for by Googling.

> Here is the code that I already have in place. I believe it does
> something with the setup of my Outlook Contacts. Again, my goal is to
> have the code below continue to work plus the code in the first part of
> the link above:

> Public Sub ChangeFileAs()
> Dim objOL As Outlook.Application
> Dim objNS As Outlook.NameSpace
> Dim objContact As Outlook.ContactItem
> Dim objItems As Outlook.Items
> Dim objContactsFolder As Outlook.MAPIFolder
> Dim obj As Object
> Dim strFirstName As String
> Dim strLastName As String
> Dim strCompanyName As String
> Dim strFileAs As String

> On Error Resume Next

> Set objOL = CreateObject("Outlook.Application")
> Set objNS = objOL.GetNamespace("MAPI")
> Set objContactsFolder = objNS.GetDefaultFolder(olFolderContacts)
> Set objItems = objContactsFolder.Items

> For Each obj In objItems
> 'Test for contact and not distribution list
> If obj.Class = olContact Then
> Set objContact = obj

> With objContact
> strFirstName = .FirstName
> strLastName = .LastName
> strCompanyName = .CompanyName
> strFileAs = strCompanyName & " " & "(" & strLastName &
> ", " & strFirstName & ")"
> FileAs = strFileAs
> Save
> End With
> End If

> Err.Clear
> Next

> Set objOL = Nothing
> Set objNS = Nothing
> Set obj = Nothing
> Set objContact = Nothing
> Set objItems = Nothing
> Set objContactsFolder = Nothing
> End Sub

> Any help would be appreciate.

> Thanks,

> > NatDev
> >
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
C Need VBA code to automatically save message outside outlook and add date Outlook VBA and Custom Forms 1
Wotme code to run outlook add-in Using Outlook 1
P Trying to add subject and name to an email using VB Code Using Outlook 3
D Outlook Add-In That Calculates Time Based on Area Code Using Outlook 8
B how to add country code to contacts automatically Using Outlook 7
D When adding a new Outlook 2010 profile, I get the error code 0x80040605 and cannot add an email acco Using Outlook 5
M Diagnostic-Code: smtp;550 Unable to add Email removed for privacy because host 65.55.111.81 is listed on RBL dnsbl.sorbs.net Using Outlook 2
F Code to add items to list to deal with commas in value... Outlook VBA and Custom Forms 1
B convert VBA code to Add-in Outlook VBA and Custom Forms 1
W April 2020 Office 365 Update - Add-Ons fail after Office 365 Update Using Outlook 6
B 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
P Add, remove, & reorder folder pane Using Outlook 6
L Tired of Outlook disabling Adobe PDF Creator add-in Using Outlook 1
R Add 'Company' to Select Names Form Using Outlook 1
A Outlook 2016 Web add-in missing on some machines Using Outlook 9
P Syncing problems with add-ins Using Outlook 3
Mark Foley Cannot enable add-in in outlook 2010 Using Outlook 0
BretAB Is it possible to add a lookup field to a Message form? Outlook VBA and Custom Forms 4
J Add an Attachment Using an Array and Match first 17 Letters to Matching Template .oft to Send eMail Outlook VBA and Custom Forms 2
iwshim outlook 2013 - I cannot see the "Manage Add-ins" Using Outlook 2
A Add multiple servers "on behalf of" email to "safe senders" list. Using Outlook 1
S Add Exchange Account as Secondary to Existing PST? Exchange Server Administration 1
C Macro to add multiple recipients to message Outlook VBA and Custom Forms 3
A Add to Outlook Contacts from email - default view Outlook VBA and Custom Forms 1
P Add a contact to the New Task in Outlook 2016 Using Outlook 2
e_a_g_l_e_p_i Is there a way to add something that is in the "Format Text" tab to the "basic Text" on the message tab Using Outlook 1
B When working on emails in a certain folder, when I hit reply or reply all, I would like it re always reply all and add an email address to send to Outlook VBA and Custom Forms 3
M Macro to add date/time stamp to subject Outlook VBA and Custom Forms 4
O Outlook on Android - add BCC Using Outlook 2
J Execute Add-In Button from VBA Outlook 2016 Outlook VBA and Custom Forms 1
S Example VBA Macro - To Conditionally Change the From Account and Add a BCC Address on Emails Outlook VBA and Custom Forms 11
B When I add more search strings to RULES, it is not processing them Using Outlook 3
D Add Tetxbox at form open Outlook VBA and Custom Forms 1
Andrew Quirl Open attachment, manipulate without add-on program? Outlook VBA and Custom Forms 5
B Searching for a Add-In Using Outlook 3
J Add Fillable Fields to Existing Template Outlook VBA and Custom Forms 1
J vb to c# for Outlook add-in. Using Outlook 0
S Send email via SMTP - use transport rules to add to senders inbox (then rule to move to sent items Exchange Server Administration 1
R Outlook add-in to create new contact from an email. Using Outlook 0
twofivepie GTD Netcentrics add-in for 2016 Outlook VBA and Custom Forms 13
D Add all meeting rooms to the meeting request by default Outlook VBA and Custom Forms 0
A add birthday to outlook contacts Using Outlook 1
Tanja Östrand Outlook 2016 - Create Macro button to add text in Subject Outlook VBA and Custom Forms 1
Similar threads


















































Top