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,
 
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.
Similar threads
Thread starter Title Forum Replies Date
J Want to create a button on the nav bar (module add-in) to run code Outlook VBA and Custom Forms 2
S Add VBA save code Using Outlook 0
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
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
G Add Map It button to Custom Contacts Form in Outlook Outlook VBA and Custom Forms 1
G Outlook 2021 Add Picture to Custom Contact Form Outlook VBA and Custom Forms 2
P Can't add custom field to custom Outlook form, it always adds to the Folder instead Outlook VBA and Custom Forms 2
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
S Outlook 2019 Custom outlook Add-in using Visual Studio Outlook VBA and Custom Forms 0
G automatically choosing "add to autocorrect" option Using Outlook 0
F Want to add second email to Outlook for business use Using Outlook 4
K Add an entry to a specific calendar Using Outlook 1
F Add a category before "Send an Email When You Add an Appointment to Your Calendar" Outlook VBA and Custom Forms 0
M "Attachment Detacher for Outlook" add in, does it update the server copy of the email? Using Outlook 1
J Outlook 365 Add keywords from Listbox to the message body where cursor is placed Outlook VBA and Custom Forms 0
O Add Day Number of the year for 2023-2033 Outlook VBA and Custom Forms 5
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 10
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
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
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
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

Similar threads

Back
Top