Help in programmatically setting formatting in an AppointmentItem

Status
Not open for further replies.
N

Nilay

Hi,

i have created a macro to generate some meeting invites.

I used the WordEditor to set some formatting (Bold on/off, hyperlinks etc).

However, i find that the formatting works only partially (or not at all). so

far i've noticed that only the first invite generated is perfectly formatted.

Can anyone help me out with this? Do i need to add something to the code or

set some objects to null to ensure that the formatting stays throughout my

outlook session?
 
More info, please: Outlook version, relevant code snippet, more explanation

of what you mean by "the first invite."

Sue Mosher

"Nilay" <Nilay> wrote in message

news:B147F2F7-1BD8-44B8-A7C0-8E82E89E30BE@microsoft.com...
> Hi,
> i have created a macro to generate some meeting invites.
> I used the WordEditor to set some formatting (Bold on/off, hyperlinks
> etc).

> However, i find that the formatting works only partially (or not at all).
> so
> far i've noticed that only the first invite generated is perfectly
> formatted.

> Can anyone help me out with this? Do i need to add something to the code
> or
> set some objects to null to ensure that the formatting stays throughout my
> outlook session?
 
Re: Help in programmatically setting formatting in an AppointmentI

I'm using Outlook 2007.

The code for the part where i'm using the WordEditor is something like this.

I havent used this before so I'm not sure what I'm doing wrong.

Dim wrdDoc as Word.Document

Dim wrdSel as Word.Selection 'etc etc

With olInvite

> Start = ' etc etc

If olInvite.GetInspector.EditorType = olEditorWord Then

Set wrdDoc = olInvite.GetInspector.WordEditor

Set wrdSel = wrdDoc.Windows(1).Selection

wrdSel.TypeText text:="text" ' i notice that if i try to change

something to bold in the middle of a line it doesnt work. but it works if the

text is on a new line.

wrdSel.Font.Bold = wdToggle

wrdSel.TypeText text:="text"

wrdSel.TypeText "some text"

wrdSel.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend

wrdDoc.Hyperlinks.Add wrdSel.Range, "http://www.somelink.com" 'the

hyperlink with the "some text" seems to work only the first time (see below),

for all subsequent invites i get the hyperlink but no text displayed (just

blank).

End If

> Display

End With

Set wrdDoc = nothing

Set wrdSel = Nothing

set olInvite = nothing

Note: I got the code by recording a macro on MS Word and then modifying it.

By "first invite" i mean the invite that is generated when i use the macro

for the first time after i start outlook. all subsequent invites created by

using that macro partially lose the formatting, unless i actually restart

outlook.

I hope you can help me out, i've never worked with VBA in such depth before.

"Sue Mosher [MVP]" wrote:


> More info, please: Outlook version, relevant code snippet, more explanation
> of what you mean by "the first invite."
> > Sue Mosher
> > >

> "Nilay" <Nilay> wrote in message
> news:B147F2F7-1BD8-44B8-A7C0-8E82E89E30BE@microsoft.com...
> > Hi,
> > i have created a macro to generate some meeting invites.
> > I used the WordEditor to set some formatting (Bold on/off, hyperlinks
> > etc).
> > However, i find that the formatting works only partially (or not at all).
> > so
> > far i've noticed that only the first invite generated is perfectly
> > formatted.
> > Can anyone help me out with this? Do i need to add something to the code
> > or
> > set some objects to null to ensure that the formatting stays throughout my
> > outlook session?

> .
>
 
Re: Help in programmatically setting formatting in an AppointmentI

How formatting is applied depends in part on what the current Word.Selection

object encompasses. You should see similar effects when you're working

manually in a document. As you already seem to know a bit about how to move

the selection, I suggest you continue playing with that, using the Word

macro recorder as needed, to nail down the exact effect you want.

What do you mean by "partially lose formatting"?

I can't think of any reason why one meeting request created with the same

code would be any different from another.

Sue Mosher

"Nilay" <Nilay> wrote in message

news:4DC6BBC9-3417-4E76-B528-E43594FFC0C8@microsoft.com...
> I'm using Outlook 2007.

> The code for the part where i'm using the WordEditor is something like
> this.
> I havent used this before so I'm not sure what I'm doing wrong.

> Dim wrdDoc as Word.Document
> Dim wrdSel as Word.Selection 'etc etc

> With olInvite
> .Start = ' etc etc
> If olInvite.GetInspector.EditorType = olEditorWord Then
> Set wrdDoc = olInvite.GetInspector.WordEditor
> Set wrdSel = wrdDoc.Windows(1).Selection

> wrdSel.TypeText text:="text" ' i notice that if i try to change
> something to bold in the middle of a line it doesnt work. but it works if
> the
> text is on a new line.
> wrdSel.Font.Bold = wdToggle
> wrdSel.TypeText text:="text"

> wrdSel.TypeText "some text"
> wrdSel.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
> wrdDoc.Hyperlinks.Add wrdSel.Range, "http://www.somelink.com" 'the
> hyperlink with the "some text" seems to work only the first time (see
> below),
> for all subsequent invites i get the hyperlink but no text displayed (just
> blank).

> End If
> .Display
> End With
> Set wrdDoc = nothing
> Set wrdSel = Nothing
> set olInvite = nothing

> Note: I got the code by recording a macro on MS Word and then modifying
> it.

