Outlook 2007 Copy Email Address in To Field

Status
Not open for further replies.

LMS

Senior Member
Outlook version
Outlook 2007
Email Account
Exchange Server
There is a story how I need to do this. If there is an email that has not been sent yet, but is open, do we have a macro that copies the email address in the To field, and closes the email not sending it? Here is the code I got before with copies from a field in a contact, but not from an email and its field that is open:

Public Sub CopyAddress()
Dim oContact As contactItem

Set oContact = ActiveExplorer().Selection.Item(1)
Set DataObj = New MSForms.DataObject
DataObj.SetText oContact.UserProperties("LinkedIn Webpage")
DataObj.PutInClipboard
End Sub
 

Forum Admin

Senior Member
The To field is .To - it should work if you properly reference the mailitem instead of contactitem.

Do you need to copy to clipboard or just copy the field to use in another form?
 

LMS

Senior Member
Outlook version
Outlook 2007
Email Account
Exchange Server
Got it! Can please show me how to reference the mailitem. As I repeat, i don't have the understanding of these areas so if you can just give me the code to use that would be very helpful to me, which includes closing the email and not sending it.

As to the copy, that email address that is copied, I use the paste code you gave me which puts it in the Email1 field of a contact I select.
 

LMS

Senior Member
Outlook version
Outlook 2007
Email Account
Exchange Server
From another forum over time, I came with the following code that does it.
But here is next major problem, and if we can fix this right now, that would be wonderful!!
When I am on another webpage where I have people that I am connected with through that webpage, for example. LinkedIn, in the contact person area on the webpage there is an email address and when I click on it, it creates an email to that email address, and when I run the code, it closes it, but did not copy the email address in the To field.
What can we change so it copies from that email that is created when I click on an email address in the other webpage?

Public Sub CopyEmailAddress2()
Dim item
Dim inspector
Dim addresses
Dim Recip
Dim myinspector As outlook.inspector
Dim myItem As outlook.mailItem
Set inspector = Application.ActiveInspector
Set item = inspector.currentItem
addresses = ""
For Each Recip In item.Recipients
If Len(addresses) > 0 Then addresses = addresses & "; "
addresses = addresses & Recip.Address
Next
Set DataObj = New MSForms.DataObject
DataObj.SetText addresses
DataObj.PutInClipboard
Set myinspector = Application.ActiveInspector
Set myItem = myinspector.currentItem
myItem.Close olSave
End Sub
 

LMS

Senior Member
Outlook version
Outlook 2007
Email Account
Exchange Server
From another forum over time, I came with the following code that does it.
But here is next major problem, and if we can fix this right now, that would be wonderful!!
When I am on another webpage where I have people that I am connected with through that webpage, for example. LinkedIn, in the contact person area on the webpage there is an email address and when I click on it, it creates an email to that email address, and when I run the code, it closes it, but did not copy the email address in the To field.
What can we change so it copies from that email that is created when I click on an email address in the other webpage?

Public Sub CopyEmailAddress2()
Dim item
Dim inspector
Dim addresses
Dim Recip
Dim myinspector As outlook.inspector
Dim myItem As outlook.mailItem
Set inspector = Application.ActiveInspector
Set item = inspector.currentItem
addresses = ""
For Each Recip In item.Recipients
If Len(addresses) > 0 Then addresses = addresses & "; "
addresses = addresses & Recip.Address
Next
Set DataObj = New MSForms.DataObject
DataObj.SetText addresses
DataObj.PutInClipboard
Set myinspector = Application.ActiveInspector
Set myItem = myinspector.currentItem
myItem.Close olSave
End Sub


And I just changed Recip.Address to Recip.Name and it took care of it.
 

LMS

Senior Member
Outlook version
Outlook 2007
Email Account
Exchange Server
Yes.....unless you have other thoughts that are better.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
That looks to be about the best way to do it. At least IMHO.
 

LMS

Senior Member
Outlook version
Outlook 2007
Email Account
Exchange Server
I got it, but don't know what IMHO means
 
Status
Not open for further replies.
Thread starter Similar threads Forum Replies Date
L Outlook 2007 Copy Text Field Using Outlook 8
Z Copy Outlook 2007 "AutoComplete Contacts” to Outlook 2010 Using Outlook 7
P I have Outlook 2007 on a two year old computer running Vista. How do I copy my Outlook Contacts list and move them over to Outlook 2010 on a brand new Using Outlook 1
M Outlook 2007 Copy-Paste problems Using Outlook 6
L Outlook 2007. A copy of all incoming emails go to Junk folder. __ Using Outlook 2
S Outlook 2007 PST Corrupt - Transfer Copy Problem Using Outlook 9
L Calendar in Outlook 2007 replacing items/appointments with a "Copy" Using Outlook 2
C copy Xp Outlook address book tp 2007 Outlook Using Outlook 2
B Unable to get Leave a copy of message on server to stay checked on Outlook 2007 Using Outlook 1
R Outlook 2003 to Outlook 2007 *.pst file copy Using Outlook 1
N Outlook 2007 - Attachment Copy/Paste issue Using Outlook 1
A How to remove 'COPY:' from Outlook calendar entries in Outlook 2007 Using Outlook 1
P Outlook 2007 sends copy of forwarded mail to my inbox????? Using Outlook 0
M i want a copy of my mail on web after synchronisation with outlook 2007 Using Outlook 0
D I have two computers, a desktop with Windows XP and Outlook 2003 on it, and a laptop with Windows Vista and Outlook 2007 on it. I would like to copy Using Outlook 1
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 3
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
icacream From Outlook 2007 to 2016 ! Using Outlook 9
vodkasoda Object could not be found Error in Outlook 2007 Outlook VBA and Custom Forms 5
S Outlook 2007: Address Cards allow entering text! Why? Using Outlook 3
S View Appointment in Text Wrap in Outlook 2007 Month Calendar View Using Outlook 0
L Outlook 2007 Separate the Send/Receive functions Using Outlook 2
M Outlook 2007 Contacts Glitch: Creating a new email Using Outlook 1
C Move from Outlook 2007 Enterprise (MOE) to Outlook Pro plus 2007 Using Outlook 1
J reinstalling Outlook 2007 asking for user name & password Using Outlook 14
P outlook addin unloaded in office 2007 Using Outlook 0
B Fonts in Outlook 2007 Using Outlook 4
R Add Exchange Account to existing POP3 Outlook 2007 Profile Using Outlook 0
C out of space in file group Outlook 2007 Using Outlook 2
A Moving archived contents in Outlook 2007 back into working folders Using Outlook 0
P Outlook 2007 Email Categorization using VBA Outlook VBA and Custom Forms 1
M Unable to Configure Gmail Account in Outlook 2007 Using Outlook 1
R Outlook 2007 or 2010 - Lock Down Functionality Outlook VBA and Custom Forms 3
S Outlook 2007, windows 10 Font size Using Outlook 1
Diane Poremsky Manually create a POP3 account in Outlook 2007 New Slipstick.com Articles 0
Similar threads


















































Top