Execute in background

[Dozo2000]

It it possible to execute (run) this part of my macro in the background, so the Outlook Appointment window doesn't show?

When I delete the " olAppt.Display ", it doesnt add the Selection to the body of the appointment anymore.

Set olAppt = Outlook.Application.CreateItem(olAppointmentItem)
    olAppt.Display
    
    Set Selection = olAppt.GetInspector.WordEditor.Windows(1).Selection
          
    Selection.TypeText ("Call: " & Blad1.Cells(r, 15).Value & " about (" & Blad1.Cells(r, 3).Value & ").")
    Selection.TypeText (vbNewLine & vbNewLine)
    Selection.TypeText ("and: " & Blad1.Cells(r, 23).Value & ".")
    Selection.TypeText (vbNewLine & vbNewLine)
    Selection.TypeText (Blad1.Cells(r, 11).Value & " - " & Blad1.Cells(r, 22).Value)

 

[Norie]

Couldn't you use the Body (or HTMLBody?) property do, well, set the body of the appointment?

 

[Dozo2000]

No. I am using a hyperlink from the sheet that is written to the body.
Body doesn't work.
and HTMLbody didn't work either.

 

[Norie]

This doesn't do anything?

    Set olAppt = Outlook.Application.CreateItem(olAppointmentItem)
    olAppt.Body = "This is the body of the appointment"
    olAppt.Display

PS I can't really test that without seeing the rest of your code but in theory it should work.

 

[Dozo2000]

That works.
But not if i want to add a hyperlink from my sheet to the body of the outlook appointment.

My macro works, but the appointment-screen are showing up shortly and i wonder if that can be avoided.

 

[Norie]

If you want to add a hyperlink to the body of the appointment you need to use HTMLBody and use the appropriate HTML tags/code.

 

[Dozo2000]

I thought (read somwhere) that it only works in email posts and not in appointment body.
That's why I use the Word.selection.

Do you have an example how I get .htmlbody to work?