> By "first invite" i mean the invite that is generated when i use the macro
> for the first time after i start outlook. all subsequent invites created
> by
> using that macro partially lose the formatting, unless i actually restart
> outlook.
>
> > > i have created a macro to generate some meeting invites.
> > > I used the WordEditor to set some formatting (Bold on/off, hyperlinks
> > > etc).
> >> > However, i find that the formatting works only partially (or not at
> > > all).
> > > so
> > > far i've noticed that only the first invite generated is perfectly
> > > formatted.
> >> > Can anyone help me out with this? Do i need to add something to the
> > > code
> > > or
> > > set some objects to null to ensure that the formatting stays throughout
> > > my
> > > outlook session?
 
Status
Not open for further replies.
< Location field | How to read single instance of recursive meetings in Outlook >
Similar threads
Thread starter Title Forum Replies Date
S Custom Contact card - need help creating one Outlook VBA and Custom Forms 1
D Lifelong Windows user - new to Mac - Help!!! Using Outlook 3
L Help: set flag for sent mail to check if received an answer Outlook VBA and Custom Forms 2
Nufc1980 Outlook "Please treat this as private label" auto added to some emails - Help. Using Outlook 3
I Help with Smart Folder + Query Builder on IMAP Using Outlook 0
S Outlook 2002- "Send" button has disappeared. Help please. Using Outlook 1
A Outlook 2019 Help with forwarding email without mentioning the previous email sender. Outlook VBA and Custom Forms 0
Witzker Outlook 2019 HELP to get Template Path in a Function Outlook VBA and Custom Forms 2
CWM550 Outlook 365 HELP! Calendar Craziness! Using Outlook 5
S Outlook 365 Help me create a Macro to make some received emails into tasks? Outlook VBA and Custom Forms 1
e_a_g_l_e_p_i Has nobody used Office 2021 enough to help me or have you given up on me.......lol Using Outlook 1
X Open Hyperlinks in an Outlook Email Message (Help with Diane's solution) Outlook VBA and Custom Forms 3
L Help connecting to hosted exchange server 2016 Using Outlook 0
B Seeking help with Outlook rule Using Outlook 2
D Need help with MS Authenticator Using Outlook 4
I Outlook for Mac 2019 using on desktop and laptop IMAP on both need help with folders Using Outlook 1
FryW Need help modifying a VBA script for in coming emails to auto set custom reminder time Outlook VBA and Custom Forms 0
S.Champ Please help? I've imported a random workcalendar I dont even know who's. Can I undo it? and then I need to re-sync the google one again. Its a mess:( Using Outlook 2
S HTML to Plain Text Macro - Help Outlook VBA and Custom Forms 1
e_a_g_l_e_p_i Outlook 2010 Help setting up Gmail account in Outlook 2010 Using Outlook 3
N Help creating a VBA macro with conditional formatting to change the font color of all external emails to red Outlook VBA and Custom Forms 5
Y Filter unread emails in a search folder vba help Outlook VBA and Custom Forms 0
L Need help modifying a VBA script for emails stuck in Outbox Outlook VBA and Custom Forms 6
F Microsoft Outlook Connector 14.0.6123.5001 - Help! Using Outlook 6
Witzker Pls help to change the code for inserting date in Ol contact body Outlook VBA and Custom Forms 5
R Disable conversation thread from replying of recipients in the same subject. Please help Using Outlook 0
R seperate read layout to design in outlook 2016..Help!! Outlook VBA and Custom Forms 3
O Help .. got lost ... installing Office like 2016 Using Outlook 5
A Arthur needs help with 2007 Outlook e-mail Using Outlook.com accounts in Outlook 3
R Help Revising VBA macro to delete email over different time span Outlook VBA and Custom Forms 0
Marc2019 Need help please! Cannot Setup my outlook email account on my Mac Outlook 2011 Using Outlook.com accounts in Outlook 2
L Attachment saving and tracking - PLEASE help! Outlook VBA and Custom Forms 5
I Help with dates in task list. Using Outlook 5
C need help setting up outlook first time Using Outlook 1
K To do bar help Using Outlook 8
M Help sending email but removing signature via VBA Outlook VBA and Custom Forms 5
S help with outlook scripting Outlook VBA and Custom Forms 4
J Help Please!!! Outlook 2016 - VBA Macro for replying with attachment in meeting invite Outlook VBA and Custom Forms 9
EmelineGueguen Help to understand the problem of work Using Outlook 1
N Outlook Forms Help Outlook VBA and Custom Forms 2
N Need help syncing contacts to iPhone X Using Outlook 8
S VBA Macro - Run-time error '424': object required - Help Please Outlook VBA and Custom Forms 3
broadbander Needing help with reply/reply all while keeping attachments and adding a new CC recipient. Outlook VBA and Custom Forms 5
J Help! My contacts have disappeared. Using Outlook 5
J HELP- Rule to auto strip prepend from external emails Using Outlook 0
J Help Needed With Multi-Step Login Email Address Using Outlook.com accounts in Outlook 1
G Bcc help - Preventing multiple forwards from a bcc'd distribution group Using Outlook 1
G [Help] Converting array to destination folder path Outlook VBA and Custom Forms 1
K Help.... Office Outlook 2016 Using Outlook 1
S Error using AddressEntry.GetContact - need help Outlook VBA and Custom Forms 2

Similar threads

Back
Top