Outlook 2007 Code for Note Fields of Appointment

[LMS]

Any possible update this weekend????

 

[LMS]

Putting the if line aside, is there a macro that when I select or open a contact, it copies the email address of the contact, as I found another way to paste it in the calendar body but need a macro to copy the email address first?

 

[Diane Poremsky]

Yes, that is easily done. The code sample at http://www.slipstick.com/developer/create-deferred-birthday-message-contact/ shows how to do it (and more) - basically, you need to identify the selected item and get the email1address field. if you want to copy the address to the clipboard, see http://www.slipstick.com/developer/code-samples/paste-clipboard-contents-vba/ - but you should use the field name if possible.

This quickie example creates an email message - you can create any outlook item. To use with open or selected item, use the getcurrentitem function, not ActiveExplorer.

Public Sub GetContact()

If TypeName(ActiveExplorer.Selection.Item(1)) = "ContactItem" Then
Set oContact = ActiveExplorer.Selection.Item(1)

Dim objMsg As MailItem

Set objMsg = Application.CreateItem(olMailItem)
objMsg.body = oContact.Email1Address
'displays the message form so you can enter more text
objMsg.Display

Set objMsg = Nothing

End Sub

 

[LMS]

Thanks very much but I don't understand.....I just need the simple code that copies the email address and does not paste it or do anything else with it as another part of what I have, will do the pasting....Can you just post the simple code please? Thanks so much!!

 

[Diane Poremsky]

This is what reads the address - oContact.Email1Address - if your other code pastes from the clipboard, this won't work. It doesn't copy it, it only reads it. If you are going to paste it, you need code like this:

Sub CapturetoClipbaord()

Dim oContact As ContactItem

DataObj As MSForms.DataObject
Set oContact= ActiveExplorer().Selection.Item(1)
Set DataObj = New MSForms.DataObject
DataObj.SetText oContact.Email1Address
DataObj.PutInClipboard

End Sub

- - - Updated - - -

This is what reads the address - oContact.Email1Address - if your other code pastes from the clipboard, this won't work. It doesn't copy it, it only reads it. If you are going to paste it, you need code like this:




Sub CapturetoClipbaord()


Dim oContact As ContactItem


DataObj As MSForms.DataObject

Set oContact= ActiveExplorer().Selection.Item(1)
Set DataObj = New MSForms.DataObject
DataObj.SetText oContact.Email1Address
DataObj.PutInClipboard


End Sub

 

[LMS]

Thanks so much....I tested it....there was an error...I took off one line as you will below and it works...as I copies the email addresss of the contact

Sub CopyEmailAddress()

Dim oContact As ContactItem

'DataObj As MSForms.DataObject
Set oContact = ActiveExplorer().Selection.Item(1)
Set DataObj = New MSForms.DataObject
DataObj.SetText oContact.Email1Address
DataObj.PutInClipboard

End Sub

 

[LMS]

Update re the If line for the email address?

 

[LMS]

Update soon?

 

[Diane Poremsky]

I've looked at it quite a few times and can't see where there might be a mistake. It *should* work.

 

[LMS]

So what if line specifically for the email field please?

 

[LMS]

I have used the following code line with the words Email1Address and it says can find the object.....I have replaced with Email and E-mail and it does not work....same error. ifitem.getinspector.modifiedformpages("General").controls("Email1Address").text <> "" then txtEmailAddress = "E-Mail Address" & ": " & vbcrlf & item.getinspector.modifiedformpages("General").controls("Email1Address").text & vbcrlf

 

[LMS]

I added to the contact form, a new text field, which is TextBox29 and I copied to that text box in a contact, the email address of the contact, and used the If line you gave me to this TextBox29, and the txtEmailAddress equals the TextBox29, and then in the Calendar Event, the email shows up automatically as an email address. So, it might be that If line using the Email1Address does not work with the words .text so what can we change so it recognizes the Email1Address as an object...as the error is in can't find the object.

 

[Diane Poremsky]

i noticed i looked at the code above earlier that you are looking for email1address - i don't think you can use controls to get defaults, only custom controls. That would explain why it didn't work...

 

[LMS]

It actually works for the other fields that I did not create....it works for FullName, Nickname, Company.....so these were not custom controls that I am aware of

 

[Diane Poremsky]

No, they aren't. Oh, i bet its because the email address isn't a text field (text fields don't support hyperlinks).

 

[LMS]

S o can we change the If line to recognize the email field ? And if not, is there way to create a new text field that automaticaly fills in the text field the email address from the email field so it is a text field equal to the emai field?

 

[Diane Poremsky]

I don't know what it is - the field is listed as a text field on the form. It's called E-mail in the field properties - have you tried using that?

 

[LMS]

Thank you. I did it and the error is "cannot find the specific object".....so again, what to change or also is there a way to create a text field that automatically has the words from the email field? And is what I tried again per what you said: if item.getinspector.modifiedformpages("General").controls("E-mail").text <> "" then txtEmailAddress = "E-Mail Address" & ": " & vbcrlf & item.getinspector.modifiedformpages("General").controls("E-mail").text & vbcrlf

 

[Diane Poremsky]

i'm out of ideas. you could create a combination field that uses the email field - but i'm not sure that will work. See Step 5, down near the bottom for an example of what the field properties would look like.

 

[LMS]

I created combination field but it is not showing the email address in the contact