Outlook 2007 Email1 to Email2

[LMS]

Here is the code passed on what you gave me in the past, that converts the words of the WebPage to the LinkedIn Webpage, and cleans out the Webpage...

How can we change this for converting the Email1 Address to the Email2 Address, and cleans out the Emal1 Address...I tried it in different ways but cannot do it...so please let me know as this is important as well.

Sub ConvertWebPagetoLinkedInWebPage()
Dim objApp As Application
Dim objNS As NameSpace
Dim objFolder As MAPIFolder

Dim objItem As Object
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")

On Error Resume Next
If TypeName(objApp.ActiveWindow) = "Inspector" Then
Set objItem = objApp.ActiveInspector.currentItem
objItem.UserProperties("LinkedIn Webpage") = objItem.UserProperties("Web Page")

objItem.UserProperties("Web Page") = ""
objItem.Save
GoTo Leave
End If

Set objSelection = objApp.ActiveExplorer.Selection

For Each objItem In objSelection

objItem.UserProperties("LinkedIn Webpage") = objItem.UserProperties("Web Page")

objItem.UserProperties("Web Page") = ""

objItem.Save

Next
Leave:
Set objItem = Nothing
Set objFolder = Nothing
Set objNS = Nothing
Set objApp = Nothing
End Sub

 

[Diane Poremsky]

Are you working on one contact? ie, you just want to move it to the email2 field?

Use the macro here -
http://www.slipstick.com/outlook/contacts/swap-first-and-last-name-fields/

you'll need to change to 'meat' of the macro to this:

With objContact
          If .Email1Address<> "" Then
          Let .Email2Address= .Email1Address
          .Email1Address = ""
          .Save
         End if

 

[LMS]

I did the following and it worked perfect....thanks so so much again!!

Public Sub ConvertEmail1toEmail2()
Dim currentExplorer As Explorer
Dim Selection As Selection
Dim obj As Object

Set currentExplorer = Application.ActiveExplorer
Set Selection = currentExplorer.Selection

On Error Resume Next

For Each obj In Selection

Set objContact = obj

With objContact
If .Email1Address <> "" Then
Let .Email2Address = .Email1Address
.Email1Address = ""
.Save
End If
End With


Err.Clear
Next

Set obj = Nothing
Set objContact = Nothing

End Sub

 

[LMS]

And is there a standard code that copies the email1address from one contact, and puts it into another contact that I select with the first contact?

 

[Diane Poremsky]

No, i don't have anything like that available.