Outlook 2007 Code for Note Fields of Appointment

[LMS]

Update in this area for macros I just asked about?

 

[LMS]

I read in another thread of this forum of a code that pastes to an appointment and with the fonts that come with it from a word document....I did and it is not pasting as the font of the document. I will show it below, and also just also need the macro to select all in the body field as if I did Ctrl +a and copy it all as if I did Ctrl + c. And here is the paste code I found that does not do it.Sub Paste_Un_FormattedClipboard()
On Error Resume Next
Dim objItem As Object
Dim objInsp As outlook.Inspector
Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim objSel As Word.Selection
Set objItem = Application.ActiveInspector.currentItem
Set objInsp = objItem.GetInspector
Set objDoc = objInsp.WordEditor
Set objWord = objDoc.Application
Set objSel = objWord.Selection
objSel.PasteAndFormat (Word.wdFormatPlainText)
Set objItem = Nothing
Set objInsp = Nothing
Set objDoc = Nothing
Set objWord = Nothing
Set objSel = Nothing
End Sub

 

[LMS]

Waiting to hear back from the Smart Woman!!!

 

[LMS]

Have not yet heard back from the Smart Woman!!!

 

[LMS]

Other than getting macros for selected and copying all words in the body field of the Calendar event, I have fixed it all so when I create the calendar event, select all, copy all, and run a word document, the word document puts the correct line spaces where I need them and fonts the words I want to font, and then it copies the word document within a few seconds....then just paste to the Outlook Calendar Event body it puts in how I want to see everything, as the "If"code I was given, works great. But when I decide to add to the Calendar Event body from the email field of the contact, just like we add the other field values, it will not recognize the email text and there is standard error.......so maybe any email is not text and here is the "If" code for the email field and what do we change so it will put in the email address: if item.getinspector.modifiedformpages("General").controls("Email").text <> "" then txtEmailAddress = "E-Mail Address" & ": " & vbcrlf & item.getinspector.modifiedformpages("General").controls("Email").text & vbcrlf

 

[LMS]

I just found the way to select all and copy all in the body field of the Calendar event....which is the macro below....but what can I change to select all and paste...as objSel.Paste does not work......and also, just need to know how to add the email as I said above....Still waiting for the Smart Woman!! Sub SelectAllAndCopy()

Dim objDoc As Word.Document

Dim objSel As Word.Selection

On Error Resume Next

Set objDoc = Application.ActiveInspector.WordEditor

Set objSel = objDoc.Windows(1).Selection

objSel.WholeStory

objSel.Copy

Set objDoc = Nothing

Set objSel = Nothing

End Sub

 

[LMS]

This does it as I deleted the code lines:

Set objDoc = Nothing

Set objSel = Nothing So just need the way to add the email field

Sub SelectAllAndPaste()

Dim objDoc As Word.Document

Dim objSel As Word.Selection

On Error Resume Next

Set objDoc = Application.ActiveInspector.WordEditor

Set objSel = objDoc.Windows(1).Selection

objSel.WholeStory

objSel.Paste

End Sub

 

[Diane Poremsky]

The email field from the contact? that is .email1address - whatever you are referring to the contact as, goes before the . oContact.email1address

 

[LMS]

So should the If line be: if item.getinspector.modifiedformpages("General").controls("email1address").text <> "" then txtEmailAddress = "E-Mail Address" & ": " & vbcrlf & item.getinspector.modifiedformpages("General").controls("email1address").text & vbcrlf

 

[LMS]

I did what I just wrote and it say it does not find a specific object

 

[LMS]

Update re the "If" line?

 

[LMS]

Any update to what the If line should be for purposes the email area? I tried based on your words, but not working....please let me know soon if you can.

 

[LMS]

Update tonight please?

 

[LMS]

Any possible update today to create the If line for email addresses? I need to add this as soon as possible

 

[LMS]

Update re the "If" line for the email please???

 

[LMS]

I am still waiting for the Smart Woman!!!

 

[Diane Poremsky]

You'll be waiting awhile, only not so smart ones around here.

This is what you are still trying to get to work?

if item.getinspector.modifiedformpages("General").con trols("Email").text <> "" then txtEmailAddress = "E-Mail Address" & ": " & vbcrlf & item.getinspector.modifiedformpages("General").con trols("Email").text & vbcrlf

 

[LMS]

Yes, yes yes!!!

 

[LMS]

Update please please!!!

 

[Diane Poremsky]

I took most of the weekend off. As an FYI, I'm going to be on a business trip and will only be working 3 days over the next 2 weeks, so I'm not sure if I'll have time to work on the problem.