Outlook 2007 Macro Save Contact

Status
Not open for further replies.
L

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!!!:)
 
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
 
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
 
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
 
I tried that earlier but there was an error where "oContact.Display" is colored as yellow but no error message
 
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?
 
Please tell me what words and exactly where to add them.
 
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
 
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.
< Adding User Defined Field to another form | Macro in Outlook for auto-reply >
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

Back
Top