Bdtjtk

I'm trying to use VBA (in Word) to create an appointment in Outlook based on the data provided in the user form that is loaded when the word document containing the macro is opened. Everything seems to be working alright but I end up having some run time error when the macro executes the paste function.

Dim OutApp As Object

Dim OutMail As Object

Dim OutInsp As Outlook.Inspector

Dim WdApp As Word.Application

Dim OutDoc As Word.Document

Dim WdSel As Word.Selection



Set OutApp = CreateObject("Outlook.Application")

Set OutMail = OutApp.CreateItem(1)



If request_Form.ComboBox3.Value = "****" Then

With ActiveDocument.Bookmarks("recipient_Name")

    .Range.Text = "Uwe"

End With

With ActiveDocument.Bookmarks("applicant_Name")

    .Range.Text = Replace(request_Form.TextBox1.Value, "_", ", ")

End With

With OutMail

    .MeetingStatus = olMeeting

    .RequiredAttendees = "@live.in"

    .Subject = request_Form.TextBox1.Value & " Work From Home"

    .Location = "Home"

    .BusyStatus = olFree

    .ReminderSet = False

    If request_Form.CheckBox1.Value = False Then

        .Start = DateValue(request_Form.TextBox2.Value) + TimeValue(request_Form.ComboBox1.Value)

        .End = DateValue(request_Form.TextBox2.Value) + TimeValue(request_Form.ComboBox2.Value)

    Else

        .AllDayEvent = True

    End If

    .Display

End With





Set OutInsp = OutMail.GetInspector

Set OutDoc = OutInsp.WordEditor

Set WdApp = OutDoc.Application

Set WdSel = WdApp.Windows(1).Selection



Documents("Home Office Request Form.docm").Range.Copy



With OutMail

    WdSel.PasteAndFormat Type:=wdFormatOriginalFormatting

End With



save_file

 MsgBox "A copy of this file has been stored in your desktop for your 

 reference.", vbOKOnly + vbInformation, "Status Information"



End Sub

"Macro Function - The program creates an appointment based on the data filled in the userform and copies the entire content in the word document and pastes in the body of the appointment". When this piece of code "wdsel.pasteandformat" is executed it results in run time error but interestingly this error doesn't seem to happen quite often so its hard for me to understand what going wrong here Lets says 70% of the time it works good and probably for the rest 30% of the time it doesn't.

I would be really glad if someone could help me understand whats going wrong with the above code.

Thanks for your help.

Regards,
Rahul

So, we have an answer to your problem. Here it is.

Chances are that when you open Outlook it's the Outlook window which becomes active. At that moment access to the selection object in the non-active Word window might become inaccessible. To cure the problem, take everything you want from Word before opening Outlook. That includes copying the text into memory and use that to paste into Outlook.