Outlook 2007 Macro Save Contact

Status
Not open for further replies.

LMS

Senior Member
Outlook version
Email Account
Exchange Server
I have a code that when I copy a email address from another place, I open up a contact and there is a macro that pastes it to the email address. But if I don't save the contact and close it, and open it up, it does not use that email address yet. So is there a macro that saves the contact or saves it, closes it, and opens it, so that way I had that code to the paste code, and it is all done right away. Thanks very much to the Smart Woman!!!:)
 

Forum Admin

Senior Member
Does it need closed and reopened or just saved?
If your object variable is oContact, you'd use this to save it:
oContact.Save

Or, try resolving the address (I'm not sure of the correct code - my brain is still on holiday :))
.Resolve
 

LMS

Senior Member
Outlook version
Email Account
Exchange Server
I have the following two codes. The first one saves and closes the contact, and since the folder that it is in, it is still selected after closed, if I run the second code, it opens it back up. So it there a way to turn these two codes into one code that saves, closes and then opens the contact?

Sub SaveCloseContact()

Dim myinspector As outlook.inspector
Dim myItem As outlook.contactItem

Set myinspector = Application.ActiveInspector
Set myItem = myinspector.currentItem

myItem.Close olSave
End Sub

Sub OpenSelectedContact()
Dim oContact As contactItem
Set oContact = ActiveExplorer().Selection.item(1)

oContact.Display

End Sub
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Just pull out the end sub and the next sub name.

Code:
Sub SaveCloseContact()

Dim myinspector As outlook.inspector
Dim myItem As outlook.contactItem
Dim oContact As contactItem

Set myinspector = Application.ActiveInspector
Set myItem = myinspector.currentItem

myItem.Close olSave

Set oContact = ActiveExplorer().Selection.item(1)
oContact.Display

End Sub
 

LMS

Senior Member
Outlook version
Email Account
Exchange Server
I tried that earlier but there was an error where "oContact.Display" is colored as yellow but no error message
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
I don't know - it works here (with outlook 2013).
 

LMS

Senior Member
Outlook version
Email Account
Exchange Server
It might be that it runs the second code a little to early as maybe it does not yet recogize a selection yet. Because when i run it a second time it works. So is there a way to add to your code a code that waits to move foward in the macro for a short period of some time?
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Outlook doesn't have a timer, so there really isn't an easy way to delay it. Add an on error resume next to the macro - what happens?
 

LMS

Senior Member
Outlook version
Email Account
Exchange Server
Please tell me what words and exactly where to add them.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Code:
Sub SaveCloseContact()
Dim myinspector As outlook.inspector
Dim myItem As outlook.contactItem
Dim oContact As contactItem
Set myinspector = Application.ActiveInspector
Set myItem = myinspector.currentItem
myItem.Close olSave

on error resume next

Set oContact = ActiveExplorer().Selection.item(1)
oContact.Display
End Sub
 

LMS

Senior Member
Outlook version
Email Account
Exchange Server
What you gave me has it now show up a yellow line, but it does not open up the contact still
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
S Macro for other actions - Outlook 2007 Outlook VBA and Custom Forms 23
L Outlook 2007 - Macro Re Search Using Outlook 16
L Outlook 2007 Macro to Contact From a Field Using Outlook 3
L Outlook 2007 Macro Reply to E-mail Using Outlook 16
L Outlook 2007 Macro Search Contacts Using Outlook 9
L Outlook 2007 Macro to LinkedIn Using Outlook 3
L Outlook 2007 Macro Open Contact Folder Using Outlook 7
L Macro to Open a Specific Word Document - Outlook 2007 Using Outlook 17
L Outlook 2007 Macro For Views Using Outlook 10
L Outlook 2007 Macro to Run a Script From a Contact Form Using Outlook 41
L Outlook 2007 Macro to Add Text to a Contact Field Using Outlook 10
F Help with Outlook 2007 Macro Please! Using Outlook 4
D outlook 2003/2007 macro query Using Outlook 2
L Outlook 2007 Macro to Email Field Using Outlook 31
O Macro for creating hyperlinks in Outlook 2007 Using Outlook 3
S Outlook 2007 Macro for replying to an e-mail. Outlook VBA and Custom Forms 1
J Can't run macro Outlook 2007 that was created in Word 2007 Outlook VBA and Custom Forms 1
I Creating an Outlook 2007 macro that attaches a signature to new me Outlook VBA and Custom Forms 1
L Help for writing an Outlook 2007 macro Outlook VBA and Custom Forms 7
D Insert Text via Macro in Outlook 2007 Outlook VBA and Custom Forms 2
G Outlook 2007 Macro: Paste - Paste Special - Unformatted Text Outlook VBA and Custom Forms 9
C After Office 2007 SP2 install - Outlook 2007 macro no longer worki Outlook VBA and Custom Forms 11
R Anyone have a sample macro for Outlook 2007 (setting the zoom)? Outlook VBA and Custom Forms 1
S Outlook 2007: automating form with macro Outlook VBA and Custom Forms 2
S How to create a macro to insert a signature in Outlook 2007 Outlook VBA and Custom Forms 1
D Outlook 2007 Recovering E-Mails Using Outlook 0
W Transfer Outlook 2016 autocomplete file to Outlook 2007 Using Outlook 1
C Outlook 2007 Removing then adding account restores junk email processing Using Outlook 0
S Outlook 2007 crash linked to gdiplus.dll Using Outlook 0
S Outlook 2007 - Automatic purge fail Using Outlook 0
J outlook 2007 doesn't let me choose which .pst to search Using Outlook 2
D Outlook 2007 vs. Outlook 2010 -- ToDo Bar Using Outlook 0
D Outlook 2007 on 365 Using Outlook.com accounts in Outlook 2
S Verwendung von Outlook 2007 Using Outlook 0
A Arthur needs help with 2007 Outlook e-mail Using Outlook.com accounts in Outlook 3
M PST import from Outlook 2007 to 2010 - Address Book contacts all in 1 group Using Outlook 4
S outlook 2007 calendar search Using Outlook 6
B Migrate Outlook 2007 to Office 365 Using Outlook 3
X I have met my waterloo trying to resolve embedded graphics problem with outlook 2007 and now 2016 Using Outlook 1
R Outlook 2007 only loads some appointments Using Outlook 0
C Move Outlook 2007 to new PC with Outlook 365 Using Outlook 3
J Outlook 2007 Hide Messages Option not Available Using Outlook 2
S Outlook 2007 Calendar instant search problem. Windows 7 Using Outlook 4
S Outlook 2007 Calendar instant search problem. Windows 7 Using Outlook 0
B Server errors Outlook 2007 Using Outlook 1
S Reboot of frozen windows7 results in changed outlook 2007 settings Using Outlook 1
S Outlook 2007 printing wrong email address at top of page Using Outlook 8
M Configure outlook 2007 to accept digital signatures Using Outlook 2
D Outlook 2007 crashes when opening an email Using Outlook 2
R New chap saying hello and needing advice on Outlook 2007 thumbnails Using Outlook 3

Similar threads

Top