Appointment: Pasting Excel values ?

P

pirmin

If I have the Appointment Dialog on the screen I can manually paste an
Excel Data-grid from the clipboard.

How do I this with VBA. My code is not able to paste -
Thanks for ideas and a line of code !


Set objOApp = New Outlook.Application
Set objAppt = objOApp.CreateItem(olAppointmentItem)
Set oExp = objOApp.Session.GetDefaultFolder(olFolderInbox).GetExplorer

With objAppt
.Display
.RequiredAttendees = "Addressee(s) Name(s)"
.Subject = "Subject of Meeting/Appointment"
.Importance = 2 ' high
.Location = "Location of Meeting"
' .Body = "Additional information to appear in body"
.MeetingStatus = 1
.ResponseRequested = True
'.Save 'Uncomment if you want message saved to your sent
items folder
'.Send



'Test if an inspector is active
If Not TypeName(myinspector) = "Nothing" Then
'Display subject of active inspector
MsgBox "The active item is " & myinspector.CurrentItem.Subject
End If

Set WordDoc = myinspector.WordEditor

*** not working
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Meeting Request Update/Cancel VBA 0
Setting Appt/Meeting Request in Shared Calendar 2
Create appointment to custom (shared) outlook calendar 3
Add appointment to calendar--NOT my default 1
"special" recuring appointment... 3
Using Access to create an appointment and add attendees 3
Access to Outlook 1
Reading outlook appoinment details into access database 0

Top